Работа с отдельными ячейками диапазона / VBA для чайников / Библиотека (книги, учебники и журналы) / В помощь Веб-Мастеру

Обложка
Аннотация

Стив Каммингс i

Книги автора: VBA для чайников

/ White Cat i

Книги автора: Введение в Python Описание языка PascalABC.NET S. D. F. Справочкик по JavaScript Справочник по CSS Справочник по PHP Справочник по Flash Язык программирования Euphoria. Справочное руководство Программирование на Java Основы программирования на Java Графика DirectX в Delphi VBA для чайников Мир InterBase. Архитектура, администрирование и разработка приложений баз данных в InterBase/FireBird/Yaffil Фундаментальные алгоритмы и структуры данных в Delphi Курс "Язык программирования PHP"

Книга: VBA для чайников

Работа с отдельными ячейками диапазона

Хотя можно с помощью одного оператора назначить одно значение всем ячейкам диапазона, как показано в предыдущем примере, в Excel нет метода, позволяющего с помощью единственного действия изменять имеющиеся значения многоячеечного диапазона. Оператор вроде someRange .Value = someRange . Value + 10 не работает. Вместо этого необходимо осуществить циклический перебор всех ячеек диапазона с помощью цикла For Each. . , Next. При использовании данной техники не требуется знание количества ячеек, входящих в диапазон. Вот пример работоспособного кода:


For Each aCell In Selection
aCell.Value = aCell.Value + 10
Next

Часто перед тем, как принять решение о выполнении действия над отдельной ячейкой или о вообще о выборе действия, требуется проверка содержимого ячейки. Основываясь на текущем значении ячейки, код может принять решение о форматировании ячейки, изменении ее значения или же использовании данного значения для выполнения других вычислений. В таком случае также используется цикл For Each . . . Next:


For Each aCell In Worksheets("2").Range("A5;B10")
      If IsNumeric(aCell) Then
            Select Case aCell
                  Case 5 to 10
                        aCell.Font.Underline = xlUnderlineStyleSingle
                  Case 10 to 20
                        aCell.Font.Italic = True
    
        
            
                
                    
                        
                            
                            
                            
                        
                    
                
            
            
	    

                  Case Is > 20
                        aCell.Font.Bold = True
            End Select
      End If
Next

Оглавление книги

Оглавление статьи/книги

Похожие страницы