| Вопрос: формат выделенных ячеек: число, выравнивание, шриф | Добавлено: 09.08.05 23:34 |
Автор вопроса:  anatoliy-2
|
|
Добрый вечер (день) уважаемые знатоки Excel! Как программно при помощи VB6(VBA) реализовать возможность управлять в Excel функциями формат выделенных ячеек: число, выравнивание, шрифт, граница, вид. Просьба также подсказать хорошие книги по VBA Excel.
С уважением Анатолий. |
| Ответы | Всего ответов: 4 |
|
Номер ответа: 1 Автор ответа:  GSerg Вопросов: 0 Ответов: 1876 
|
Профиль | | #1 | Добавлено: 10.08.05 04:18 |
|
Хорошая книга по VBA Excel называется F1. Во всяком случае, ничего лучше я пока не видел.
selection.numberfomat="#0.00" selection.HorizontalAlignment=xlHAlignCenter selection.font.name="ms sans serif" |
||
|
Номер ответа: 2 Автор ответа: GSergВопросов: 0 Ответов: 1876
|
Профиль | | #2 | Добавлено: 10.08.05 04:21 |
|
Тьфу, забыл.
selection.borderaround xlBorderLineStyleContinuous selection.interior.color=vbgreen |
||
|
Номер ответа: 3 Автор ответа: mc-blackICQ: 308-534-060 Вопросов: 20 Ответов: 1860 |
Web-сайт: Профиль | | #3 | Добавлено: 14.08.05 14:11 |
|
F1 - не видел такой книги. А кто Автор? И можно что-то типа библиографической ссылки?
Я не пытался зпоминать все эти фишки (кроме numberfomat), особенно константы. Просто когда что надо, включаю запись макроса, меняю формат, а потом останавливаю запись и смотрю.. Кстати, не обязательно это всё применять к selection, можно например применять к Worksheets("Книга1"  .Cells(i,j)
|
||
|
Номер ответа: 4 Автор ответа: anatoliy-2 Вопросов: 12 Ответов: 14 |
Профиль | | #4 | Добавлено: 14.08.05 20:24 |
|
Спасибо за подсказки. Эту задачу уже решил. Помогло и F1 и приобретение двух книг. Но появился
еще вопрос в продолжение темы. Как программно выделить группу ячеек в Excel? Например: objExcel.Range("h5:J14" .Select Это работает, - но мне необходимо чтобы h,5,j,14 , брались из переменных в которых эти данные заранее записаны.
Например: Dim a,b,c,d ‘ Данные указателей столбцов и ячеек меняются в зависимости от предыдущих результатов a = "h" b = "5" c = "j" d = "14" objExcel.Range("ab:cd" .Select
Перепробовал много всяких вариантов, но безуспешно. Пожалуйста помогите решить эту вроде-бы простую задачу. С уважением Анатолий. (копия в общий форум) |
||
Страница: 1 |