Excel VBA質問箱 IV

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

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


39676 / 76738 ←次へ | 前へ→

【42171】Re:条件付き書式を5個設定にする
発言  年寄り2  - 06/9/3(日) 19:37 -

引用なし
パスワード
   ▼kazu さん:

ponponさんのコードを利用されては?
単純なこのようなものでも使えます・・・
Sub Select_case()

  Dim fcolor As String
  fcolor = Application.InputBox("RED , GREEN , BLUE , PINK の" & Chr(13) & "指定をしてください", "RGBPの4色指定")
  
  If fcolor = "" Then Exit Sub
  Range("C35").Value = fcolor

  Select Case fcolor
    Case "RED"
      Range("C35").Font.ColorIndex = 3
    Case "GREEN"
      Range("C35").Font.ColorIndex = 10
    Case "BLUE"
      Range("C35").Font.ColorIndex = 5
    Case "PINK"
      Range("C35").Font.ColorIndex = 7
  '後色指定をふやっしてください
  End Select
End Sub

>シート1にプログラムを貼り付けましたがうまくできません。どのようにすればいいのですか。
0 hits

【42141】条件付き書式を5個設定にする kazu 06/9/2(土) 19:10 質問
【42146】Re:条件付き書式を5個設定にする りん 06/9/2(土) 20:31 回答
【42147】Re:条件付き書式を5個設定にする ponpon 06/9/2(土) 20:36 発言
【42170】Re:条件付き書式を5個設定にする kazu 06/9/3(日) 17:24 質問
【42171】Re:条件付き書式を5個設定にする 年寄り2 06/9/3(日) 19:37 発言
【42182】Re:条件付き書式を5個設定にする kazu 06/9/3(日) 22:10 質問
【42173】Re:条件付き書式を5個設定にする 年寄り2 06/9/3(日) 19:38 発言
【42184】Re:条件付き書式を5個設定にする kazu 06/9/3(日) 22:12 質問
【42225】Re:条件付き書式を5個設定にする kazu 06/9/4(月) 15:02 お礼
【42174】Re:条件付き書式を5個設定にする りん 06/9/3(日) 19:52 発言
【42186】Re:条件付き書式を5個設定にする kazu 06/9/3(日) 22:18 質問
【42198】Re:条件付き書式を5個設定にする りん 06/9/4(月) 8:29 発言
【42219】Re:条件付き書式を5個設定にする kazu 06/9/4(月) 14:29 お礼
【42177】Re:条件付き書式を5個設定にする ponpon 06/9/3(日) 20:48 発言
【42185】Re:条件付き書式を5個設定にする kazu 06/9/3(日) 22:17 質問
【42193】Re:条件付き書式を5個設定にする ponpon 06/9/3(日) 23:52 発言
【42221】Re:条件付き書式を5個設定にする kazu 06/9/4(月) 14:50 お礼
【42188】Re:条件付き書式を5個設定にする inoue 06/9/3(日) 22:25 発言
【42242】Re:条件付き書式を5個設定にする kazu 06/9/4(月) 21:31 発言

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