- ベストアンサー
マクロの削除方法を教えてください。
ワークシートの２番目にデータを入力し、マクロでそのコピーをワークシートの４番目に挿入して、 不要な部分を削除して利用している為、次のマクロが残ってしまいます。 マクロ Private Sub Worksheet_Change(ByVal Target As Range) ４番目のワークシートを作成する時、このシートのマクロを、削除する方法を教えてください。 Excel2010（Windows ７）を使用しています 宜しくお願い致します
- isekaoru
- お礼率80% (65/81)
- その他(ソフトウェア)
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
private sub worksheet_change(byval Target as excel.range) ’たとえば if target.address <> "$A$1" then exit sub ’以下本題 worksheets.add after:=worksheets(3) target.parent.cells.copy destination:=worksheets(4).range("A1") end sub
関連するQ&A
- エクセル マクロ 初心者です
エクセルマクロ初心者です。 以下の２つの Private Sub Worksheet_Change(ByVal Target As Range)を１つのシートで実行させたいのですが、 当方、初心者なので組み合わせ方が分かりません。 よろしくお願いします。 ===No1=== Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False Target = StrConv(Target, vbUpperCase) Application.EnableEvents = True End Sub ===No2=== Private Sub Worksheet_Change(ByVal Target As Range) Dim Ans As Integer If Target.Count = 1 Then Ans = MsgBox("コピーは禁止!!", vbCritical) MsgBox "データを消去します。" With Application .EnableEvents = False .Undo .EnableEvents = True End With End If If Target.Count = 1 Then Exit Sub Else MsgBox “複数セルのコピー禁止！" With Application .EnableEvents = False .Undo .EnableEvents = True End With End If End Sub ------------ 上記の２つを１つのシートで動作させたいのですが、うまくいきません。 単体では、動作します。
- ベストアンサー
- オフィス系ソフト
- エクセルマクロ(VBA)で指定したセルが変化したときに実行するには？
VBAでsheetの中のworksheet_changeなどでマクロを書くと、そのシー トの中のどのセルを変化させてもマクロが実行されるのですが、これ を、A1とc1とc2が変化したときだけ処理を実行させたいのです。 以下のマクロのどこかを編集すると、そのようなことが出来るのでし ょうか？ Private Sub Worksheet_SelectionChange(ByVal Target As Range) ----実行する内容---- End Sub Private Sub Worksheet_Change(ByVal Target As Range) ----実行する内容---- End Sub
- ベストアンサー
- オフィス系ソフト
- エクセルのマクロでワークシートチェンジについてお教えください
以前教えていただいたマクロで セルに入力があったら起動するマクロを作っています ・・・Private Sub Worksheet_Change(ByVal Target As Range)・・・ 今回お聞きしたいのは シート上にボタンを作っておいて そのボタンを押すたびに ワークシートチェンジ自体のマクロを発生する、しない を切り替える 方法を教えていただきたいのです 「発生している状態で作業をして ボタンを押して発生させなくして コピーをして 別のシートに貼り付ける」というようなことをしたいのです （ワークシートチェンジが発生している状態だと コピーするための選択ができないので） わかりにくい部分がありましたら 細くさせていただきますのでよろしくお願いいたします
- ベストアンサー
- オフィス系ソフト
- ＥＸＣＥＬマクロでのシート間のデータ同期方法
質問させていただきます。 ＥＸＣＥＬにて、"シート１"のA1～C3と"シート２"のD4～F6を 同期化したく考えております。 ・いわゆる一方のシートが「読み取り専用」になってしまうリンク貼り付けではなく、シート1、シート2相互が書き換え可能の同期化です。 ・A1とD4、B3とE6、のように互いに照合箇所のセル同士を同期反映させたいと考えております。 なお、他の質問を参照したところ、 シート１のA1とシート２のD4の単一セルを同期かする方法は確認できました。（以下参照） ***************************************************************** シート１のコードは Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then Worksheets("シート２").Range("D4") = Target End If End Sub シート２のコードは Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$D$4" Then Worksheets("シート１").Range("A1") = Target End If End Sub *************************************************************** これを参考にVBAの シート１のコードエディターに Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$2" Then Worksheets("シート２").Range("D5") = Target End If End Sub シート２のコードエディターに Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$D$5" Then Worksheets("シート２").Range("A2") = Target End If End Sub というように追記していったのですが、エラーとなってしまいます。 お詳しい方がおられましたらお願いいたします。
- ベストアンサー
- オフィス系ソフト
- エクセル デバッグできるのとできないのがある
シートイベントについて教えてください。 シートモジュールに --------------------------------------------------------- Option Explicit Private Sub Worksheet_Activate() MsgBox "" End Sub Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) MsgBox "" End Sub Private Sub Worksheet_Change(ByVal Target As Range) MsgBox "" End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) MsgBox "" End Sub --------------------------------------------------------- と記載した時に、 Ｆ８で動かせるのは、Worksheet_Activateだけなのですがなぜでしょうか？ ほかのイベントは、F8で実行させても、ＯＳの音が鳴るだけで、マクロの実行はされません。 ご回答よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- ステップモードの動作確認方法
エクセルマクロ初心者です。 シート１にPrivate Sub Worksheet_Change(ByVal Target As Range) イベントを書き込みました。 ステップモードで動作確認したいのですが、どうすればいいのでしょうか？ どなたか教えてください！お願いします！ （Excel2003です）
- ベストアンサー
- Visual Basic
- ＶＢＡ マクロを動かさない
(1)ある行のセルを変更したら動くマクロがあります。 Private Sub Worksheet_Change(ByVal Target As Range) (2)ある行のセルに数値を入れるマクロがあります。 Private Sub CommandButton_Click() (2)のマクロが動くと(1)がその後に発動して上書きをしてしまうようです。 これを発動させないようにスキップするにはどうしたらいいのでしょうか？
- ベストアンサー
- Visual Basic
- エクセルのマクロ
セルの値が変わったら動くマクロですが、2つ書くとエラーが出ます。 どのように直したらいいでしょうか？ Private Sub Worksheet_Change(ByVal Target As Range) Select Case Target.Address If Intersect(Target, Range("EK22")) Is Nothing Then Exit Sub Else Range("EK24:EM28").Select Selection.ClearContents End If End Sub Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("EK24")) Is Nothing Then Exit Sub Else Range("EK27:EM28").Select Selection.ClearContents End If End Sub
- ベストアンサー
- Excel（エクセル）
- エクセルでマクロを使って新規シートを作成する方法を教えてください！（条件あります）
初めて質問するのですが、エクセルで原紙シートのマクロまで全てをコピーして新規のシートを作成させるにはどうしたらいいですか？ 新規のシートの特定のセルに入力した時に新規シートが作成されるようにできますか？ 原紙は Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Target.Address = "$A$1" Then ActiveSheet.Name = Target.Value End If End Sub のマクロが現在できあがってます。これを残しつつできますか？よろしくお願いします！
- ベストアンサー
- オフィス系ソフト
- エクセル９５のマクロ
エクセル９５で Private Sub Worksheet_Change(ByVal Target As Range) というのは使えるんでしょうか？ リターン押したときに移るセルを操作したいので 代わりになるものでもあれば教えて頂きたいです。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
お礼
ありがとうございました。 データ部のみコピーして作成することにしました
補足
keithin様 ご教示ありがとうございました。 知識不足な為構文も理解できず、色々とやってみましたが、私には無理でした。 ご教示いただいたマクロの取り扱い方などがわかりまんせん。 １・VBEのどこに記述すればよいのか（標準モジュールとか・・・） ２・記述していただいたマクロの意味など 何故か、非常に大変な作業をお願いする事にになるような予感が致しますが、ご解説・ご教示願えれば幸甚です。