Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


37982 / 76732 ←次へ | 前へ→

【43896】変数の値を循環させて使用するには
質問  yata  - 06/10/28(土) 20:30 -

引用なし
パスワード
   こんばんは
皆様にはたびたびお世話になり大変ありがたく思っています。
コードの行数を短くするため、プログラムの中で変数を交換したいのですが、
教えて頂けませんか?
下記の様に変数の値を循環させて使用したいです。
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
1 hits

【43896】変数の値を循環させて使用するには yata 06/10/28(土) 20:30 質問
【43897】Re:変数の値を循環させて使用するには かみちゃん 06/10/28(土) 20:54 発言
【43898】Re:変数の値を循環させて使用するには yata 06/10/28(土) 21:03 発言
【43899】Re:変数の値を循環させて使用するには かみちゃん 06/10/28(土) 21:16 発言
【43901】Re:変数の値を循環させて使用するには yata 06/10/28(土) 22:08 質問
【43902】Re:変数の値を循環させて使用するには Hirofumi 06/10/28(土) 22:14 回答
【43903】Re:変数の値を循環させて使用するには yata 06/10/28(土) 23:27 質問
【43904】Re:変数の値を循環させて使用するには Hirofumi 06/10/29(日) 1:09 回答
【43907】Re:変数の値を循環させて使用するには Hirofumi 06/10/29(日) 6:39 回答
【43908】Re:変数の値を循環させて使用するには yata 06/10/29(日) 8:26 お礼
【43913】Re:結果報告 yata 06/10/29(日) 16:55 お礼

37982 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free