cells

excel vbaの「cells」を簡単に説明しました。

excelのvbaをマスターしましょう！
excel vba 簡単・解決！ Homeへ
cells

excelのvbaで連続した「セル」のデータ入出力は、Cellsに対して行います。

cells(a,b)は、アクティブシートのa行b列のセルを意味するRangeオブジェクトのプロパティーです。
●excelのvbaを使用した自動化で、この　cells は、最も多く使用される命令の一つです。
理由は、cells(a, b)のa, bに数万回のFor ループやDo ループのインデックス番号を簡単に設定できるからです。

１．excel vba のcellsの基本
（１）Application.cells(intI, intJ).Value = intVar
（２）ActiveSheet.cells(intI, intJ).Value = intVar
（３）Worksheets("Sheet2").cells(intI, intJ).Value = intVar
（４）Range("A1:B3").cells(intI, intJ).Value = intVar　（※　Range("A1:B3").cells(1,1)が、セルA1です。）
以上の（１）、（２）では、ApplicationやActiveSheetを省略できます。

その結果、開いているシートに対して cells(I, J).Value = intK のように使用できます。

使用方法をexcelヘルプを引用し説明しました。

２．excel vba cellsの使用例
（１）シート 1 のセル C5 のフォント サイズを 14 ポイントに設定します。
Worksheets("Sheet1").Cells(5, 3).Font.Size = 14

（２）シート 1 のセル 1 の数式をクリアします。
Worksheets("Sheet1").Cells(1).ClearContents

（３）シート 1 のすべてのセルのフォントを 8 ポイントの Arial に設定します。
With Worksheets("Sheet1").Cells.Font
.Name = "Arial"
.Size = 8
End With

（４）シート 1 のセル範囲 A1:J4 に対してループを行い、
　　　セルの値が 0.001 未満の場合は、値を 0 (ゼロ) に置き換えます。
For rwIndex = 1 to 4
For colIndex = 1 to 10
With Worksheets("Sheet1").Cells(rwIndex, colIndex)
If .Value < .001 Then .Value = 0
End With
Next colIndex
Next rwIndex

（５）シート 1 のセル範囲 A1:C5 の書式を斜体に設定します。
Worksheets("Sheet1").Activate
Range(Cells(1, 1), Cells(5, 3)).Font.Italic = True

（６）myRange という名前の列を調べ、
　　　セルの値が 1 つ上のセルの値と同じ場合は、重複するデータを持つセルの参照を表示します。
Set r = Range("myRange")
For n = 1 To r.Rows.Count
If r.Cells(n, 1) = r.Cells(n + 1, 1) Then
MsgBox r.Cells(n + 1, 1).Address & "とデータが重複します。"
End If
Next n

excelのvbaをマスターしましょう。

excel vba 簡単・解決！ Homeへ