Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Что надо сделать если после импорта данных из Access числа сохранены как текст / 9 сообщений из 9, страница 1 из 1
08.11.2005, 22:54:52
    #33367797
Admiral67
Admiral67
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Что надо сделать если после импорта данных из Access числа сохранены как текст
Подскажите пожалуйста, что нужно сделать если

Есть необходимость каждый день из Access копировать данные одной таблицы в Excel. В таблице один из столбцов (Lot) содержит числа, хоть тип данных этого поля текстовый. Так вот, когда данные вставляются в Excel, то тоже автоматом сохраняются как текст (выравнивание по левому краю, сообщение об ошибке -маленький восклицательный знак в ромбе). Этот стоблец очень важен - на него заточена ВПР и т.д.
Если ничего не делать, то ВПР в другом файле возвращает - Н/Д.
Если дважды щелкнуть мышкой на каждой ячейке или нажать F2, то цифры выравниваются по правому краю, ВПР их уже "видит", хотя формат ячейки не меняется.
Ячеек 300-400 и каждый день "влом" их прощелкивать вручную.
Какое это получается событие, как написать макрос для его обработки?
Пробовал цикл с Cells.Activate или Cells.Calculate - не прошло.
Что делать?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.11.2005, 08:28:37
    #33367998
Пользователь2
Пользователь2
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Что надо сделать если после импорта данных из Access числа сохранены как текст
1.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
    Dim cel As Range
    Dim rng As Range
    
    Set rng = Worksheets("Лист1").Range("A1:A100")
    rng.NumberFormat = "0"    

    For Each cel In rng
        cel.Value = cel.Value
    Next

2.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
    Dim rng As Range
    
    Set rng = Worksheets("Лист1").Range("A1:A100")
    
    rng.NumberFormat = "0"
    ' Копируем пустую ячейку.
    Range("A" & rng.Rows.Count +  1 ).Copy
    rng.PasteSpecial Paste:=xlValues, Operation:=xlAdd, _
      SkipBlanks:=False, Transpose:=False
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.11.2005, 12:52:22
    #33368690
civil
civil
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Что надо сделать если после импорта данных из Access числа сохранены как текст
все проще (с правке прочитал)... в свободной ячейке пишешь 1....выделяешь эту ячейку.... копировать... выделяешь столбец где цифры как текст... специальная вставка... ставишь чек бокс умножить... нажимаешь ок...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.11.2005, 14:36:09
    #33369040
Пользователь2
Пользователь2
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Что надо сделать если после импорта данных из Access числа сохранены как текст
п. 2. Тоже самое, только сумма.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.11.2005, 22:30:36
    #33370036
Admiral67
Admiral67
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Что надо сделать если после импорта данных из Access числа сохранены как текст
Спасибо огромное. Код прекрасно работает.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
20.03.2007, 00:30:34
    #34401545
Beeland
Beeland
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Что надо сделать если после импорта данных из Access числа сохранены как текст
Пользователь21.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
    Dim cel As Range
    Dim rng As Range
    
    Set rng = Worksheets("Лист1").Range("A1:A100")
    rng.NumberFormat = "0"    

    For Each cel In rng
        cel.Value = cel.Value
    Next

2.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
    Dim rng As Range
    
    Set rng = Worksheets("Лист1").Range("A1:A100")
    
    rng.NumberFormat = "0"
    ' Копируем пустую ячейку.
    Range("A" & rng.Rows.Count +  1 ).Copy
    rng.PasteSpecial Paste:=xlValues, Operation:=xlAdd, _
      SkipBlanks:=False, Transpose:=False


И первый вариант попробовал и второй, все равно числа в текстовом формате.
Записал макрос:

Range("A1").Select
Application.CutCopyMode = False
Selection.NumberFormat = "0.00"
Range("A1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "1"
Selection.Copy
Range("j2:j12").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False

При записи сработал, а в скрипте не работает.... ???? МОжет дело, как всегда, в какой-то мелочи, а я её не вижу? Второй день вожусь уже, не получается.
Помогите, кто может!!!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.03.2007, 17:21:32
    #34403675
SirFisher
SirFisher
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Что надо сделать если после импорта данных из Access числа сохранены как текст
Для перевода текста, отображающего число, в число используйте функцию =ЗНАЧЕН(текст)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.03.2007, 09:03:15
    #34404648
HandKot
HandKot
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Что надо сделать если после импорта данных из Access числа сохранены как текст
а какой разделитель дробной и целой части у чисел и в Екселе?

I Have Nine Lives You Have One Only
THINK!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.03.2007, 09:40:58
    #34404732
vbapro
vbapro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Что надо сделать если после импорта данных из Access числа сохранены как текст
HandKotа какой разделитель дробной и целой части у чисел и в Екселе?

I Have Nine Lives You Have One Only
THINK!
Код: plaintext
? application.International(xlDecimalSeparator)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Что надо сделать если после импорта данных из Access числа сохранены как текст / 9 сообщений из 9, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 371ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2183266]:
 0ms
get settings:
 7ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 48ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 43ms
get tp. blocked users:
 1ms
others: 240ms
total:  371ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]