Memo/2004-06-14

Excel 関連情報 †

サンプルコード †

縦軸と横軸を入れ替えるサンプル †

' 縦軸と横軸を入れ替えるサンプル
Sub XYSwap()
    Const X_MAX = 5 ' X軸の最大値
    Const Y_MAX = 5 ' Y軸の最大値
    Const X_BASE = 2 ' X軸のベース
    Const Y_BASE = 13 ' Y軸のベース
        
    Dim nX
    Dim nY
    Dim nValue
    ' 横軸（X軸）のループ
    For nX = 0 To X_MAX - 1
        ' 縦軸（Y軸）のループ
        For nY = nX To Y_MAX - 1
            ' 座標をスワップ
            nValue = Cells(nY + Y_BASE, nX + X_BASE)
            Cells(nY + Y_BASE, nX + X_BASE) = Cells(nX + Y_BASE, nY + X_BASE)
            Cells(nX + Y_BASE, nY + X_BASE) = nValue
        Next
    Next
End Sub

• 実行前

  	1	2	3	4	5
  1	1	2	3	4	5
  2	6	7	8	9	10
  3	11	12	13	14	15
  4	16	17	18	19	20
  5	21	22	23	24	25

• 実行後

  	1	2	3	4	5
  1	1	6	11	16	21
  2	2	7	12	17	22
  3	3	8	13	18	23
  4	4	9	14	19	24
  5	5	10	15	20	25

• はてな
  • http://www.hatena.ne.jp/1087199441