Memo/2004-06-14
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
単語検索
|
最終更新
|
ヘルプ
]
開始行:
#contents
*Excel 関連情報 [#b3d79f75]
**サンプルコード [#v66d602f]
***縦軸と横軸を入れ替えるサンプル [#obed7603]
' 縦軸と横軸を入れ替えるサンプル
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 +...
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
終了行:
#contents
*Excel 関連情報 [#b3d79f75]
**サンプルコード [#v66d602f]
***縦軸と横軸を入れ替えるサンプル [#obed7603]
' 縦軸と横軸を入れ替えるサンプル
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 +...
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
ページ名: