Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Программирование, связанное с MS Office > посчитать строки и столбцы в excel

Автор: batek 12.3.2006, 15:51

такая тема некая программа импортирует данные в таблуцу excel;
необходимо посчитать количество столбцов и количество строк которые заполнились и затем начертить таблицу или каким либо другим методом расчертить табличку

Автор: Naghual 12.3.2006, 16:01

А по подробнее и на русском можно?

Автор: batek 12.3.2006, 17:32

ну допустим есть какие то данные в таблице excel надо эти данные обрамить таблицей что при печати напечаталась табличка с данными а не просто данные на белом фоне (написать надо че то типа макроса )
Пример:
поступили данные из программы рабочий лист excel заполнился ими без обрамления вот так:

1 61011 ГЕЗАЛОВА ГУН 6.24.06.1988
2 91428 СИДОРОВ ДЕНИС 6.02.08.1988
3 6269 МАМАЕВА ЮЛЯ 6.06.10.1988
4 4205 ХАЙРИТДИНОВ АЛЕКСАНДР 6 .29.10.1988
5 6459 ИВИН ЕВГЕНИЙ 6.08.11.1988
6 61300 ГОРБУНОВА ВИКА 6.06.02.1989

а надо чтобы было так:
---------------------------------------------------------------------------------
|1 | 61011 | ГЕЗАЛОВА ГУН | 6.24.06.1988|
---------------------------------------------------------------------------------
|2 | 91428 | СИДОРОВ ДЕНИС | 6.02.08.1988|
---------------------------------------------------------------------------------
|3 | 6269 | МАМАЕВА ЮЛЯ | 6.06.10.1988 |
---------------------------------------------------------------------------------
|4 | 4205 | ХАЙРИТДИНОВ АЛЕКСАНДР |6.29.10.1988|
---------------------------------------------------------------------------------
|5 | 6459 | ИВИН ЕВГЕНИЙ | 6.08.11.1988|
---------------------------------------------------------------------------------
|6 | 61300 | ГОРБУНОВА ВИКА | 6.06.02.1989|
---------------------------------------------------------------------------------

Автор: Naghual 12.3.2006, 18:22

Вам батенька в другой подфорум нужно было...

Но вот решение

Код


    ActiveSheet.UsedRange.Select
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With

Автор: ArtNeoX 12.3.2006, 18:35

кидаеш не форматированные данные из своей программы в excel. Затем в экселе включаеш запись макроса. Делаеш со своей таблицей, что угодно, разлиновываеш, разукрашиваеш и т.п. Затем останавливаеш запись макроса.
Входиш в макрос и видиш готовый код для visual basic.
Выделяеш, копируеш и вставляеш в свой проект.
Вот и все.

Автор: Gannibal 12.3.2006, 23:46

свойство Count непоможет??

Автор: Akina 13.3.2006, 10:41

Справка по SpecialCells поможет узнать сколько строк и столбов заполнено данными.

Автор: batek 13.3.2006, 14:08

Akina, а где ее взять?

Автор: Akina 13.3.2006, 14:49

batek, надеюсь F1 у тебя на клавиатуре не сломана? набери в редакторе VBA вышеозначенное слово, поставь курсор в середину и нажми эту клавишу...
А можешь по форуму поиск сделать - тоже помогает.

Автор: Staruha 14.3.2006, 00:27

Да можно просто условным форматированием воспользоваться -если больше 0 и Hiden - True(скрыть пустые строки)
Эти вещи уже обсуждались.Поищи