Range("A1")
'***************************************************************************************************
'* 処理名 :TEST
'* 機能 :セルの値をメッセージ表示するサンプル
'---------------------------------------------------------------------------------------------------
'* 返り値 :(なし)
'* 引数 :(なし)
'---------------------------------------------------------------------------------------------------
'* 作成日 :2004年02月11日
'* 作成者 :井上 治
'* 更新日 :2020年01月17日
'* 更新者 :井上 治
'* 機能説明:
'* 注意事項:シートを明示していないのでアクティブなシートに対して作用します
'***************************************************************************************************
Sub TEST()
'-----------------------------------------------------------------------------------------------
MsgBox Range("A1").Value
End Sub
'***************************************************************************************************
'* 処理名 :TEST
'* 機能 :セルの値をメッセージ表示するサンプル
'---------------------------------------------------------------------------------------------------
'* 返り値 :(なし)
'* 引数 :(なし)
'---------------------------------------------------------------------------------------------------
'* 作成日 :2004年02月11日
'* 作成者 :井上 治
'* 更新日 :2020年01月17日
'* 更新者 :井上 治
'* 機能説明:
'* 注意事項:シートを明示していないのでアクティブなシートに対して作用します
'***************************************************************************************************
Sub TEST()
'-----------------------------------------------------------------------------------------------
Dim objR As Range ' 対象セル
Set objR = Range("A1")
MsgBox objR.Value
End Sub
'***************************************************************************************************
'* 処理名 :TEST1
'* 機能 :セルの各プロパティをメッセージ表示するサンプル①
'---------------------------------------------------------------------------------------------------
'* 返り値 :(なし)
'* 引数 :(なし)
'---------------------------------------------------------------------------------------------------
'* 作成日 :2004年02月11日
'* 作成者 :井上 治
'* 更新日 :2020年01月17日
'* 更新者 :井上 治
'* 機能説明:
'* 注意事項:シートを明示していないのでアクティブなシートに対して作用します
'***************************************************************************************************
Sub TEST1()
'-----------------------------------------------------------------------------------------------
MsgBox Range("A1").Value & vbCr & _
Range("A1").Address & vbCr & _
Range("A1").Row & vbCr & _
Range("A1").Column & vbCr & _
Range("A1").RowHeight & vbCr & _
Range("A1").ColumnWidth
End Sub
'***************************************************************************************************
'* 処理名 :TEST2
'* 機能 :セルの各プロパティをメッセージ表示するサンプル②
'---------------------------------------------------------------------------------------------------
'* 返り値 :(なし)
'* 引数 :(なし)
'---------------------------------------------------------------------------------------------------
'* 作成日 :2004年02月11日
'* 作成者 :井上 治
'* 更新日 :2020年01月17日
'* 更新者 :井上 治
'* 機能説明:
'* 注意事項:シートを明示していないのでアクティブなシートに対して作用します
'***************************************************************************************************
Sub TEST2()
'-----------------------------------------------------------------------------------------------
Dim objR As Range ' 対象セル
Set objR = Range("A1")
MsgBox objR.Value & vbCr & _
objR.Address & vbCr & _
objR.Row & vbCr & _
objR.Column & vbCr & _
objR.RowHeight & vbCr & _
objR.ColumnWidth
End Sub
'***************************************************************************************************
'* 処理名 :TEST3
'* 機能 :セルの各プロパティをメッセージ表示するサンプル③
'---------------------------------------------------------------------------------------------------
'* 返り値 :(なし)
'* 引数 :(なし)
'---------------------------------------------------------------------------------------------------
'* 作成日 :2004年02月11日
'* 作成者 :井上 治
'* 更新日 :2020年01月17日
'* 更新者 :井上 治
'* 機能説明:
'* 注意事項:シートを明示していないのでアクティブなシートに対して作用します
'***************************************************************************************************
Sub TEST3()
'-----------------------------------------------------------------------------------------------
With Range("A1")
MsgBox .Value & vbCr & _
.Address & vbCr & _
.Row & vbCr & _
.Column & vbCr & _
.RowHeight & vbCr & _
.ColumnWidth
End With
End Sub
'***************************************************************************************************
'* 処理名 :TEST4
'* 機能 :セルの各プロパティをメッセージ表示するサンプル④
'---------------------------------------------------------------------------------------------------
'* 返り値 :(なし)
'* 引数 :(なし)
'---------------------------------------------------------------------------------------------------
'* 作成日 :2004年02月11日
'* 作成者 :井上 治
'* 更新日 :2020年01月17日
'* 更新者 :井上 治
'* 機能説明:
'* 注意事項:シートを明示していないのでアクティブなシートに対して作用します
'***************************************************************************************************
Sub TEST4()
'-----------------------------------------------------------------------------------------------
Dim objR As Range ' 対象セル
Set objR = Cells(1, 1)
MsgBox objR.Value & vbCr & _
objR.Address & vbCr & _
objR.Row & vbCr & _
objR.Column & vbCr & _
objR.RowHeight & vbCr & _
objR.ColumnWidth
End Sub
'***************************************************************************************************
'* 処理名 :TEST5
'* 機能 :セル範囲に値をセットするサンプル①
'---------------------------------------------------------------------------------------------------
'* 返り値 :(なし)
'* 引数 :(なし)
'---------------------------------------------------------------------------------------------------
'* 作成日 :2004年02月11日
'* 作成者 :井上 治
'* 更新日 :2020年01月17日
'* 更新者 :井上 治
'* 機能説明:
'* 注意事項:シートを明示していないのでアクティブなシートに対して作用します
'***************************************************************************************************
Sub TEST5()
'-----------------------------------------------------------------------------------------------
Dim objR As Range ' 対象セル範囲
Set objR = Range("A1:D5")
objR.Value = "aaa"
End Sub
'***************************************************************************************************
'* 処理名 :TEST6
'* 機能 :セル範囲に値をセットするサンプル②
'---------------------------------------------------------------------------------------------------
'* 返り値 :(なし)
'* 引数 :(なし)
'---------------------------------------------------------------------------------------------------
'* 作成日 :2004年02月11日
'* 作成者 :井上 治
'* 更新日 :2020年01月17日
'* 更新者 :井上 治
'* 機能説明:
'* 注意事項:シートを明示していないのでアクティブなシートに対して作用します
'***************************************************************************************************
Sub TEST6()
'-----------------------------------------------------------------------------------------------
Dim objR As Range ' 対象セル範囲
Set objR = Range(Cells(1, 1), Cells(5, 4))
objR.Value = "aaa"
End Sub
'***************************************************************************************************
'* 処理名 :TEST7
'* 機能 :セル範囲に値をセットするサンプル③
'---------------------------------------------------------------------------------------------------
'* 返り値 :(なし)
'* 引数 :(なし)
'---------------------------------------------------------------------------------------------------
'* 作成日 :2004年02月11日
'* 作成者 :井上 治
'* 更新日 :2020年01月17日
'* 更新者 :井上 治
'* 機能説明:
'* 注意事項:シートを明示していないのでアクティブなシートに対して作用します
'***************************************************************************************************
Sub TEST7()
'-----------------------------------------------------------------------------------------------
Dim objR As Range ' 対象セル範囲
Set objR = Range("A1").Resize(5, 4)
objR.Value = "aaa"
End Sub
'***************************************************************************************************
'* 処理名 :TEST8
'* 機能 :セル範囲に値をセットするサンプル④
'---------------------------------------------------------------------------------------------------
'* 返り値 :(なし)
'* 引数 :(なし)
'---------------------------------------------------------------------------------------------------
'* 作成日 :2004年02月11日
'* 作成者 :井上 治
'* 更新日 :2020年01月17日
'* 更新者 :井上 治
'* 機能説明:
'* 注意事項:シートを明示していないのでアクティブなシートに対して作用します
'***************************************************************************************************
Sub TEST8()
'-----------------------------------------------------------------------------------------------
Dim objR As Range ' 起点セル
Dim objR2 As Range ' 対象セル範囲
Set objR = Range("A1")
Set objR2 = objR.Resize(5, 4)
objR2.Value = "aaa"
End Sub
'***************************************************************************************************
'* 処理名 :TEST9
'* 機能 :セル範囲に値をセットするサンプル⑤
'---------------------------------------------------------------------------------------------------
'* 返り値 :(なし)
'* 引数 :(なし)
'---------------------------------------------------------------------------------------------------
'* 作成日 :2004年02月11日
'* 作成者 :井上 治
'* 更新日 :2020年01月17日
'* 更新者 :井上 治
'* 機能説明:
'* 注意事項:シートを明示していないのでアクティブなシートに対して作用します
'***************************************************************************************************
Sub TEST9()
'-----------------------------------------------------------------------------------------------
Dim objR As Range ' 起点セル
Dim objR2 As Range ' 対象セル範囲
Dim objR3 As Range ' 対象セル範囲(移動後)
Set objR = Range("A1")
Set objR2 = objR.Resize(5, 4)
Set objR3 = objR2.Offset(1, 1)
objR3.Value = "aaa"
End Sub
'***************************************************************************************************
'* 処理名 :TEST10
'* 機能 :セル範囲に値をセットするサンプル⑥
'---------------------------------------------------------------------------------------------------
'* 返り値 :(なし)
'* 引数 :(なし)
'---------------------------------------------------------------------------------------------------
'* 作成日 :2004年02月11日
'* 作成者 :井上 治
'* 更新日 :2020年01月17日
'* 更新者 :井上 治
'* 機能説明:
'* 注意事項:シートを明示していないのでアクティブなシートに対して作用します
'***************************************************************************************************
Sub TEST10()
'-----------------------------------------------------------------------------------------------
Dim objR As Range ' 対象セル範囲
Set objR = Range("A1").Resize(5, 4).Offset(1, 1)
objR.Value = "aaa"
End Sub
'***************************************************************************************************
'* 処理名 :TEST11
'* 機能 :セル範囲に値をセットするサンプル⑦
'---------------------------------------------------------------------------------------------------
'* 返り値 :(なし)
'* 引数 :(なし)
'---------------------------------------------------------------------------------------------------
'* 作成日 :2004年02月11日
'* 作成者 :井上 治
'* 更新日 :2020年01月17日
'* 更新者 :井上 治
'* 機能説明:
'* 注意事項:シートを明示していないのでアクティブなシートに対して作用します
'***************************************************************************************************
Sub TEST11()
'-----------------------------------------------------------------------------------------------
Dim objR As Range ' 対象セル範囲
Set objR = Range("A1").Offset(1, 1).Resize(5, 4)
objR.Value = "aaa"
End Sub