Excel VBA質問箱 IV

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

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


30107 / 76732 ←次へ | 前へ→

【51895】Re:対称位置にあるセルの大小判定
回答  りん E-MAIL  - 07/10/9(火) 20:53 -

引用なし
パスワード
   カスミ さん、こんばんわ。

>ちなみに今の理論でA2〜A104ではなくA105〜A207といったように行の始まりをA105以降にするにはどうしたらよいでしょうか…
>
>   1B1C…
>A105 ■123
>A106 1■45
>A107 24■6
>A108 356■

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

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

こんな感じです。

0 hits

【51871】対称位置にあるセルの大小判定 カスミ 07/10/8(月) 21:47 質問
【51872】Re:対称位置にあるセルの大小判定 りん 07/10/9(火) 7:33 回答
【51885】Re:対称位置にあるセルの大小判定 カスミ 07/10/9(火) 15:24 お礼
【51895】Re:対称位置にあるセルの大小判定 りん 07/10/9(火) 20:53 回答
【51896】Re:対称位置にあるセルの大小判定 カスミ 07/10/9(火) 22:31 お礼

30107 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free