Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Excel - обработка строк в макросе / 18 сообщений из 18, страница 1 из 1
03.07.2007, 12:27
    #34634558
light_ret
light_ret
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel - обработка строк в макросе
Здравствуйте!!

С макросами в Excel, да и с VB сталкиваюсь впервые.
Есть отчет такого типа, как я прикрепил.
Необходимо строку, в которой "Всього по клієнту" (Всего по клиенту) сделать жирным шрифтом.
Подскажите, как это сделать.

Большое спасибо!!!!!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.07.2007, 12:52
    #34634648
light_ret
light_ret
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel - обработка строк в макросе
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
For Each c In Range("field")
      If c.ColumnWidth > ColumnWidthMax Then
        c.ColumnWidth = ColumnWidthMax
      End If
      'displayformat
      If Cells(c.row +  3 , c.Column).Value <> "" Then
        Cells(c.row +  1 , c.Column).NumberFormat = Cells(c.row +  3 , c.Column).Value
        Cells(c.row +  3 , c.Column).Value = ""
      End If
    Next c
Я так понял это именно та часть в моем макросе в которой идет обратотка строк, согласно вытянутых данных из с.
Или я ошибаюсь?
То есть мне просто достаточно взять свою ячейку и сделать ее "жирной"?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.07.2007, 13:01
    #34634686
gjghjc
gjghjc
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel - обработка строк в макросе
Cells.Find(What:="Всього по клиенту").Activate
Selection.Font.Bold = True ' Выделит найденную ячейку жирным шрифтом

С уважением, Николай.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.07.2007, 13:22
    #34634795
light_ret
light_ret
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel - обработка строк в макросе
gjghjcCells.Find(What:="Всього по клиенту").Activate
Selection.Font.Bold = True ' Выделит найденную ячейку жирным шрифтом

С уважением, Николай.

Это в цикле надо написать или просто где-то в макросе?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.07.2007, 14:05
    #34634995
klen_
klen_
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel - обработка строк в макросе
в модуле того листа, где будешь искать
Код: plaintext
1.
2.
3.
Sub Макрос_Листа1()
   Cells.Find(What:="Всього по клиенту").Activate
   Selection.Font.Bold = True ' Выделит найденную ячейку жирным шрифтом
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.07.2007, 14:37
    #34635122
light_ret
light_ret
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel - обработка строк в макросе
klen_в модуле того листа, где будешь искать


Возможно это глупость, но именно так и сделал: создал макрос и в нем написа тот ко, что Вы привели:
Код: plaintext
1.
2.
Cells.Find(What:="Всього по клиенту").Activate
   Selection.Font.Bold = True ' Выделит найденную ячейку жирным шрифтом
Желаемого эфекта нет

Макрос надо как-то запускать(чтоб он стартовал по открытию документа) или он автоматически выполняется?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.07.2007, 15:12
    #34635250
gjghjc
gjghjc
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel - обработка строк в макросе
Public Sub AutoOpen() Вот спасенье! :)
Ну а если нужен запуск ручками то вешать макрос на кнопку.
С уважением, Николай.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.07.2007, 15:55
    #34635433
klen_
klen_
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel - обработка строк в макросе
light_retЖелаемого эфекта нетвидимо у тебя несколько таких строк
и жирным шрифтом делаешь не только "Всего по клиенту", но и значения
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Sub Макрос1()
    With UsedRange
         RowMax = .Rows.Count + .Row -  1     ' номер последней строки
         For i =  1  To RowMax
            If .Cells(i,  1 ) = "Всего по клиенту" Then
               .Cells(i,  1 ).Font.Bold = True
               .Cells(i,  3 ).Font.Bold = True
               .Cells(i,  4 ).Font.Bold = True
            End If
         Next
    End With
End Sub
смотри вложение
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.07.2007, 16:23
    #34635558
light_ret
light_ret
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel - обработка строк в макросе
klen_видимо у тебя несколько таких строк
и жирным шрифтом делаешь не только "Всего по клиенту", но и значения


Именно так и есть количество "Всего по клиенту" может быть много (до 1000), и делать мне действительно всю строку надо "жирной".

Спасибо БОЛЬШОЕ ЗА ПРИМЕР!!!!!!!!!!
Правда исходя из моих не больших знаний в VBA применить правильно не удалось.
Ошибку прикрепил
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.07.2007, 16:36
    #34635620
light_ret
light_ret
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel - обработка строк в макросе
Нашел свою ошибку.
Правда теперь вылазит другая
"9": Subscript out of range
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.07.2007, 16:43
    #34635649
Deggasad
Deggasad
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel - обработка строк в макросе
light_retНашел свою ошибку.
Правда теперь вылазит другая
"9": Subscript out of range
Смотри файл
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.07.2007, 17:03
    #34635742
light_ret
light_ret
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel - обработка строк в макросе
В моих руках макросы работать отказываются.
Прикрепил файлик, где куча моих попыток, но ни одна не работает.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.07.2007, 17:18
    #34635811
Deggasad
Deggasad
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel - обработка строк в макросе
light_retВ моих руках макросы работать отказываются.
Прикрепил файлик, где куча моих попыток, но ни одна не работает.

Неужто и мой не сработал???
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.07.2007, 17:19
    #34635820
gjghjc
gjghjc
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel - обработка строк в макросе
Смотри!
1.
Код: plaintext
If .Cells(i,  1 ).Text = "Всього по клієнту:" Then
Ищет заданный текст в i - той строке СТОЛБЦА "А"
У тебя же данные располагаются в СТОЛБЦЕ "B"
Поэтому ничего и не работает!
2. Я бы не называл свою процедуру зарезервированным словом bold переименуй ее в My_Bold например (это я о том что у тебя находится в Module2)

С уважением, Николай.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.07.2007, 17:30
    #34635855
gjghjc
gjghjc
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel - обработка строк в макросе
2Deggasad прикольная штучка, только для нормального употребления твою подпрограммку имхо лучше всего запихать в Personal.xls
2light_ret Что-то не нашел личных сообщений, поэтому пишу тут. Как сотрудник банка коллеге (я правильно угадал род твоей деятельности???) говорю тебе, что дал бы по ушам за ИНН клиентов выложенные в сети....... Если конечно они реальные......

С уважением, Николай.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.07.2007, 17:33
    #34635867
Deggasad
Deggasad
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel - обработка строк в макросе
Лови сотрудник банка
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.07.2007, 17:37
    #34635884
light_ret
light_ret
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel - обработка строк в макросе
gjghjcговорю тебе, что дал бы по ушам за ИНН клиентов выложенные в сети....... Если конечно они реальные......

С уважением, Николай.

Затрещину принимаю.
Хотя, данные тестовые, поэтому степень их достоверности равна 5%.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.07.2007, 18:04
    #34635985
light_ret
light_ret
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel - обработка строк в макросе
DeggasadЛови
gjghjcЛови
Теперь я нашел свои ошибки - все работает.
БОЛЬШОЕ СПАСИБО!!!!!
Прошу извинить меня за излишнюю надоедливость - завтра достану книгу по VB и буду изучать.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Excel - обработка строк в макросе / 18 сообщений из 18, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 524ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2163775]:
 0ms
get settings:
 7ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 222ms
get topic data:
 6ms
get forum data:
 2ms
get page messages:
 31ms
get tp. blocked users:
 1ms
others: 235ms
total:  524ms
x
x
Закрыть


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