- Excel VBA 質問スレ Part70
280 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 9ff0-KAGY)[]：2021/04/18(日) 09:49:47.16 ID:AhVY6Zxk0 - し
|
- Excel VBA 質問スレ Part70
281 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 9ff0-KAGY)[]：2021/04/18(日) 09:56:40.54 ID:AhVY6Zxk0 - Private Sub Worksheet_Change(ByVal target As Range)
If Intersect(target, Range("A1:A2")) Is Nothing Then
Exit Sub
End If
ClearDates
UpdateDates
End Sub
Sub ClearDates()
Range("A4:A999").Clear
End Sub
Sub UpdateDates()
If IsDate(Range("A1").Value) = False Or IsDate(Range("A2").Value) = False Then
MsgBox "日付を正しく入力してください"
Exit Sub
End If
Dim d As Date, endDate As Date
d = Range("A1").Value
endDate = Range("A2").Value
Dim y As Long
y = 4
Do While d <= Range("A2").Value
Cells(y, 1) = d
d = d + 1
y = y + 1
Loop
End Sub
日付間の日にちが自動で打ちあがるようにしたんですけど
めちゃくちゃ重くてパソコンが固まってしまいますご教授ください
素人みたいな質問ですいません。
|
- Excel VBA 質問スレ Part70
285 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 9ff0-B9Cj)[]：2021/04/18(日) 10:53:16.67 ID:AhVY6Zxk0 - すばやい返答ありがとうございます
少し早くてびっくり
VBAははじめて２年ぐらいです
５年後ぐらいにプロになれたらいいな
Private Sub Worksheet_Change(ByVal target As Range)
object.EnableEvents = false
上記を先頭２行と置き換えて
object.EnableEvents = true
endsub
↑この２行は最終行に書けばいいのですか？
素人ですいません！
|
- Excel VBA 質問スレ Part70
288 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 9ff0-B9Cj)[]：2021/04/18(日) 14:57:21.70 ID:AhVY6Zxk0 - 先生たちありがとうございます！
新設丁寧頭もいい
|
- Excel VBA 質問スレ Part70
289 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 9ff0-B9Cj)[]：2021/04/18(日) 14:58:49.68 ID:AhVY6Zxk0 - 自分の力で解決できるようにがんばります！
|