Гость
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / как экспортировать форматирование из ячейки эксель в бейсик? / 6 сообщений из 6, страница 1 из 1
30.08.2012, 14:36
    #37937161
gerra
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как экспортировать форматирование из ячейки эксель в бейсик?
Проблема следующая: я ячейках эксель хранятся химические формулы типа Н2О, естественно все цифры отформатированы как подстрочные символы. Но при экспорте данных в бейсик форматирование теряется и цифры становятся обычными. После этого из формул и проч. формируется текст, который снова пересылается в ячейку эксель. Но текст уже с большими цифрами.
Кто-нибудь посоветует, как сохранить исходное форматирование? Или еще какие-то пути решения проблемы, например тупо пролистать формулу, полученную из ячейки и все цифры сделать подстрочными (но я не знаю, как это сделать в бейсике). Help!!!
...
Рейтинг: 0 / 0
30.08.2012, 14:45
    #37937191
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как экспортировать форматирование из ячейки эксель в бейсик?
gerraКто-нибудь посоветует, как сохранить исходное форматирование?не тянуть это в бейсик. так как не описано, зачем это делается, то и совет дать сложноgerraИли еще какие-то пути решения проблемы, например тупо пролистать формулу, полученную из ячейки и все цифры сделать подстрочнымиможно, если это устраивает.
...
Рейтинг: 0 / 0
30.08.2012, 16:10
    #37937403
gerra
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как экспортировать форматирование из ячейки эксель в бейсик?
Shocker.Pro, лист экселя используется для хранения химических формул, программно некоторые из них включаются в текст. На листе это я сделать не могу.
...
Рейтинг: 0 / 0
30.08.2012, 16:25
    #37937444
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как экспортировать форматирование из ячейки эксель в бейсик?
gerraтупо пролистать формулу, полученную из ячейки и все цифры сделать подстрочными
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
Dim i As Integer, t As String
With Cells(5, 5)
t = .Value
For i = 1 To Len(t)
  If Mid$(t, i, 1) >= "0" And Mid$(t, i, 1) <= "9" Then .Characters(i, 1).Font.Subscript = True
Next
End With

проделывает это в ячейке E5
...
Рейтинг: 0 / 0
30.08.2012, 16:27
    #37937450
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как экспортировать форматирование из ячейки эксель в бейсик?
Чуть покороче
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
Dim i As Integer, t As String
With Cells(5, 5)
t = .Value
For i = 1 To Len(t)
  If Mid$(t, i, 1) Like "[0-9]" Then .Characters(i, 1).Font.Subscript = True
Next
End With
...
Рейтинг: 0 / 0
30.08.2012, 17:20
    #37937589
gerra
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как экспортировать форматирование из ячейки эксель в бейсик?
Shocker.Pro,
спасибо, все работает!
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / как экспортировать форматирование из ячейки эксель в бейсик? / 6 сообщений из 6, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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