ReSQL.ru
     
powered by simpleCommunicator - 2.0.56     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Размер шрифт-Exel
5 сообщений из 5, страница 1 из 1
Размер шрифт-Exel
    #35656565
Nikita_2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Nikita_2
Гость
Подскажите, в такой ситуации:

В шаблон exel передаются некие данные , в объединенную ячейку шаблона выводится переменная os3 в которой содержится не более 60-и символов (шрифт 12)

loDoc.Sheets(1).Range("e110").value=ALLTRIM(os3)

если os3 содержит более 60 символов естественно уже не входит , вопрос можно ли из
фокса сменить размер шрифта в ячейке по условию если os3>60.
...
Рейтинг: 0 / 0
16.11.2008, 17:17
| Ответить | Цитировать | Написать  
Размер шрифт-Exel
    #35656724
Dag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dag
Участник
можно
...
Рейтинг: 0 / 0
16.11.2008, 21:20
| Ответить | Цитировать | Написать  
Размер шрифт-Exel
    #35656747
Фотография Валентин Н.Карелин
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Валентин Н.Карелин
Участник
Nikita_2если os3 содержит более 60 символов естественно уже не входит , вопрос можно ли из фокса сменить размер шрифта в ячейке по условию если os3>60.

Если прямо отвечать на твой прямой вопрос, ТО МОЖНО , например:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
WITH Ole2.Cells(ХХ,ХХ)
   IF Len(os3) >  60 
      .Font.Size =  10 
   Else && --- социальный маршрут  
      .Font.Size =  12 
   EndIf   
   .NumberFormat = "@"
   .Value = AllTrim(os3)
EndWith

Но длина 60х"i" и 60х"ш" совершенно разные, поэтому лучше вместо анализа длины строки сделать так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
WITH Ole2.Cells(ХХ,ХХ)
   .Font.Size =  12 
   .NumberFormat = "@"
   .Value = AllTrim(os3)
   .WrapText = .T.
   .Select
   Ole2.Selection.Rows.AutoFit
EndWith

Это перенесёт длинную стороку в ячейке и раздвинет её по высоте... А вообще запиши макрос на Excel, посмотри что Basic пишет и сконвертируй в Fox, будет что-то близкое но не один к одному...
...
Рейтинг: 0 / 0
16.11.2008, 22:00
| Ответить | Цитировать | Написать  
Размер шрифт-Exel
    #35656757
Nikita_2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Nikita_2
Гость
Спасибо , что без Вас делал бы?!!
...
Рейтинг: 0 / 0
16.11.2008, 22:14
| Ответить | Цитировать | Написать  
Размер шрифт-Exel
    #35656762
Фотография Валентин Н.Карелин
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Валентин Н.Карелин
Участник
Nikita_2Спасибо , что без Вас делал бы?!!

))) Ну что делал... Что делал... Читал бы ссылку " можно " господина Dag (см. выше)
...
Рейтинг: 0 / 0
16.11.2008, 22:18
| Ответить | Цитировать | Написать  
5 сообщений из 5, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Размер шрифт-Exel
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?desktop=1&fid=41&tid=1587062]:
 0ms
get settings:
 10ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 36ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 46ms
get tp. blocked users:
 1ms
others: 318ms
total:  449ms
созд. / загр.: 449ms
x
x
Закрыть


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