
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ランキング
-
【関数】=EXACT(a1,b1) a1とb1...
-
【マクロ】excelファイルを開く...
-
エクセルのリストについて
-
【マクロ】【相談】Excelブック...
-
エクセルの関数について
-
【マクロ】数式を入力したい。...
-
【マクロ】元データと同じお客...
-
【マクロ】実行時エラー '424':...
-
他のシートの検索
-
【マクロ】左のブックと右のブ...
-
【画像あり】オートフィルター...
-
Office2021のエクセルで米国株...
-
LibreOffice Clalc(またはエク...
-
vba テキストボックスとリフト...
-
エクセルのVBAで集計をしたい
-
【マクロ】【配列】3つのシー...
-
エクセルシートの見出しの文字...
-
【マクロ】【画像あり】ファイ...
-
【マクロ】【画像あり】❶ブック...
-
【マクロ画像あり】❶1つの条件...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【マクロ】元データと同じお客...
-
エクセルの関数について
-
【画像あり】オートフィルター...
-
エクセルのVBAで集計をしたい
-
エクセルのリストについて
-
【マクロ】数式を入力したい。...
-
【マクロ】【相談】Excelブック...
-
Office2021のエクセルで米国株...
-
【マクロ】実行時エラー '424':...
-
他のシートの検索
-
エクセルの複雑なシフト表から...
-
【マクロ】【配列】3つのシー...
-
vba テキストボックスとリフト...
-
【マクロ】左のブックと右のブ...
-
【マクロ】変数に入れるコード...
-
エクセルシートの見出しの文字...
-
【マクロ】別ファイルへマクロ...
-
【関数】同じ関数なのに、エラ...
-
Amazonでマイクロソフトオフィ...
-
ページが変なふうに切れる
おすすめ情報