|
こんばんは
皆様にはたびたびお世話になり大変ありがたく思っています。
コードの行数を短くするため、プログラムの中で変数を交換したいのですが、
教えて頂けませんか?
下記の様に変数の値を循環させて使用したいです。
Case "い" の左辺c1〜c3 とCsae "う" の左辺b1〜c3にうまく設定できません。
最初に変数名を別のもの(aa1="A1",aa2="A2",.....cc3="C3" )に
して代入するしかありませんか?
実際はRange("b1")のところが If 分岐で3回それぞれ60行で合計180行位の
冗長なコードになって困っております。
Sub 変数入れ替え()
a1 = "A1"
a2 = "A2"
a3 = "A3"
b1 = "B1"
b2 = "B2"
b3 = "B3"
c1 = "C1"
c2 = "C2"
c3 = "C3"
Select Case Range("a1")
Case "い"
a1 = b1
a2 = b2
a3 = b3
b1 = c1
b2 = c2
b3 = c3
c1 = a1 'ここから
c2 = a2
c3 = a3
Case "う"
a1 = c1
a2 = c2
a3 = c3
b1 = a1 'ここから
b2 = a2
b3 = a3
c1 = b1
c2 = b2
c3 = b3
End Select
Range("b1") = a1 & a2 & a3 & b1 & b2 & b3 & c1 & c2 & c3
End Sub
|
|