Excelで残ってしまったゴミについて、処理を教えて
いただきたいです。

Excelで、マクロを組んだらしいんですが、うまく
いかなくって削除したようなんですが、ゴミ?!が
残ってしまって、そのデータファイルを開くたびに、
オープンマクロがドウコウってでてしまうんです。

これを出ないようにするには、何処をどういじれば
メッセージがでなくなりますか?

このデータは、Ver95なんですが、Ver97でも、
2000でも構いません。
修正の方法を教えていただけませんか?

宜しくお願いします。

A 回答 (4件)

こんにちは



 以下のページがご参考になるのでは?

【エクセル技道場】-マクロ-マクロを削除したのに警告が出る
http://www2.odn.ne.jp/excel/waza/macro.html#SEC1

参考URL:http://www2.odn.ne.jp/excel/waza/macro.html#SEC1
    • good
    • 0

RIO-Freakさんの回答されていることを実行してもなお表示されるようなら、


シートの部分にもコードが書かれている(いた)痕跡があるかもしれません。
    • good
    • 0

No.#1のRIO-Freakです。

すみません、補足です。

No.#1の回答の「標準モジュール」の部分は、「フォーム」または「クラス モジュール」、
[Module1]の部分は、[UserForm1]または[Class1]の場合もあります。
また、[Module1]、[UserForm1]、[Class1]の数字の部分は、
作成したマクロの数によっては、2とか3とか、作成したマクロの数だけあるかもしれません。
    • good
    • 0

そのデータファイルを開いたあと、Visual Basic Editorを起動(「ツール」-「マクロ」-「Visual Basic Editor」)し、


左側の『プロジェクトエクスプローラ』(表示されていない時は、「表示」-「プロジェクトエクスプローラ」をクリック)の、
「標準モジュール」の[Module1]を右クリックして、『Module1 の解放』を選択すれば、削除されます。
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Q「無料で使ってもいい素材(ロゴとかイラスト)」を集めたサイトがあれば教えてください

具体的には、
めちゃイケとかバラエティでよく出てくる
「!」とか「?」のマーク、あと
ひらめいたときの豆球のイラストなんかを探しています。

他にも面白くて無料で使えるフリー素材があれば教えてください

Aベストアンサー

http://www.printout.jp/clipart/clipart_d/19_arrow/01_decoration/clipart2.html
↑こちらが使えれば・・・?
他にも下のトップページに有りますので、探して下さい。

Qリストボックスで選択したexcelブックのデータをマクロのあるexcelブックにコピーしたい

リストボックスを作り、そこに開いてるexcelブックを表示させて選択できるようにしてあるのですが、リストを選択してボタンを押したら、選択したブックのsheet1のA1~B80をマクロのあるブックの"処理用"sheetのA列B列にコピーなるようにしたいのですが上手くいきません

マクロ.xlsmの
リストはActiveコントロールのリストボックスを作り
Private Sub ListBox1_GotFocus()
    Dim wbook As Integer
    ListBox1.Clear
    For wbook = 1 To Workbooks.Count
        ListBox1.AddItem Workbooks(wbook).Name
    Next wbook
End Sub
としてます。

で、別にボタンを作り

Sub ボタン_Click()
Dim target As Variant
Worksheets("マクロ").Select
target = Worksheets("処理用").ListBox1.Text

Workbooks(target).Activate
Sheets(1).Select
Sheets(1).Range(Cells(1, 1), Cells(80,2)).Copy
ThisWorkbook.Worksheets("処理用").(Cells(1, 1), Cells(80,2)).PasteSpecial
(以下略)

と続くのですが、実際に作動させると
Workbooks(target).Activateで「型が一致しません」となりエラーとなってしまいます。

"処理用"シートのD1に直接ファイル名を書いて、
target = Cells(4, 1)
Workbooks(target & ".xlsx").Activate
とやってた時はうまくいったのですが…

いろいろ調べてますが直せず困ってます…

リストボックスを作り、そこに開いてるexcelブックを表示させて選択できるようにしてあるのですが、リストを選択してボタンを押したら、選択したブックのsheet1のA1~B80をマクロのあるブックの"処理用"sheetのA列B列にコピーなるようにしたいのですが上手くいきません

マクロ.xlsmの
リストはActiveコントロールのリストボックスを作り
Private Sub ListBox1_GotFocus()
    Dim wbook As Integer
    ListBox1.Clear
    For wbook = 1 To Workbooks.Count
        ListBox1.AddIte...続きを読む

Aベストアンサー

やっぱりtargetの型はstringにすべきですね。
そうすれば、target = Worksheets("処理用").ListBox1.Textの時点で落ちるはずなので問題の切り分けが出来ます。対処も見つかると思います。

Q無料のイラスト素材

腕時計やお金(500円や1000円等)のイラストを探しているのですが、どこかこのようなイラストを扱っている素材サイト
を知りませんか?
探してみたのですが、年賀状や季節のイラスト等はよくあるのですが、なかなか見つかりません。

ご存知の方、お願いします

Aベストアンサー

MicrosoftOfficeをご利用なさっているのなら、クリップアートをダウンロードすることで豊富なイラスト群をダウンロードできますよ。時計のイラストもお金のイラストも豊富に用意されています。

参考URL:http://office.microsoft.com/clipart/results.aspx?lc=ja-jp&CategoryID=CM790019061041&Scope=MC,MM,MP,MS&CTT=4&Origin=CM790

QexcelでVBA実行後に画面に残るゴミを無くしたい。

こんにちわ。
excelで画面を色々と動かすVBAを作っています。

マクロ処理終了後に、セル選択のカーソル枠が、
ゴミのように画面上に残ってしまいます。
一度ウィンドウの最小化をしてから、
元のサイズへ戻すと無くなりますので、
画面上の問題だけと思われます。

画面再表示のようなコマンドを最後に出せば
良いかと思いますが、それがわかりません。

ご存知の方宜しくお願い致します。
(環境 windows98 excel:office2000)

Aベストアンサー

こんにちは。

Application.ScreenUpdating = True

を最後に追加してみてはいかがですか?

Q無料のイラスト素材

パワーポイントで会社の資料を作成中です。工場で働いている人や作業着を着た人、ヘルメットを着用したイラスト素材を探しています。(様々な表情や手の動きがあれば非常にありがたいです)
どなたかご存知でしたらお知らせください。

Aベストアンサー

仕事で使うのに無料でないとだめなのですか?

有料ですが、満タンWeb
http://www.dex.ne.jp/mantan/index.html
で「作業員」「ヘルメット」検索すれば、ご希望にかなうイラストが多数ヒットすると思います。

Qエクセル97・ワード97・アウトルック97が入ったCD-ROMを小屋から発見しました。何につかえるでしょうか?

小屋の中を整理していたら7年前に買った
エクセル97・ワード97・アウトルック97が入った一枚のCD-ROMを発見しました。
(オフィス○○○○とはどこにも書いてありません)
現在持っている自作パソコンでOEM版のXPホームはあるんですが
エクセルなど高いので買っていませんでしたので
これを気に自作パソコンにインストールしたいと思っています。
そこで質問なんですが。
(1)これはエクセル2003とかにアップグレードすることができるのでし ょうか?
(2)XPでも使えるのでしょうか?
(3)機能的に97は使えるのでしょうか?
(4)その他 何か教えてください

回答お願いします。

Aベストアンサー

追伸です。

http://www.microsoft.com/japan/office/system/upgrade.mspx#EAAA
97はぎりぎりアップグレード版の対象になっているようです。

Qお勧めの無料イラスト素材

保育園の文章などをワード・エクセルで作ることになりました。
そこに、かわいいイラストなどを挿入したいのですが、オフィスサイトにも、ネットでそうとう数探しても、白黒画像でかわいいイラストって意外と少ないと言うか、あまり見つけられませんでした(カラーではたくさんありましたが)。
オフィスの機能でカラーを白黒にしても、あまりうまくキレイに表示(印刷)できないので最初から白黒かグレースケールのイラストでかわいい園児や動植物などがたくさん出ているサイトをご存知の方、お勧めサイトなど、教えてください。

Aベストアンサー

下記のサイトなどはどうでしょう
「モノクロ イラスト集」などで検索すると色々出てきますよ

参考URL:http://www.fumira.jp/

QEXCELマクロ 最終データまでの範囲選択

こんにちは。
EXCELマクロでデータの範囲選択の方法を教えてください。
A1~A10には10個のデータ(固定)
B2~不定のデータ
この範囲を選択する方法を教えてください。
(『 みたいにA列に固定データがあるのでうまく
範囲をひろえません。)

Aベストアンサー

tabtab9さん、こんにちは。
Wendy02です。

このようにしたらいかがかしら?

Sub getMyRange3()
Dim r As Range
 With ActiveSheet.Range("A1").CurrentRegion
 'または、Activesheet.UsedRange
  Set r = Cells(65536, .Cells(.Cells.Count).Column).End(xlUp)
  Range("A1", r).Select
 End With
 Set r = Nothing
End Sub

.UsedRange は、離れた場所のものまでを範囲にしてしまう欠点があります。逆に、.CurrentRegion は、A1 からデータが離れすぎると、取れないことがあります。これは、C列なら、C列の右下端からA1に向かって、範囲を取るようにします。

一応、分りやすいように、r で変数を取りましたが、1つにまとめてしまって結構です。こういうのは、簡単なコードなのですが、慣れていないと、ちょっと思いつきませんね。慣れていなかったら、やはり、一度、Union の使い方を覚えたら良いかと思います。1つずつ、足していく方法です。ローテクに見えますが、かなり便利です。

もしも、点々と間が空いているようにデータの場合は、右端列の.SpecialCells(xlCellTypeConstants) から、そのAreas Count の最後尾、最後のセルを取るのが一番確実です。

tabtab9さん、こんにちは。
Wendy02です。

このようにしたらいかがかしら?

Sub getMyRange3()
Dim r As Range
 With ActiveSheet.Range("A1").CurrentRegion
 'または、Activesheet.UsedRange
  Set r = Cells(65536, .Cells(.Cells.Count).Column).End(xlUp)
  Range("A1", r).Select
 End With
 Set r = Nothing
End Sub

.UsedRange は、離れた場所のものまでを範囲にしてしまう欠点があります。逆に、.CurrentRegion は、A1 からデータが離れすぎると、取れないことがあります。これ...続きを読む

Q■無料イラスト素材を探してます!■

校内新聞を作成しているのですが、
海賊の宝地図みたいなものか、忍者の巻物っぽいイラストを探してます。
少し急いでますので、宜しくお願いします。

Aベストアンサー

下記URLは、キーワードを入力して素材が検索できるサイトです。
いろいろなサイトからの素材が一度に検索されます。

海賊の宝地図や忍者の巻物はむずかしいかもしれませんが、
「海賊」「地図」「忍者」「巻物」なら出てくると思います。

掲載素材の多さではかなりだと思います。
ご希望のものが見つかるといいですね。

参考URL:http://www.ran.co.jp/

Qエクセルマクロ 特定の文字列を含む行のみを残す (マクロ修正)

以下のマクロは、EXCEL2003で
「特定の文字列が含まれている列を削除する」動作をするマクロです

Sub Macro1()
Const col As String = "A" '文字列が入力されている列
Dim idx As Long
Dim keyWord
keyWord = Application.InputBox("削除対象の文字列は?", Type:=2)
If TypeName(keyWord) <> "Boolean" And Len(keyWord) > 0 Then
  For idx = Cells(65536, col).End(xlUp).Row To 1 Step -1
    If InStr(Cells(idx, col).Value, keyWord) > 0 Then
'    If Application.CountIf(Rows(idx), "*" & keyWord & "*") > 0 Then
      Rows(idx).Delete
    End If
  Next idx
End If
End Sub

このマクロを、
「特定の文字列が含まれている行のみを残し、それ以外を削除する」
というマクロに変更したいと思っています。
是非ご回答お願いいたします。

以下のマクロは、EXCEL2003で
「特定の文字列が含まれている列を削除する」動作をするマクロです

Sub Macro1()
Const col As String = "A" '文字列が入力されている列
Dim idx As Long
Dim keyWord
keyWord = Application.InputBox("削除対象の文字列は?", Type:=2)
If TypeName(keyWord) <> "Boolean" And Len(keyWord) > 0 Then
  For idx = Cells(65536, col).End(xlUp).Row To 1 Step -1
    If InStr(Cells(idx, col).Value, keyWord) > 0 Then
'    If Application.CountIf(Row...続きを読む

Aベストアンサー

こんにちは。

ご自身のコードではありませんね。ある程度、コードが書ける人のものです。間違いがありますが。

私としては、他人のコードはあまりいじらないようにしていますので、二番目に私のコードを出しておきます。
'-------------------------------------------
Sub Macro1R()
Const col As String = "A" '文字列が入力されている列
Dim idx As Long
Dim keyWord '←Variant にしていから、本来は、TypeName では受けない
keyWord = Application.InputBox("除外対象の文字列は?", Type:=2)
If TypeName(keyWord) <> "False" And Len(keyWord) > 0 Then
  For idx = Cells(65536, col).End(xlUp).Row To 1 Step -1
    If InStr(Cells(idx, col).Value, keyWord) = 0 Then
    If Application.CountIf(Rows(idx), "*" & keyWord & "*") = 0 Then
      Rows(idx).Delete
    End If
    End If
  Next idx
End If
End Sub
'-------------------------------------------
'-------------------------------------------
Sub MacroTest1()
  Dim keyWord As Variant
  Dim FirstAdd As String
  Dim UR As Range
  Dim c As Range
  Const col As Long = 1 '列数
  keyWord = Application.InputBox("除外対象の文字列は?", Type:=2)
  If VarType(keyWord) = vbBoolean Or Len(keyWord) = 0 Then Exit Sub
  
  With ActiveSheet
    With .UsedRange
      Set c = .Find( _
      What:="*" & keyWord & "*", _
      LookIn:=xlValues, _
      LookAt:=xlPart, _
      SearchOrder:=xlByRows)
      
      If Not c Is Nothing Then
        FirstAdd = c.Address
        Set UR = c
        Do
          Set c = .FindNext(c)
          Set UR = Union(UR, c)
          If c.Address = FirstAdd Then Exit Do
        Loop Until c Is Nothing
      End If
    End With
    If Not UR Is Nothing Then
      UR.EntireRow.Hidden = True
      .UsedRange.SpecialCells(xlCellTypeVisible).Delete
      .UsedRange.EntireRow.Hidden = False
    End If
  End With
End Sub
  

こんにちは。

ご自身のコードではありませんね。ある程度、コードが書ける人のものです。間違いがありますが。

私としては、他人のコードはあまりいじらないようにしていますので、二番目に私のコードを出しておきます。
'-------------------------------------------
Sub Macro1R()
Const col As String = "A" '文字列が入力されている列
Dim idx As Long
Dim keyWord '←Variant にしていから、本来は、TypeName では受けない
keyWord = Application.InputBox("除外対象の文字列は?", Type:=2)
...続きを読む


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング

おすすめ情報