Модераторы: mihanik
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> посчитать строки и столбцы в excel 
:(
    Опции темы
batek
Дата 12.3.2006, 15:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 47
Регистрация: 22.2.2006

Репутация: нет
Всего: нет



такая тема некая программа импортирует данные в таблуцу excel;
необходимо посчитать количество столбцов и количество строк которые заполнились и затем начертить таблицу или каким либо другим методом расчертить табличку
PM MAIL   Вверх
Naghual
Дата 12.3.2006, 16:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 7
Всего: 49



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


--------------------
Я желаю всем Счастья!
PM ICQ Skype   Вверх
batek
Дата 12.3.2006, 17:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 47
Регистрация: 22.2.2006

Репутация: нет
Всего: нет



ну допустим есть какие то данные в таблице 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|
---------------------------------------------------------------------------------


PM MAIL   Вверх
Naghual
Дата 12.3.2006, 18:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 7
Всего: 49



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

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

    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



--------------------
Я желаю всем Счастья!
PM ICQ Skype   Вверх
ArtNeoX
Дата 12.3.2006, 18:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 125
Регистрация: 23.10.2005

Репутация: нет
Всего: нет



кидаеш не форматированные данные из своей программы в excel. Затем в экселе включаеш запись макроса. Делаеш со своей таблицей, что угодно, разлиновываеш, разукрашиваеш и т.п. Затем останавливаеш запись макроса.
Входиш в макрос и видиш готовый код для visual basic.
Выделяеш, копируеш и вставляеш в свой проект.
Вот и все.
PM MAIL   Вверх
Gannibal
Дата 12.3.2006, 23:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 742
Регистрация: 15.4.2003
Где: 010101

Репутация: нет
Всего: 17



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


--------------------
Я родился в этом безумном мире - и Я сделаю всё чтобы в нём выжить!
PM MAIL ICQ   Вверх
Akina
Дата 13.3.2006, 10:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 26
Всего: 454



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


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
batek
Дата 13.3.2006, 14:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 47
Регистрация: 22.2.2006

Репутация: нет
Всего: нет



Akina, а где ее взять?
PM MAIL   Вверх
Akina
Дата 13.3.2006, 14:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 26
Всего: 454



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


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
Staruha
Дата 14.3.2006, 00:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1292
Регистрация: 1.2.2004
Где: Казань

Репутация: 13
Всего: 27



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

Это сообщение отредактировал(а) Staruha - 14.3.2006, 00:28


--------------------
Возмездие настигнет
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Программирование, связанное с MS Office"
mihanik staruha

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

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



  • Несанкционированная реклама на форуме запрещена
  • Пожалуйста, давайте своим темам осмысленный, информативный заголовок. Вопль "Помогите!" таковым не является.
  • Чем полнее и яснее Вы изложите проблему, тем быстрее мы её решим.
  • Оставляйте свои записи в "Книге отзывов о работе администрации"
  • А вот тут лежит FAQ нашего подраздела


Если Вам понравилась атмосфера форума, заходите к нам чаще!
С уважением mihanik и staruha.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Программирование, связанное с MS Office | Следующая тема »


 




[ Время генерации скрипта: 0.1060 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.