Memo/2004-06-14 のバックアップ差分(No.1)

追加された行はこの色です。
削除された行はこの色です。

#contents

*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

#comment