Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

37243 / 76738

←次へ　｜　前へ→


	【44668】Re:同一セルに値を加算していくには？

Kein - 06/11/28(火) 15:19 -


	引用なし

	パスワード

あー・・ちょっと先のコードはおかしいので、全体を↓に差し替えて下さい。

Private MyVal1 As Double, MyVal2 As Double

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
　 With Target
　　　If .Count > 1 Then Exit Sub
　　　If Not IsNumeric(.Value) Then Exit Sub
　　　Select Case .Address
　　　　 Case "$A$1": MyVal1 = .Value
　　　　 Case "$C$5": MyVal2 = .Value
　　　End Select
　 End With
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
　 With Target
　　　If .Count > 1 Then Exit Sub
　　　If IsEmpty(.Value) Then Exit Sub
　　　If Not IsNumeric(.Value) Then Exit Sub
　　　Application.EnableEvents = False
　　　Select Case .Address
　　　　 Case "$A$1": .Value = MyVal1 + .Value
　　　　 Case "$C$5": .Value = MyVal2 + .Value
　　　End Select
　 End With
　 Application.EnableEvents = True
End Sub

1つの変数で済ませるのは、無理があることが分かりました。

0 hits

▼

【44644】同一セルに値を加算していくには？ Roｎ 06/11/27(月) 10:00