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

トップ   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS