☰

数式を使わずに Excel で 2 つのセルを合計するにはどうすればよいですか?

tag-icon • tag-icon microsoft-excel
数式を使わずに Excel で 2 つのセルを合計するにはどうすればよいですか?

Excel に数値リストを含むシートがあります。X 単位をあるセルから別のセルに移動したい場合があります。

教室に子供たちがいて、それぞれが一定数のビー玉を持っているとします。シートには 2 つの列があり、最初の列は名前、2 番目の列はビー玉です。ジョンはビルに 375 個のビー玉を渡します。シートを更新します。

現在、私は電卓を取り出して、減算と加算を行い、セルを手動で更新しています。

これは面倒で、エラーが発生しやすいです。もっと良い方法はあるでしょうか?

(セルに「=8300+375」と入力することはできますが、最終的には各セルに非常に長い数式が入ることになります。)

答え1

貼り付け形式を使用すると、簡単に計算を実行できます。

  • -3751 つのセルに入力し、375その隣にも入力します。
  • 新しい番号を選択し、CTRL+Cを押します
  • 変更するセルを選択します。
  • リボン / ホーム / 貼り付け / 「形式を選択して貼り付け」
  • 「追加」をチェックして「OK」をクリック

ここに画像の説明を入力してください

答え2

マテ・ユハスこの投稿を見て、VBA マクロをお勧めしようと思いました。VBA マクロの方が高速で、時間も節約できるからです。きっと扱えると思います。

ここに画像の説明を入力してください

使い方：

  • Range にデータがあると想定しています A2:B4。

  • 減算したい値を入力しますC2:C4。

  • から開発者タブ、 クリックデザインモード
    それから入れる＆ からActiveX コントロール
    クリックコマンドボタンアイコン
    シートに描きます。

  • クリックコマンドボタン、VB エディター Windows にアクセスします。

  • コピーペーストこのコード

    プライベートサブCommandButton1_Click()

    終了サブ。

    Range("C2:C4").Select
 Selection.Copy
  Range("B2").Select
  Selection.PasteSpecial 
  Paste:=xlPasteAll, 
  Operation:=xlSubtract, SkipBlanks:= _
  False, Transpose:=False
  Range("C2:C4").Select
  Selection.ClearContents
  Application.CutCopyMode = False

  • VBエディタWindowsからクリックファイルメニューそしてヒット閉じてMicrosoft Excelに戻る。

  • 最後にクリックコマンドボタン。

Column B新しい値は、(スクリーンショットを確認してください)にあります。

注意

セル内の新しい値から古い値を減算する場合のみ、この VBA コードを使用できます。

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

If Target.Column = 2 And Target.Row = 1 Then

  NewVal = Range("B1").Value
    Application.EnableEvents = False
     Application.Undo

   OldVal = Range("B1").Value
    Range("B1").Value = NewVal
     Range("B1").Value = NewVal - OldVal
      Application.EnableEvents = True

End If
End Sub

  • プレスALT+F11VBエディタを開いてコピーペースト上記のコードは標準モジュール。

  • の値を上書きするとすぐにB1、コードはそれを古い値から減算し、 新しい値で
    書き換えます。B1

必要に応じてデータ範囲を調整します。

関連情報