Excel VBA質問箱 IV

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

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


30130 / 76732 ←次へ | 前へ→

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

引用なし
パスワード
   カスミ さん、おはようございます。

>セル1B〜1CZまで横一列、セル2A〜104Aまで縦一列にそれぞれ項目名の記号をA〜CYという具合に記述します。(対応する2点の名称)

B1〜CZ1と、A2〜A104ということで、

 ■123
 1■45
 24■6
 356■

とそれぞれの数値を比較したいということでしょうか?

Sub test()
  Dim II As Long, JJ As Long
  '
  For II = 2 To 104
   For JJ = II To 104
     If II = JJ Then
      '中央線
      Cells(II, JJ).Value = 0
     Else
      '行列をひっくり返したセルを比較
      If Cells(II, JJ).Value > Cells(JJ, II).Value Then
        '大きい場合は入れる
        Cells(II, JJ).Value = Cells(JJ, II).Value
      Else
        'それ以外は逆
        Cells(JJ, II).Value = Cells(II, 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 お礼

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