Excel VBA質問箱 IV

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

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


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

74741 / 76733

←次へ　｜　前へ→


	【6451】できました！:セルへ値を入力したときに、その値に応じて入力内容を変更するには？

たか - 03/6/30(月) 14:11 -


	引用なし

	パスワード

ありがとうございました。
そのとおりのやり方で動かすことができました。

せっかくなので、コードを書いておきます。

Private Sub Worksheet_Change(ByVal Target As Range)

　　Application.EnableEvents = False

　　r = Target.Row
　　c = Target.Column
　　
On Error GoTo エラー

　　d1 = Cells(r, c).Value
　　d2 = Sheets("裏作業シート").Cells(r, c).FormulaR1C1
　　d3 = Sheets("裏作業シート").Cells(r, c).Value
　　
　　Sheets("裏作業シート").Cells(r, c).FormulaR1C1 = "=" & Mid(d2, 2) & "+" & d1
　　Cells(r, c) = d1 + d3
　　
GoTo pas

エラー:

　Sheets("裏作業シート").Cells.Clear

pas:
Application.EnableEvents = True

End Sub

1 hits

▼

【6419】セルへ値を入力したときに、その値に応じて入力内容を変更するには？ たか 03/6/28(土) 17:09