Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / ExcellObj / 5 сообщений из 5, страница 1 из 1
17.03.2006, 12:06:07
    #33607624
strizzz
strizzz
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ExcellObj
Возникает много вопросов по работе с Excell из приложения через ExcellObj. Подскажите, плз, где можно почитать об этом.
Необходимо: закреплять строки, столбцы, выделять цветом, ставить фильтры и прочее форматирование.
Заранее спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.03.2006, 12:17:49
    #33607656
barrabas
barrabas
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ExcellObj
strizzzВозникает много вопросов по работе с Excell из приложения через ExcellObj. Подскажите, плз, где можно почитать об этом.
Необходимо: закреплять строки, столбцы, выделять цветом, ставить фильтры и прочее форматирование.
Заранее спасибо.

Записываешь макрос в екселе c нужным действием (например цвет изменил) , смотришь VBA код и смотришь какие свойства за это отвечают.
Макрос записывать надеюсь уеешь и в редактор VBA входить?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.03.2006, 13:37:12
    #33632186
strizzz
strizzz
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ExcellObj
Pole = Trim("Q") + Trim(Str(strcount))
objExcel.Range(Pole).Select
ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R[-" + Trim(Str(strcount - 2)) + "]C:R[-3]C)"
strcount = strcount + 2
Pole = Trim("Q") + Trim(Str(strcount))

Пытаюсь вставить промежуточные итоги, но никакой реакции нет. Может я, что не так делаю? Подскажите, плз.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.03.2006, 14:35:51
    #33632524
vkodor
vkodor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ExcellObj
если
Код: plaintext
Set objExcel = Workbooks("...").Sheets("...")
тогда так
Код: plaintext
1.
Pole = Trim("Q") + Trim(Str(strcount))
objExcel.Range(Pole).FormulaR1C1 = "=SUBTOTAL(9,R[-" + Trim(Str(strcount -  2 )) + "]C:R[-3]C)"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.03.2006, 15:15:17
    #33632722
strizzz
strizzz
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ExcellObj
vkodor

Tnx :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / ExcellObj / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 486ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2166148]:
 0ms
get settings:
 10ms
get forum list:
 19ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 174ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 34ms
get tp. blocked users:
 1ms
others: 232ms
total:  486ms
x
x
Закрыть


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