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

Есть в Excel таблица со значениями. Нужно на VB написать такой скрипт, который бы перебирал подряд ячейки в столбце и выделял жирным шрифтом те ячейки, значения которых, к примеру, больше заданного значения. Дожно получиться что-то вроде:

Код: plaintext
1.
2.
3.
4.
5.
6.
For Range()... =  1  To  200 
      If Range ... > "4" Then
        Range().Select
        Selection.Font.Bold = True
      End If
Next

Только это неправильный код. Что надо писать?
...
Рейтинг: 0 / 0
09.07.2006, 01:01
| Ответить | Цитировать | Написать  
Проверка значения ячеек подряд в Excel
    #33840446
Отчаянный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отчаянный
Гость
Только задал вопрос как его уже решил ( до этого искал ответ около часа :-/ )

Правильный ответ
Код: plaintext
1.
2.
3.
4.
5.
6.
     For i =  1  To  10 
      If Cells(i,  1 ).Value >  4  Then
        Cells(i,  1 ).Select
        Selection.Font.Bold = True
      End If
     Next i

Уважаемый модератор! Если вы посчитаете что никому эта ветка неинтересна, можете её удалить - для себя я уже нашёл решение.
...
Рейтинг: 0 / 0
09.07.2006, 01:12
| Ответить | Цитировать | Написать  
Проверка значения ячеек подряд в Excel
    #33840457
Озадачен
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Озадачен
Гость
Хотя ещё один вопрос всё-таки есть.

Что делать, если количество строк неизвестно? Нужно обработать все строки, содержащие значения, но число строк вариативно?
...
Рейтинг: 0 / 0
09.07.2006, 01:44
| Ответить | Цитировать | Написать  
Проверка значения ячеек подряд в Excel
    #33841137
Ashton
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ashton
Гость
Можешь воспользоваться методом SpecialCells для определения последней строки. И старайся не пользоваться свойством Selection.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Public Sub X()
    Dim lngI As Long
    Dim lngLast As Long
    
    lngLast = Cells( 1 ,  1 ).SpecialCells(xlCellTypeLastCell).Row
    
    For lngI =  1  To lngLast
        If Cells(lngI,  1 ).Value >  4  Then
            Cells(lngI,  1 ).Font.Bold = True
        End If
    Next lngI
End Sub
...
Рейтинг: 0 / 0
10.07.2006, 09:05
| Ответить | Цитировать | Написать  
Проверка значения ячеек подряд в Excel
    #33841300
Фотография HandKot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
HandKot
Участник
А "условное форматирование" не пожойдет?
...
Рейтинг: 0 / 0
10.07.2006, 10:26
| Ответить | Цитировать | Написать  
Проверка значения ячеек подряд в Excel
    #33842092
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
SpecialCells некорректно работает - тынц
...
Рейтинг: 0 / 0
10.07.2006, 13:20
| Ответить | Цитировать | Написать  
Проверка значения ячеек подряд в Excel
    #33842784
Неотчаянный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Неотчаянный
Гость
AshtonМожешь воспользоваться методом SpecialCells для определения последней строки.

Спасибо! Метод работает.

Ashton
И старайся не пользоваться свойством Selection.

Да кто-ж его знает, чем там лучше пользоваться. Это-ж ВижуалБейсик. Тут ведь пока форум и MSDN не почитаешь - проблему самостоятельно не решишь.


HandKotА "условное форматирование" не пожойдет?
Нет. В цикле будет много других условий.

big-dukeSpecialCells некорректно работает -
Плохо. Прочитал ту ветку: так и знал что ничего в этой жизни просто не бывает. Спасибо за предупреждение.
...
Рейтинг: 0 / 0
10.07.2006, 15:44
| Ответить | Цитировать | Написать  
7 сообщений из 7, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Проверка значения ячеек подряд в Excel
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=33841137&tid=2165604]:
 0ms
get settings:
 8ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 170ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 43ms
get tp. blocked users:
 1ms
others: 198ms
total:  454ms
созд. / загр.: 454ms
x
x
Закрыть


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