Excel VBA質問箱 IV

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

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


24765 / 76732 ←次へ | 前へ→

【57314】Re:文字の色の同期と循環参照について
発言  SS  - 08/8/6(水) 18:04 -

引用なし
パスワード
   こんばんは、ためしにこんなもの作ってみました。
行又は列が全て空欄の時のエラー回避処理はしていません。
中途半端ですが参考になれば幸いです。

Sub test()
  Dim i As Long, j As Long, k As Long
  For i = 1 To 11
    k = i + 1
    Cells(13, k).Value = Application.Max(Range(Cells(2, k), Cells(12, k)))
    j = Application.Match(Cells(13, k).Value, Range(Cells(2, k), Cells(12, k)))
    Cells(13, k).Font.ColorIndex = Cells(1 + j, k).Font.ColorIndex
    
    Cells(k, 13).Value = Application.Max(Range(Cells(k, 2), Cells(k, 12)))
    j = Application.Match(Cells(k, 13).Value, Range(Cells(k, 2), Cells(k, 12)))
    Cells(k, 13).Font.ColorIndex = Cells(k, 1 + j).Font.ColorIndex
  Next i
End Sub

0 hits

【57310】文字の色の同期と循環参照について なんじゃ、こりゃ・・・。 08/8/6(水) 11:48 質問
【57311】Re:文字の色の同期と循環参照について ひげくま 08/8/6(水) 11:57 発言
【57312】Re:文字の色の同期と循環参照について ハチ 08/8/6(水) 12:35 発言
【57313】Re:文字の色の同期と循環参照について なんじゃ、こりゃ・・・。 08/8/6(水) 15:08 発言
【57322】Re:文字の色の同期と循環参照について ハチ 08/8/7(木) 18:54 発言
【57368】Re:文字の色の同期と循環参照について なんじゃ、こりゃ・・・。 08/8/14(木) 18:56 発言
【57370】Re:文字の色の同期と循環参照について neptune 08/8/14(木) 19:27 発言
【57371】Re:文字の色の同期と循環参照について Yuki 08/8/15(金) 14:31 発言
【57372】Re:文字の色の同期と循環参照について なんじゃ、こりゃ・・・。 08/8/15(金) 22:12 発言
【57373】Re:文字の色の同期と循環参照について Yuki 08/8/16(土) 10:30 発言
【57387】Re:文字の色の同期と循環参照について なんじゃ、こりゃ・・・。 08/8/16(土) 22:39 発言
【57427】Re:文字の色の同期と循環参照について なんじゃ、こりゃ・・・。 08/8/21(木) 17:44 お礼
【57314】Re:文字の色の同期と循環参照について SS 08/8/6(水) 18:04 発言

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