|
おはようございます。
なんかもう向井さん見てなさそうだし、
適切かどうかわからんコードなんだけど、
まだ、しつこくいじってたりして・・・
>未確認ですけど、For Each c In Target で回避できませんか・・?
こんなんしてみました。
'↓別に標準モジュールにすることなかったですね(^^;
なので、ワークシートモジュールの先頭に
Private blnFlag As Boolean
Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range
If blnFlag = True Then
For Each r In Target
With r
If .Value <> "" And .Font.Name = "MS 明朝" Then
.Font.Name = "MS ゴシック"
End If
End With
Next r
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells(1, 1).Value = "" Then
blnFlag = False
Else
blnFlag = True
End If
End Sub
SelectionChangeは、とりあえず、先頭のセルだけチェックしてみました。
誰か見てくれるだろうか・・・・
|
|