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
  • 実行前
    12345
    112345
    2678910
    31112131415
    41617181920
    52122232425
  • 実行後
    12345
    116111621
    227121722
    338131823
    449141924
    5510152025


トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2017-05-03 (水) 07:10:11 (53d)