セル名を変数とすることで，一気に編集を行えるようにしたい．

VBAについて質問です．
AI3を使用する箇所が，二か所あるため一気に編集が出来ればなと考えております．
上でAI3→AI2に変更したら二か所とも変わるようなプログラムにしたいです．

この場合以下のようなコードでいけるかと思ったのですが，動作してくれません．
間違っている箇所についてご指摘お願いします．
VBA初心者です．

Sub 建築用途チェック1_Click()
Dim R As Range　　　　　　
Set R = Range("AI3") !ここでセル名を変更すると下の二つに反映されるようにしたい．

If ActiveSheet.CheckBoxes("Check Box 1").Value = xlOn Then
    ActiveSheet.CheckBoxes("Check Box 2").Value = xlOff
    ActiveSheet.CheckBoxes("Check Box 3").Value = xlOff
    ActiveSheet.CheckBoxes("Check Box 4").Value = xlOff
    ActiveSheet.CheckBoxes("Check Box 5").Value = xlOff
    ActiveSheet.CheckBoxes("Check Box 6").Value = xlOff
    ActiveSheet.R.Value = Range("D3").Value
End If

If ActiveSheet.CheckBoxes("Check Box 1").Value = xlOff Then
    ActiveSheet.R.Value = ""
End If

End Sub

行動規範の内容に同意します

回答2件

質問に含まれていない部分ですが、AI3→AI2に変わった場合

Range("D3").Value

はそのままで問題ないですか？

Dim row As Integer
row = 2
Range("D" & row).Value

とか

'Cells(rowIndex, columnIndex).Value
Cells(2, 4).Value 'D列は4

とかいう書き方もできます。

カラム番号を確認したい場合は
オプション　＞　数式　＞　R1C1参照形式を使用する(R)
を設定してあげると、列番号のAが1に表記が変わります。

投稿2021/03/16 03:03

sinya0320

総合スコア211

ベストアンサー

Rはレンジオブジェクトですので、ActiveSheet. を付けてはいけません。

vba
1Sub 建築用途チェック1_Click()
2    Dim R As Range
3    Set R = ActiveSheet.Range("AI3")
4
5    If ActiveSheet.CheckBoxes("Check Box 1").Value = xlOn Then
6        ActiveSheet.CheckBoxes("Check Box 2").Value = xlOff
7        ActiveSheet.CheckBoxes("Check Box 3").Value = xlOff
8        ActiveSheet.CheckBoxes("Check Box 4").Value = xlOff
9        ActiveSheet.CheckBoxes("Check Box 5").Value = xlOff
10        ActiveSheet.CheckBoxes("Check Box 6").Value = xlOff
11        R.Value = Range("D3").Value
12    End If
13
14    If ActiveSheet.CheckBoxes("Check Box 1").Value = xlOff Then
15        R.Value = ""
16    End If
17End Sub