• 締切済み

excelのマクロで元に戻す方法

excel2003で以下の様に記述しました。 Sub clear() Range("A1", "B3").Value = "" End Sub 上記でフォームボタンをクリックして、指定したセルの内容を空白にすることはできたのですが、 ctrl+zで元の内容を戻そうとしたところ、できませんでした。 なにか方法があれば、ご教示お願いします。

みんなの回答

  • nicotinism
  • ベストアンサー率70% (1019/1452)
回答No.3

Undo のヘルプには ------------------------------------------------------------ 備考 Undo メソッドは、マクロを実行する前にユーザーが実行した最後の操作を元に戻す場合にだけ使用できます。 このメソッドは、マクロの先頭に記述する必要があります。 Visual Basic で実行したコマンドは元に戻すことができません。 ------------------------------------------------------------ 『Visual Basic で実行したコマンドは元に戻すことができません。』 ユーザーが手作業？で行ったものに関してはアプリケーションで順次履歴を記憶して行きますが VBAで行ったものは範疇にありません。 なので、Ctrl+Zでも戻せません。 Copyメソッドか何かでどこかに退避させて、Ctrl+Z の代わりに Ctrl+V とか？ コピー先のセル範囲を指定します。この引数を省略すると、クリップボードにコピーします。

  • hallo-2007
  • ベストアンサー率41% (888/2115)
回答No.2

残念ながら http://nyama.jpn.org/otto/xlstip.shtml に マクロのやり直し(2001/11/24) マクロを実行は基本的にやり直すことが出来ません。あとで、選んだセルが間違っていることに気づいてもどうにもならないのです。「基本的な命令ばっかり使っているのになぜ??」と思います。 とあります。参考にしてください。

  • 11zep
  • ベストアンサー率36% (48/133)
回答No.1

使ったことはありませんが Application.OnUndo で実現できそうです。 ヘルプなどを見てがんばってみてください。

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. その他（プログラミング・開発）

関連するQ&A

  • エクセルのマクロ

    任意のセル内の文字の一部をコピー状態にした後に、任意のセルに一文字ずつ貼り付けるマクロを作成したいのですが。 例えば、A1に"あいうえお"と入力されていて、"うえお"をコピー状態にして実行すると、貼り付ける基点となるセルをインプットボックスで指定し、B3が指定されたとするなら、B3に"う"、C3に"え"、D3に"お"が貼り付けられる。 以下のマクロで望んでいる処理が可能になるのですが。 Sub test() 　Set x = Application.InputBox(Prompt:="test", Type:=8) 　　Range("A10").Select 　　ActiveSheet.Paste 　　y = Range("A10").Value 　　z = 0 　　w = Len(y) 　　　　For i = 1 To w 　　　　　x.Offset(0, z).Value = Mid(y, i, 1) 　　　　　 z = z + 1 　　　　Next i 　　Range("A10").Clear End Sub 上記マクロでは、コピー状態になっている文字を一旦作業用のセルに貼り付けるという処置を取っていますが、そのように作業用のセルを用いないで同じ処理を行うにはどうすればいいでしょうか？

  • エクセルのマクロコードについて

    お世話になります。 下記コードで、セルごとにクリアをすると、エラーなくうごくのですが、セルをまとめてセルを消すと実行時エラー13型が一致しません。とでてIf Target.Value = "" Thenがだめだよとでてしまいます。 どなたか、回避の方法をご教授ください。 宜しくお願いいたします。 Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("B2:E2,G2:J2")) Is Nothing Then Exit Sub If Target.Value = "" Then Exit Sub x = Target.Value With Application .ScreenUpdating = False .EnableEvents = False .Undo 'Range("B2").Value = x + Z Z = Target.Offset(1, 0).Value y = Target.Value Target.Value = x + y .EnableEvents = True .ScreenUpdating = True End With Target.Offset(1, 0).Value = x + Z End Sub

  • マクロについて

    マクロでデータをクリアするコマンドボタンを作りました。でも、計算の答えがでなくなりました。 例えば、 A1：A10までの情報はクリアになります。 答えの“=SUM(A1:A10)”というCセルだけが前の情報のままになります。（Cセルはマクロに登録していません。） 全くのど素人で、マクロの登録も他の書類からコピーしてセルだけ変えました。 マクロの内容は、下記の通りです。 Sub Macro1() ' ' Macro1 Macro ' マクロ記録日 ' Sub allclear() Application.Calculation = xlManual Range("D4").Value = "" Range("B6").Value = "" Range("B8").Value = "" Range("E11").Value = "" Range("E12").Value = "" Range("F11").Value = "" Range("B21").Value = "" Range("B23").Value = "" Range("B25").Value = "" Range("B27").Value = "" Range("B29").Value = "" Range("P5:P9").Value = "" Range("Q5:Q9").Value = "" Range("P15:P19").Value = "" Range("Q15:Q19").Value = "" End Sub よろしくおねがいします。（_ _）

  • エクセル　マクロ　ダブルクリックで…(2)

    たびたび申し訳ございません。 先ほどエクセルでダブルクリックをすると順番に該当セル内の値が「有」→「無」→「空白」　となるマクロをご教授頂き、下記の内容で解決した者です。 Ｂ列についての該当セルへの入力がなされるという内容だったのですが、実はＣ列にも同様の処理を致したく、またもや素人はなすすべが無くなってしまいました。 Ｂ列は「要」「不要」「請求」「空白」としたいと思います。 たびたび大変恐縮ですがよろしくご教授くださいませ。 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Intersect(Target, Range("d1:d999")) Is Nothing Then Exit Sub With Target 　 If .Value = "" Then 　　　.Value = "有" 　 ElseIf .Value = "有" Then 　　　.Value = "無" 　 ElseIf .Value = "無" Then 　　　.Value = "" 　 End If End With End Sub

  • マクロ　セル指定について

    Sheet（”体温”）のA３に フォームのTextBoｘ１の内容をボタンを押したら 挿入させたいです。！ 下の記述では上手くいきません 教えて下さい！ Private Sub CommandButton1_Click() With Worksheets("体温") .Range(A３).Value = TextBox1.Value End With End Sub お願いします！

  • エクセルマクロでの計算について（2007）

    エクセルマクロ初心者です。 試行錯誤しながら作成しています。 セルB1には直接計算式を入れており（=(480+(A1)*10)/480*I1） その結果次第（70以下）でセルC1に計算結果（=(75-B1)*.48)をいれて 70より大きければセルC1に"-"を入れたいのですが上手く計算してくれません。 この処理を約６５個のセルにしようと思っています。（セルの列はバラバラです） どうすればよいかご教示ください。 ちなみに現在作成している文は Private Sub 計算_Click() Worksheets("sheet2").Select If Range("B1").Value <= 70 Then Range("C1").Formula = "=(75 - (B1)) * 0.48" Else: Range("C1").Value = "-" End If End Sub よろしくお願いいたします。

  • エクセル2007のマクロについて

    実践で学ぶ Office Excel 2007 VBAというマクロの学習サイトで Sub Macro実践1() 'ブック シート セルアドレスを指定すればブック シートをアクティブにする必要はない 　 　 　 　 　 　 Workbooks("転記.xlsx").Worksheets("転記シート1").Range("A1").Value = _ 　 　 　 　 　 　 　 Workbooks("データ.xlsx").Worksheets("データ1").Range("A1").Value 　 　 　 　 　 　 　 　 End Sub 　 　 　 　 と入力すると「インデックスが有効範囲にありません」となってしまいます。なにか間違っているのでしょうか？

  • エクセルのマクロのタイマー機能について

    エクセルのマクロのタイマー機能について エクセルのマクロで指定した時間ごとにＵＲＬをクリックするマクロを作っています。 下記のように作っていますが、もっと簡略化して短い記述にしたく思います。 ＵＲＬと指定時間は別のマクロで生成して、ＵＲＬはA1～A49まで、指定時間はB1～B490までセルに書きこむようにしています。 URLはA49まで読んだらA1から読み直して10往復して、490回使用します。 使用するセルを一回ごとにずらしていくだけなので、簡単に出来そうな気もしますが、マクロ初心者のためわかりません＞＜ 恐れ入りますが、ご教授いただければ幸いです。 ちなみにエクセル２００７で作成しています。 Sub 一定の時間間隔でマクロを実行する() '進捗状況を示すために準備する 指定時刻 = Now + TimeValue("0時00分05秒") 待ち時間 = TimeValue("0時00分01秒") Application.OnTime TimeValue(指定時刻), "新規01", TimeValue(待ち時間) End Sub Sub 新規01() Range("A1").Select 'A列のURLを取得 Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True 指定時刻 = Now + Range("B1").Value 'B列の時間を取得 待ち時間 = TimeValue("0時00分01秒") Application.OnTime TimeValue(指定時刻), "新規02", TimeValue(待ち時間) End Sub Sub 新規02() Range("A2").Select Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True 指定時刻 = Now + Range("B2").Value 待ち時間 = TimeValue("0時00分01秒") Application.OnTime TimeValue(指定時刻), "新規03", TimeValue(待ち時間) End Sub 　　　　　　　　↓ 　　　同様の記述を490回繰り返す 　　　　　　　　↓ Sub 新規建設490() Range("C1").Value = Now & " 終了" End Sub Private Sub 進捗状況を示すために準備する() Cells.Clear Columns("A:A").NumberFormatLocal = "yyyy/m/d h:mm:ss" Range("A1").Select ActiveCell.Value = Now & " 開始　　　　　　　" Columns("A:A").EntireColumn.AutoFit End Sub

  • マクロが思うように動きません

    エクセル2007です。 初心者です。 マクロが思うように動きません。 指定のセルが空白の場合、msgboxを表示して、処理を抜ける 空白でない場合は、処理をつつける。 と言う事をしたいです。 with～の後が問題だと思うのですが・・ Sub 受注履歴書き込み() Dim ws01 As Worksheet, ws02 As Worksheet Dim r As Long, c As Integer, tmp As Long Set ws01 = Worksheets("受注書") Set ws02 = Worksheets("受注履歴") ws01.Activate With ws01 If .Range("C2").Value = "" _ And .Range("M2").Value = "" _ And .Range("M11").Value = "" _ And Worksheets("粗利報告書").Range("D3").Value = "" Then MsgBox "受注Noが空白です。処理を中止します。" Exit Sub ws02.Cells(r, 1).Value = .Range("C2").Value ' 受注No ws02.Cells(r, 9).Value = .Range("A40").Value ' 備考 ws02.Activate End If End With End Sub 採点願えますでしょうか？ 宜しくお願い致します。

  • エクセルマクロで上書きして貼り付けの方法は

    エクセルのマクロでコピーして貼り付けする場合、貼り付けするセルに何か入力されているとその次の行に飛んで貼り付けしてしまいます。 何か入力されていても上書きで貼り付けする方法を教えてください。次のマクロを参考にお願いします。 Sub 全体名簿へ2組() ' ' 全体名簿へ2組 Macro ' ' 開始 = Range("r3").Value 終了 = Range("s3").Value Range("B" & 開始 + 1 & ":n" & 終了 + 1).Select Selection.Copy Windows("全体名簿.xlsm").Activate Sheets("★名簿").Select Range("B65536").End(xlUp).Offset(1).Select ActiveSheet.Paste End Sub このActiveSheet.Pasteを変えるとできるのかその方法がわかりません。 また，貼り付けする前に選んだセル以降の行をクリアーにしてから、貼り付けすればできますがその範囲の指定の仕方はどうすればいいのでしょうか。マクロの文も教えていただきたいです。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する