ExcelVBA学習2日目

ブックを上書き保存する

 Sub WorkbookSave()

Dim Response As Integer

Response = MsgBox("Do you save this " & ActiveWorkbook.FullName & "?", vbYesNo + vbQuestion, "check")
If Response = vbYes Then
ActiveWorkbook.Save
End If

End Sub

▼Rangeオブジェクト

Rangオブジェクトとは、「セル」のことを意味する。

通常は同一のオブジェクトが集まったものをコレクションオブジェクトというが、Rangeオブジェクトにはコレクションは存在しない。

しかし、状況によって単独のセル以外にもセル範囲、行、列などの複数のセルの集まりも1つのRangeオブジェクトとして扱う。

▼セル範囲の選択

Sub RangeObj()

Range("A1").Select
MsgBox "cell"
Range("A1:C3").Select
MsgBox "Range of cells"
Range("A1:C3,D4:F6").Select
MsgBox "not connected Ranges!"
End Sub

▼セル範囲に名前を付ける

セル範囲を指定するときはA1形式、R1C1形式、インデックス番号などを使用するが、セル範囲に名前を付けると直接その名前を参照先にすることができる。

Sub SelectNamedCell()

Worksheets("Sheet4").Activate

Range("A1:C3").Name = "CellArea"
Range("CellArea").Value = "HappyLuckey"

End Sub