ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Что надо сделать если после импорта данных из Access числа сохранены как текст
9 сообщений из 9, страница 1 из 1
Что надо сделать если после импорта данных из Access числа сохранены как текст
    #33367797
Admiral67
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Admiral67
Гость
Подскажите пожалуйста, что нужно сделать если

Есть необходимость каждый день из Access копировать данные одной таблицы в Excel. В таблице один из столбцов (Lot) содержит числа, хоть тип данных этого поля текстовый. Так вот, когда данные вставляются в Excel, то тоже автоматом сохраняются как текст (выравнивание по левому краю, сообщение об ошибке -маленький восклицательный знак в ромбе). Этот стоблец очень важен - на него заточена ВПР и т.д.
Если ничего не делать, то ВПР в другом файле возвращает - Н/Д.
Если дважды щелкнуть мышкой на каждой ячейке или нажать F2, то цифры выравниваются по правому краю, ВПР их уже "видит", хотя формат ячейки не меняется.
Ячеек 300-400 и каждый день "влом" их прощелкивать вручную.
Какое это получается событие, как написать макрос для его обработки?
Пробовал цикл с Cells.Activate или Cells.Calculate - не прошло.
Что делать?
...
Рейтинг: 0 / 0
08.11.2005, 22:54:52
| Ответить | Цитировать | Написать  
Что надо сделать если после импорта данных из Access числа сохранены как текст
    #33367998
Пользователь2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пользователь2
Гость
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, 08:28:37
| Ответить | Цитировать | Написать  
Что надо сделать если после импорта данных из Access числа сохранены как текст
    #33368690
civil
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
civil
Гость
все проще (с правке прочитал)... в свободной ячейке пишешь 1....выделяешь эту ячейку.... копировать... выделяешь столбец где цифры как текст... специальная вставка... ставишь чек бокс умножить... нажимаешь ок...
...
Рейтинг: 0 / 0
09.11.2005, 12:52:22
| Ответить | Цитировать | Написать  
Что надо сделать если после импорта данных из Access числа сохранены как текст
    #33369040
Пользователь2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пользователь2
Гость
п. 2. Тоже самое, только сумма.
...
Рейтинг: 0 / 0
09.11.2005, 14:36:09
| Ответить | Цитировать | Написать  
Что надо сделать если после импорта данных из Access числа сохранены как текст
    #33370036
Admiral67
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Admiral67
Гость
Спасибо огромное. Код прекрасно работает.
...
Рейтинг: 0 / 0
09.11.2005, 22:30:36
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
Что надо сделать если после импорта данных из Access числа сохранены как текст
    #34401545
Beeland
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Beeland
Гость
Пользователь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, 00:30:34
| Ответить | Цитировать | Написать  
Что надо сделать если после импорта данных из Access числа сохранены как текст
    #34403675
SirFisher
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SirFisher
Гость
Для перевода текста, отображающего число, в число используйте функцию =ЗНАЧЕН(текст)
...
Рейтинг: 0 / 0
20.03.2007, 17:21:32
| Ответить | Цитировать | Написать  
Что надо сделать если после импорта данных из Access числа сохранены как текст
    #34404648
Фотография HandKot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
HandKot
Участник
а какой разделитель дробной и целой части у чисел и в Екселе?

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

I Have Nine Lives You Have One Only
THINK!
Код: plaintext
? application.International(xlDecimalSeparator)
...
Рейтинг: 0 / 0
21.03.2007, 09:40:58
| Ответить | Цитировать | Написать  
9 сообщений из 9, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Что надо сделать если после импорта данных из Access числа сохранены как текст
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&gotonew=1&tid=2183266]:
 0ms
get settings:
 8ms
get forum list:
 11ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 46ms
get topic data:
 7ms
get first new msg:
 4ms
get forum data:
 2ms
get page messages:
 28ms
get tp. blocked users:
 1ms
others: 193ms
total:  304ms
созд. / загр.: 304ms
x
x
Закрыть


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