Excel VBA質問箱 IV

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

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


42630 / 76732 ←次へ | 前へ→

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

引用なし
パスワード
   >'*********追加ここから*******
>
>  MyRow ActiveSheet.Range("A130").End(xlUp).Row
>    For j = 6 To MyRow
>      For i = 0 To 36
>      MyVal = ActiveSheet.Cells(6, j).Offset(i, 0)
>     
>      Select Case ActiveCell
              ↑
    このActiveCellってのが、よく解らないんですが...。
    使い方が間違っているような気もするし、
    セルに何か書き込んだ場合、アクティブセルと
    書き込んだセル(Targetセル?)の位置は違うと思いますが。         
>      
>        Case MyVal = "AA"
>        ActiveCell.Select
>        With Selection.Interior
>          .ColorIndex = 46
>          .Pattern = xlSolid
>          .PatternColorIndex = xlAutomatic
>         End With
>         
>         Case MyVal = "BB"
>        ActiveCell.Select
>        With Selection.Interior
>          .ColorIndex = 47
>          .Pattern = xlSolid
>          .PatternColorIndex = xlAutomatic
>        End With
>      
>      Next i
>    Next j
>'*********ここまで**********
4 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 お礼

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