
No.3ベストアンサー
- 回答日時:
こんばんは。
私が、数年前、初めて出合った不思議なマクロですね。今でこそ、このマクロは、自分で作れるようになりましたが、このレベルにはなかなか到達しませんでしたね。
ただ、これは、画面のちらつきが気になります。
シートタブを右クリックで、コードの表示で以下を貼り付けます。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim myValue As Double
Dim preVAlue As Double
'セルは、A1
If Target.Address <> "$A$1" Then Exit Sub
With Application
.EnableEvents = False
.ScreenUpdating = False
If VarType(Target.Value) = vbDouble Then
myValue = Target.Value
.Undo
preVAlue = Target.Value
If VarType(preVAlue) = vbDouble Then
Target.Value = myValue + preVAlue
Else
Target.Value = myValue
End If
End If
.ScreenUpdating = True
.EnableEvents = True
End With
End Sub

No.2
- 回答日時:
「他のセルを使わないで」なら、出来ません。
この回答へのお礼
お礼日時:2006/02/19 02:33
とりあえずできそうなことをやってみますね。「他のセルを使わないで」にこだわらなくていいのかも。。。と思いました
ありがとうございました(^-^)
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VLOOKUP FALSEのこと
-
if関数の複数条件について
-
【マクロ】実行時エラー '424':...
-
同じ名前(重複)かつ 日本 ア...
-
excel
-
【マクロ】数式を入力したい。...
-
Office2021のエクセルで米国株...
-
【画像あり】オートフィルター...
-
エクセルシートの見出しの文字...
-
エクセルの複雑なシフト表から...
-
エクセルのVBAで集計をしたい
-
エクセルでフィルターした値を...
-
【関数】=EXACT(a1,b1) a1とb1...
-
【画像あり】【関数】指定した...
-
勤怠表について ABS、TEXT関数...
-
エクセルの文字数列関数と競馬...
-
表計算ソフトでの様式の呼称
-
【マクロ】【画像あり】4つの...
-
Excelで4択問題を作成したい
-
空白のはずがSUBTOTAL関数でカ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルでフィルターした値を...
-
if関数の複数条件について
-
エクセルシートの見出しの文字...
-
excel
-
エクセルの文字数列関数と競馬...
-
VLOOKUP FALSEのこと
-
同じ名前(重複)かつ 日本 ア...
-
表計算ソフトでの様式の呼称
-
エクセルに写真が貼れない(フ...
-
【マクロ】数式を入力したい。...
-
【マクロ】実行時エラー '424':...
-
【画像あり】オートフィルター...
-
Office2021のエクセルで米国株...
-
【画像あり】【関数】指定した...
-
エクセルのVBAで集計をしたい
-
【マクロ】【画像あり】4つの...
-
【関数】3つのセルの中で最新...
-
【マクロ】excelファイルを開く...
-
LibreOffice Clalc(またはエク...
-
エクセルのライセンスが分かり...
おすすめ情報