powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / тип данных не обновляется
7 сообщений из 32, страница 2 из 2
тип данных не обновляется
    #34685027
Oleg_Sp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Compositum Oleg_Sp
судя по вашему исходнику, у вас проблема формата колонки В?
у меня все прекрасно суммируется (я внизу формулу суммы поставил - все сложилось, т.е. проблем формата нет). ???

Если открыть excelевский файлик и запустить макрос (ctrl+i), то проблема в столбце "C"
...
Рейтинг: 0 / 0
тип данных не обновляется
    #34685042
Фотография Compositum
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Oleg_Sp
Если открыть excelевский файлик и запустить макрос (ctrl+i), то проблема в столбце "C"
да я вижу...
первый раз с таки сталкиваюсь...
мысль есть. щас напишу вам код...
...
Рейтинг: 0 / 0
тип данных не обновляется
    #34685110
Фотография Compositum
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Oleg_Sp
млин не получилось...
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Public Function FormatRecalc()
Dim n As Long, i As Long
n = Cells(Rows.Count,  3 ).End(xlUp).Row
For i =  1  To n
Cells(i,  3 ).Select
Selection.Value = Cells(i,  3 ).Value
i = i +  1 
Next i
End Function
думал таким образом исправить.. не вышло...
...
Рейтинг: 0 / 0
тип данных не обновляется
    #34685116
Oleg_Sp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Compositum Oleg_Sp
млин не получилось...
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Public Function FormatRecalc()
Dim n As Long, i As Long
n = Cells(Rows.Count,  3 ).End(xlUp).Row
For i =  1  To n
Cells(i,  3 ).Select
Selection.Value = Cells(i,  3 ).Value
i = i +  1 
Next i
End Function
думал таким образом исправить.. не вышло...

Да я это тоже пробовал. Похоже что какой то странный глюк
...
Рейтинг: 0 / 0
тип данных не обновляется
    #34685143
Фотография Compositum
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Oleg_Sp
ой мля... ну я торможу..
все работает
код такой:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Public Function FormatRecalc()
Dim n As Long, i As Long, ch As Double
n = Cells(Rows.Count,  3 ).End(xlUp).Row
For i =  1  To n
Cells(i,  3 ).Select
With Selection
ch = .Value
.Value = ch
End With
Next i
End Function
...
Рейтинг: 0 / 0
тип данных не обновляется
    #34685161
Фотография Compositum
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
кстати... в 5-м столбце (Е) у вас та же хрень
код этот же мона использовать, тока уже не 3 столбец а 5.
____________________________________________________________
З.Ы. Юзаю Аксесс 2003СП2.
...
Рейтинг: 0 / 0
тип данных не обновляется
    #34685198
Oleg_Sp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Compositumкстати... в 5-м столбце (Е) у вас та же хрень
код этот же мона использовать, тока уже не 3 столбец а 5.
____________________________________________________________
З.Ы. Юзаю Аксесс 2003СП2.


СУПЕР!!!! Сразу два решения!!!!! Первое Ваше (спасибо БОЛЬШОЕ!!!) Второе сам только что нашел.

надо в той части макроса, где мы прилинковываемся к csv файлу добавить строчку кода:

.TextFileDecimalSeparator = "."

и убрать принудительное форматирование необходимых столбцов

и все становится гораздо проще
...
Рейтинг: 0 / 0
7 сообщений из 32, страница 2 из 2
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / тип данных не обновляется
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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