ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Excel - обработка строк в макросе
18 сообщений из 18, страница 1 из 1
Excel - обработка строк в макросе
    #34634558
light_ret
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
light_ret
Участник
Здравствуйте!!

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

Большое спасибо!!!!!!
...
Рейтинг: 0 / 0
03.07.2007, 12:27
| Ответить | Цитировать | Написать  
Excel - обработка строк в макросе
    #34634648
light_ret
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
light_ret
Участник
Код: 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, 12:52
| Ответить | Цитировать | Написать  
Excel - обработка строк в макросе
    #34634686
Фотография gjghjc
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
gjghjc
Участник
Cells.Find(What:="Всього по клиенту").Activate
Selection.Font.Bold = True ' Выделит найденную ячейку жирным шрифтом

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

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

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


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

Макрос надо как-то запускать(чтоб он стартовал по открытию документа) или он автоматически выполняется?
...
Рейтинг: 0 / 0
03.07.2007, 14:37
| Ответить | Цитировать | Написать  
Excel - обработка строк в макросе
    #34635250
Фотография gjghjc
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
gjghjc
Участник
Public Sub AutoOpen() Вот спасенье! :)
Ну а если нужен запуск ручками то вешать макрос на кнопку.
С уважением, Николай.
...
Рейтинг: 0 / 0
03.07.2007, 15:12
| Ответить | Цитировать | Написать  
Excel - обработка строк в макросе
    #34635433
Фотография klen_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
klen_
Участник
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, 15:55
| Ответить | Цитировать | Написать  
Excel - обработка строк в макросе
    #34635558
light_ret
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
light_ret
Участник
klen_видимо у тебя несколько таких строк
и жирным шрифтом делаешь не только "Всего по клиенту", но и значения


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

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

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

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

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

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

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


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