|
▼toshi さん:
こんにちは。かみちゃん さんではなくて、ごめんなさい。
>勘違いしていました"C2:C602"の範囲の場合は Exit Subは不要ですか?
そうです。
>> If Not Intersect(Target, Range("C2:C602")) Is Nothing Then Exit Sub
は、
変化したセル範囲と[C2:C602]範囲とでダブっている範囲が nothingでなかっ
たら、つまり、共有されるセル範囲が「あったら」Exit Sub しなさい、
ということですから、正反対ですね。
If Intersect(Target, Range("C2:C602")) Is Nothing Then Exit Sub
でいいでしょう。
>また、表示形式を"08/06/30"にする場合は"2000\/00\/00"の2000を00としてみましたが変な"1930/8/6"と表示になってしまいます。定義をどのように変えれば
>出来ますでしょうか?
"080630" と入力した数値を "00/00/00" というFormatに変更すると
"08/06/30" という値に変換されます。
Excelはアメリカ産のソフトなので、これを mm/dd/yy 形式で日付に変換
したのでしょう。
> Target.Value = Format(Target.Value, "2000\/00\/00")
の行を、
With Target
.Value = Format$(.Value, "2000\/00\/00")
.NumberFormatLocal = "yy/mm/dd"
End With
としたらどうでしょう?
|
|