|
▼kazu さん:
>シート1にプログラムを貼り付けましたがうまくできません。どのようにすればいいのですか。
▼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にプログラムを貼り付けましたがうまくできません。どのようにすればいいのですか。
|
|