- ベストアンサー
Excelセルの自動演算方法について教えてください
- Excelで特定のセルに数値を入力し、実行キーを押すとそのセルから一定数値が減算された結果が表示される方法を知りたいです。
- 具体的には、A列の1～10の各行に異なる整数値を入力し、実行キーを押下すると、それぞれのセルから一定の数値が減算された結果が表示されるようにしたいです。
- 現在、Excelのマクロなどについて勉強中ですが、まだ解決策は見つかっていません。特定のセルに自動演算を実装する方法があれば、教えていただきたいです。
- Deep-Forest
- お礼率80% (89/111)
- その他MS Office製品
- 回答数4
- ありがとう数3
- みんなの回答 （4）
- 専門家の回答
質問者が選んだベストアンサー
その他の回答 (3)
- tom04
- ベストアンサー率49% (2537/5117)
- tom04
- ベストアンサー率49% (2537/5117)
こんにちは！ 本来であれば入力チェックの意味を含めて別セル表示の方が好ましいと思いますが・・・ ご希望の方法となるとVBAになると思います。 一例です。 画面左下の操作したいSheet見出し上で→クリック → コードの表示 → VBE画面に ↓のコードをコピー＆ペーストしてA1～A10セルにデータを入力してみてください。 Private Sub Worksheet_Change(ByVal Target As Range) 'この行から If Intersect(Target, Range("A1:A10")) Is Nothing Or Selection.Count <> 1 Then Exit Sub Application.EnableEvents = False If Target <> "" Then If IsNumeric(Target) Then Target = Target - 75 End If End If Application.EnableEvents = True End Sub 'この行まで こんな感じではどうでしょうか？m（_ _）m
お礼
ご回答頂き有難う御座いました。 上記の方法で出来ましたッ！ 出来ればもう一点教えて頂きたいのですが・・・ A1～A10 と同じような事を同一シート内の E1～E10 F1～F10 にも適用させたい場合 Range("A1:A10", "E1:E10", "F1:F10")) と書いてはダメなのでしょうか？ Range("A1:A10", "E1:E10")) と書き換えた場合は思い通りの動きをしてくれるのですが F1～F10の分を追記して Range("A1:A10", "E1:E10", "F1:F10")) とすると 引数の数が一致しない・・・ という趣旨のエラーメッセージが表示されてしまいます。 自己解決しようと試みてますが当方 VBA にまだ不慣れな為 お手上げ状態でして・・・
- KURUMITO
- ベストアンサー率42% (1835/4283)
A1セルからA10セルに数値が入力されているとします。 初めにどこか関係のないセルに75を入力し、そのセルを選択してコピーします。 次にA1セルからA10セルを選択して右クリックし「形式を選択して貼り付け」で「減算」にチェックをして貼り付けを行うことでお望みの結果が表示されます。
お礼
早速のご回答、有難う御座います。 KURUMITO様の言われます方法は、質問欄に 記述させて頂いた参考サイト http://ciao.aoten.jp/ciao/2010/04/500-0a03.html の方法と同様、入力して後に修正変更する事に なってしまいます。 任意の未入力列行セル群に予め 仕込みをしておき、数値入力がされエンターキーが 押された時に減算結果が表示されるようにしたいのです。 うまく表現出来なくてスミマセン・・・
お礼
度々親切で解り易いご回答頂き大変恐縮してます。 教えて頂いた通りにしてみたところ無事解決出来ました。 この度はVBAズブの素人の当方に懇切丁寧に 色々教えて頂き本当に助かりました。 有難う御座いました。