Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

30107 / 76732

←次へ　｜　前へ→


	【51895】Re:対称位置にあるセルの大小判定

りん

- 07/10/9(火) 20:53 -


	引用なし

	パスワード

カスミさん、こんばんわ。

>ちなみに今の理論でA2～A104ではなくA105～A207といったように行の始まりをA105以降にするにはどうしたらよいでしょうか…
>
>　　　1B1C…
>A105　■１２３
>A106　１■４５
>A107　２４■６
>A108　３５６■

表の位置を行方向にずらすための変数を一つ追加します。

Sub test()
　 Dim II As Long, JJ As Long
　 Dim KK As Long
　 '
　 KK = 103 '2を足すと105
　 '
　 For II = 2 To 104
　　　For JJ = II To 104
　　　　 If II = JJ Then
　　　　　　'中央線
　　　　　　Cells(II + KK, JJ).Value = 0
　　　　 Else
　　　　　　'行列をひっくり返したセルを比較
　　　　　　If Cells(II + KK, JJ).Value > Cells(JJ + KK, II).Value Then
　　　　　　　 '大きい場合は入れる
　　　　　　　 Cells(II + KK, JJ).Value = Cells(JJ + KK, II).Value
　　　　　　Else
　　　　　　　 'それ以外は逆
　　　　　　　 Cells(JJ + KK, II).Value = Cells(II + KK, JJ).Value
　　　　　　End If
　　　　 End If
　　　Next
　 Next
End Sub

こんな感じです。

1 hits

▼

【51871】対称位置にあるセルの大小判定 カスミ 07/10/8(月) 21:47