エクセルVBAで。
お世話になります。
VBA初心者です。
(初心者でもないのですが、しばらく遠ざかっていました。)
エクセルVBAの記述内容をコピーし、
エクセルの通常のシートへ貼り付けした際、
記述上「’」で始まる文字は緑色が付いていますが、
通常のシートへ貼り付けした際、黒字になってしまいます。
そこで、下記の様なVBAを記述し、貼り付け後に、
「’」から始まる文字を緑色に着色しようと試みましたが
(やはり)うまくいきませんでした。
エクセル関数なんかも織り交ぜたおかしな記述だと思いますが
何となくやりたい事が伝わって頂けるかと思うのですが、
どう修正したら出来ますでしょうか。
ご教授下さいます様、宜しくお願いいたします。
記
Sub 色()
Dim y As Integer
Dim x As Integer
Dim a As Integer
mysheet = ActiveSheet.Name
For y = 1 To 10
x = Sheets(mysheet).Cells(Rows.Count, y).End(xlUp).Row
a = 0
Do Until a > x
a = a + 1
If Right(Cells(y, a), 1) = "'" Then
Cells(y, a).Select
Selection.Font.ColorIndex = 10
End If
Loop
Next
End Sub
お礼
ありがとうございます。 できました~。