[[20180611160524]]　『元の値にもどすマクロ』（ｑｚａ）　ページの最後に飛ぶ

『元の値にもどすマクロ』（ｑｚａ）

	Å	Ｂ	Ｃ	Ｄ	Ｅ	Ｆ	Ｇ	Ｈ
1	りんご	みかん	バナナ	りんご	みかん	みかん	みかん		
2									
3									
4									
5					りんご	みかん	バナナ
6					　2	　4	　1

Ｅ6からＧ6にCOUNTIFでそれぞれの合計を出す式があったとします。
この式の上から手入力で数字を変えた場合、当然式は壊れるのですが
フォームコントロールのボタンを押せば壊れる前の式まで自動で
戻せるようなマクロは作れたりしますか？

＜使用 Excel：Excel2016、使用 OS：Windows10 ＞

 これは手入力する前の式はあらかじめ決まっているのか、その時その時で違っているのかどちらだろうか？
（ねむねむ） 2018/06/11(月) 16:25

手入力する前は決まった元の式が入っています。そのまでボタン１つで戻せれば
すごく楽と思いまして・・・。可能ですか？
（ｑｚａ） 2018/06/11(月) 16:44

手入力した場合に戻すなら、CTRL+Z で良いという事ですかね？

 Sub ボタン1_Click()
    SendKeys "^z", 1
 End Sub

ただし、マクロ実行するとアンドゥするための情報が消されてしまうので、1回前にしか戻せません。複数箇所変えた後でも戻したいならば、マクロを使わずに直接 CTRL+Z を入力するのが良いかと思いますよ。
（???） 2018/06/11(月) 16:55

 標準モジュールに
 Sub tst()
    With Worksheets("Sheet1")
        .Range("E6:G6").Formula = "=COUNTIF($A$1:$G$1,E5)"
    End With
 End Sub
 と記述。

（ねむねむ） 2018/06/11(月) 16:57

 シートにボタンを追加してそのボタンに上記マクロを追加ではどうか？
（ねむねむ） 2018/06/11(月) 16:58

なるほど、入力を戻すのではなく、式を再設定してしまえば、どれだけ書き換えても大丈夫ですね。私の案は見当違いだったようです。
（???） 2018/06/11(月) 17:04

返信ありがとうございます。
なかなうまくいきませんがもう少し頑張ってみます
（ｑｚａ） 2018/06/12(火) 07:52

 どこらへんで躓いているのだろうか？
（ねむねむ） 2018/06/12(火) 08:41

大変初心者で申し訳ないのですが

【ブックでマクロが使用できないか、またはすべてのマクロが無効になっている可能性がある】との
表示が出て動作しません。どうすればいいですか？

（ｑｚａ） 2018/06/12(火) 13:17

 一度ボタンを削除して新たにボタンを追加してマクロを登録しなおしでどうなるだろうか？
（ねむねむ） 2018/06/12(火) 13:51

さすがに有効化していないなんてことはないですよね

これじゃないかな？

新しく作ったマクロの名前が出てるのでそれを選択してOKかな？

（まっつわん） 2018/06/12(火) 14:25

何とかマクロの件は回避できました。
ありがとうございました。
（ｑｚａ） 2018/06/12(火) 15:40

コメント返信：