質問: "ggge""年""m""月""" End If End If End If End Sub 数字を全角にする方法を教えてください。 よろしくお願い致します。
回答: 冒頭で If Intersect(target, Range("G1")) Is Nothing Then Exit Sub Else なのでG1セル以外ではイベントは発生しても無効ですよね。 なのに If target.Column = 7 And target.Row >= 1 Then とここで条件を付けるのは不自然ですね。 G1セルはもしかしてただのフラグ?本命はG2以下とか? If IsEmpty(Range("G1")) Then Exit Sub なのかな?