Excel VBA質問箱 IV

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

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


42621 / 76732 ←次へ | 前へ→

【39175】Re:Inputboxでなくリストにするには
発言  Jaka  - 06/6/19(月) 15:50 -

引用なし
パスワード
   ▼にしもり さん:
>わたしは、何か書き込んだそのセルで発生したイベントがすべて終わったそのあとで、あらためてひとつひとつのセルに条件に応じて色付けをしようとしています。(それがまっとうなやり方かどうかは自信ありません。)
発生したイベントが全て終わった後って、どんな順番やタイミングで処理されているのかわからないので何ともいえませんが、ループはこんな感じで良いんじゃないかと

Dim FLG As Boolean, Cel As Range
MyRow = ActiveSheet.Range("A130").End(xlUp).Row
FLG = False
For Each Cel In Cells(6, 6).Resize(MyRow - 6 + 1, 36)
  If Cel.Value = "AA" Then
    FLG = True
    No = 46
  ElseIf Cel.Value = "BB" Then
    FLG = True
    No = 47
  End If
  If FLG = True Then
    Cel.ColorIndex = No
    Cel.Pattern = xlSolid
    Cel.PatternColorIndex = xlAutomatic
    FLG = False
  End If
Next

7 hits

【38997】Inputboxでなくリストにするには にしもり 06/6/15(木) 17:55 質問
【39151】Re:Inputboxでなくリストにするには にしもり 06/6/19(月) 11:36 質問
【39165】Re:Inputboxでなくリストにするには Jaka 06/6/19(月) 14:37 発言
【39167】Re:Inputboxでなくリストにするには にしもり 06/6/19(月) 14:47 質問
【39175】Re:Inputboxでなくリストにするには Jaka 06/6/19(月) 15:50 発言
【39187】Re:Inputboxでなくリストにするには にしもり 06/6/19(月) 16:37 質問
【39191】Re:Inputboxでなくリストにするには Jaka 06/6/19(月) 16:49 発言
【39192】Re:Inputboxでなくリストにするには Kein 06/6/19(月) 16:49 回答
【39196】Re:Inputboxでなくリストにするには にしもり 06/6/19(月) 17:11 質問
【39197】Re:Inputboxでなくリストにするには にしもり 06/6/19(月) 17:14 発言
【39198】Re:Inputboxでなくリストにするには にしもり 06/6/19(月) 17:19 質問
【39201】Re:Inputboxでなくリストにするには Kein 06/6/19(月) 17:50 回答
【39202】Re:Inputboxでなくリストにするには にしもり 06/6/19(月) 18:08 質問
【39203】Re:Inputboxでなくリストにするには にしもり 06/6/19(月) 18:20 質問
【39206】Re:Inputboxでなくリストにするには Kein 06/6/19(月) 18:53 回答
【39249】Re:Inputboxでなくリストにするには にしもり 06/6/20(火) 15:05 お礼
【39251】Re:Inputboxでなくリストにするには Kein 06/6/20(火) 15:39 発言
【39264】Re:Inputboxでなくリストにするには にしもり 06/6/20(火) 18:02 お礼

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