ベストアンサー

なぜエラーになるのかわかりません。

2015/02/01 23:10

コードとしては問題ないはずなのになぜエラーになるのかわかりません。 Private Sub Worksheet_Activate() Cells(1, 1).Select End Sub というコードで、実行時エラー1004 rangeクラスのselectメソッドが失敗しました。となります。

mclqimufvqxs
お礼率74% (49/66)

Excel（エクセル）
回答数1
ありがとう数2

みんなの回答 （1）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

Chiquilin
ベストアンサー率30% (94/306)

2015/02/02 10:13 回答No.1

Application.Goto ActiveSheet.Range("A1") でもダメですか？全くの新しいブックで試してみても同じ結果になるでしょうか。

質問者

お礼 2015/02/11 16:48

回答頂きありがとうございました。

関連するQ&A

VBAで実行時エラー1004が出ます

VBAで実行時エラー1004が出ます。「Rangeメソッドは失敗しました。Worksheetオブジェクト」です。あらゆる可能性を調べたのですが、分かりません。誰か教えて頂けますでしょうか？下記コードの「Cells(m, 7) =・・・」の部分がエラーになりました。 Sub ボタン1_Click() Dim 現シート As Worksheet ～現シート.Activate Cells(m, 7) = WorksheetFunction.VLookup(現シート.Range(現シート.Cells(m, 4)).Select, 現シート.Range(現シート.Cells(4, 104), 現シート.Cells(15, 107)).Select, 4, False) ～ End Sub 何卒宜しくお願いいたします。
アクティブでないシートのセルを選択

Excel VBAでアクティブでないシートのセルをSelectすることはできないのでしょうか。 Selectメソッドというのは，もともとそういうものなのでしょうか。エラー：「RangeクラスのSelectメソッドが失敗しました。」コード Sub aaa() With Worksheets("Sheet2") .Range(.Cells(44, 1), .Cells(48, 21)).Select End With End Sub
ExcelVBA：ワークシートに付けたコマンドボタンから、セル全体をコピーするコード

ExcelVBAでワークシートに付けたコマンドボタンを押すと、ワークシートを指定し、コピーするプログラムを作りたいのですが、「実行時エラー'1004':RangeクラスのSelectメソッドが失敗しました。」というようなエラーが出て動きません。プログラムは以下の通りです。 Private Sub CommandButton1_Click() Sheets("Sheet1").Select Cells.Select Selection.Copy End Sub どのようにすればよいでしょうか？回答よろしくお願いします。
コマンドボタンを押したときシート2のa行の空白セルを選択したいのですが

コマンドボタンを押したときシート2のa行の空白セルを選択したいのですが以下のやり方では”RangeクラスのSelectメソッドが失敗しました。”のエラーが出てしまいます。どこがいけないのか教えてください。 Private Sub CommandButton1_Click() Worksheets("sheet2").Activate Range("a65536").End(xlUp).Offset(1).Select End Sub ちなみに、コマンドボタンはシート１にあります。よろしくお願いします。
エラーになる理由とならない理由は？

同じアプリケーション内にBook1.xlsとBook2.xlsを開き、 Book1.xlsのSheet1にアクティブエックスのコマンドボタンを設置して、 Private Sub CommandButton1_Click() Range("a1").Select End Sub としました。このコードは問題なく実行できますが、 Book1.xlsのコマンドボタンから、「Book2.xlsのSheet1を選択する」というコードをしたい時に、 Private Sub CommandButton1_Click() Windows("Book2.xls").Activate Range("a1").Select End Sub をすると、「実行時エラー1004　アプリケーション定義またはオブジェクト定義のエラーです。」になります。しかしなぜかRangeの前にSheets("Sheet1")を入れて Private Sub CommandButton1_Click() Windows("Book2.xls").Activate Sheets("Sheet1").Range("a1").Select End Sub にすると、問題なく実行できます。 Book1.xlsにもBook2.xlsにも「Sheet1」と言う名のシートはあります。なぜ、Sheets("Sheet1").を入れるとエラーにならないのか教えてください。
エクセル　マクロ　コマンドボタンで行をコピーエラー

教えてください。 sheet2にコマンドボタンを作成し、コードを下記の通りに入力しました。ボタンを押すと「RangeクラスのSelectメソッドが失敗しました。」とエラー表示されデバックを見るとRows("1:1").Selectが原因みたいですが、どのように手直ししたらいいか教えて頂けないでしょうか。 Private Sub CommandButton1_Click() Sheets("Sheet1").Select Rows("1:1").Select Selection.Copy Sheets("Sheet2").Select Rows("20:20").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End Sub
'Range'メソッドは失敗しました

ExcelのVBAの質問になりますが、教えてください。下記を動かすと最後の行で「'Range'メソッドは失敗しました: '_Worksheet' オブジェクト」と出ますどうしても最後の行をセレクトしたいのですが、どうしたらよいでしょうか。 Option Explicit Public WB1 As Workbook Public WB1SH1 As Worksheet Public CSVWB1 As Workbook Public CSVWB1SH1 As Worksheet Dim MaxRow As Integer Private Sub CommandButton1_Click() Set WB1 = ActiveWorkbook Set WB1SH1 = WB1.Worksheets(1) Dim a As String a = WB1SH1.Range("a1) Workbooks.Open "C:\Users\User\Desktop\" & a & ".CSV" Set CSVWB1 = ActiveWorkbook Set CSVWB1SH1 = CSVWB1.Worksheets(1) MaxRow = CSVWB1SH1.Cells(Rows.Count, 1).End(xlUp).Row WB1SH1.Activate WB1SH1.Range(Cells(1, 1), Cells(MaxRow, 3)).Select CSVWB1SH1.Activate CSVWB1SH1.Range(Cells(1, 1), Cells(MaxRow, 3)).Select　　'←ここでエラーがでる End Sub
VBAの処理が途中で止まる

エクセル2003です。検索してヒットしました下記のVBAなのですが、処理結果は希望した状態になるものの、VBAが途中で止まってしまう状態になります。正常に終了させるには、どうすればいいのでしょうか。 ■全てのシート（シート名任意）のアクティブセルをA1にする Sub auto_open() Dim r As Long, sh As Worksheet For Each sh In Worksheets sh.Activate ActiveSheet.Select r = Selection.Row ActiveWindow.SmallScroll Up:=r Cells(1, 1).Select Next End Sub ※実行すると5行目で止まり、実行時エラー1004　WorksheetクラスのSelectメソッドが失敗しました　と表示されます。
Excel2000 VBA ダブルクリックで別シートの同番地セルへ移動

sheet1とsheet2　の２つのシートがあります。 sheet1のA1セルをダブルクリックすると、sheet2のA1セルへ移動させたいのですが、下記のコードで実行すると、 'Range'メソッドは失敗しました：'_WorkSeet'オブジェクトのエラーメッセージが表示されました。どうぞアドバイスお願い致します。 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 　　Sheets("sheet2").Select 　　Range("Target.Address").Select 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で実行させても、ＯＳの音が鳴るだけで、マクロの実行はされません。ご回答よろしくお願いします。
vb error 1004

EXCEL VBの実行時エラーで 1004 Range　クラスのSelectメソッドが失敗しました。とのメッセージが出るのですが、実際のプログラムでは、With が含まれています。 With Workbooks(sOutputBook).Sheets(1) .Range("A" & (ROW_CHILD_START + lCntChild)).Select　←　ここでエラー　　　　　　・・・・　　　　　 End With こんな質問で、わかりますか？回答、よろしくお願い致します。
ECXEL VBA - Selectメソッドの失敗

Rangeを指定するのに、 Workbooks("abc").Sheets("Sheet1").Range("A1").Select と言う風に指定したいのですが、これを行なうと -------------------------------------------- 実行時エラー '1004': RangeクラスのSelectメソッドが失敗しました。 -------------------------------------------- となってしまう為、いつもわざわざ下記のようにしています。 Workbooks("abc").Activate Sheets("Sheet1").Select Range("A1").Select Selectだけでなく、Copyの貼り付け等の時も同様でかなりの手間と、コードの長さになってしまっています。どこかの設定を変えると出来たりするのでしょうか？又、他に良い方法がありましたらお教え下さい。よろしくお願いします。
別シートに罫線がひけない

表題どおりなのですが、別シートに罫線がかけません。例えばSheet1にあるボタンをクリックするとSheet2に罫線をかく。（コードは下記参照）としたときにエラーが発生します。「1004　Rangeメソッドは失敗しました。」そのため「ActiveSheet.」をはずしてみると”Sheet1”に描画されてしまいます。なにか宣言が必要なのでしょうか？ Private Sub CommandButton1_Click() Worksheets("sheet2").Activate　'.Selectでも同じ For i = 4 To Range("G30").Column ActiveSheet.Range(Cells(4, i), Cells(30, i)).Borders(xlLeft).Weight = xlThin ActiveSheet.Range(Cells(4, i), Cells(30,i)).Borders(xlLeft).LineStyle = xlContinuous Next End Sub
VBAでエラートラップがうまくいきません。

VBAで次のようなプロシージャを実行してみました。 Private Sub Worksheet_SelectionChange(ByVal Target As Range) 　　If Target.Value = " " Then 　　　　　　　　～コード～　　END IF END SUB すると複数のセルが選択されるとエラーがでます。そこで次のようにしてみました。 Private Sub Worksheet_SelectionChange(ByVal Target As Range) 　　On Error GoTo エラー処理　　If Target.Value = " " Then 　　　　On Error GoTo 0 　　　　　　　　　～コード～　　END IF 　　EXIT SUB エラー処理: 　　EXIT SUB END SUB ところがこれでもやっぱりIF文のところでエラーがでます。当方初心者でなぜエラーがでるのかわかりません。わかりやすくご教授ください。よろしくお願いします。
エクセルをバージョンアップさせたらマクロがうまくいきません

OSはXPですエクセル2002から　2003にバージョンをあげましたいままでうまくいっていたマクロが Range(Cells(1, 1), Cells(Cells(65535, 1).End(xlUp).Row, 9)).Select Selection.Copy Sheets("Sheet1").Select Sheets.Add ActiveSheet.Paste このような内容で ActiveSheet.Paste　　この部分でエラーが起きます「実行時エラー　”1004” 　worksheetクラスのpasteメソッドが　　失敗しました」というメッセージがでます。どういう対処をしたらよろしいでしょうか？ご教授ください。（バージョンを元にに戻すなど）
実行時エラー　-'-2147417848

エクセルがおかしいです。ファイルが壊れてるのでしょうか？ Private Sub Worksheet_Change(ByVal Target As Range) Range("a2") = Empty Range("a3") = Empty という、単純なコードなのですがイベントが発生すると「メモリ不足です。完全に表示できません。」となったり、実行時エラー　-'-2147417848（80010108） '_default'メソッドは失敗しました　'range'オブジェクトとなります。 Range("a2") = Empty の部分で発生します。そして強制終了され、再起動されます。コードとしては問題ないですよね？バージョンは２０１０です。
シートのイベント　ＶＢＡ

シートをクリックしたらシートをクリアしたいのですがクリックするセルがＡ１の場合は、マクロを実行させたくないのですが下記のコードだとエラーになってしまいます。 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Target.Range = Range("a1") Then Cells.Clear End If End Sub ”Range("a1")でなければ、Cells.Clearする” にはどうすればいいですか？
EXCEL2010エラーVBA

下記を実行するとエラーになりEXCEL2010が終了してしまいます。 fDebug:0 offset00009391　がエラーメッセージです。何が原因でしょうか。 Private Sub Worksheet_Change(ByVal Target As Range) Dim ws As Worksheet Dim rg As Range Dim r As Variant Dim c As Long Dim hanni1 As Range Dim atai As Range Set ws = Worksheets("あああ") Set rg = Worksheets("コード").Range("A1:B10") r = ws.Cells(Rows.Count, 1).End(xlUp).Row Set hanni1 = ws.Range(Cells(2, 2), Cells(r, 3)) Set atai = ws.Range(Cells(2, 3), Cells(r, 3)) atai = Application.VLookup(hanni1, rg, 2, False) End Sub
エクセルのマクロについて

エクセル97でマクロを組んで下記作業を行いたいと考えていますが（実際にやりたい事から抜粋した内容です）、不具合が起こっています。～やりたい事～コマンドボタンを押すとあるシートのセルをコピーして、違うシートに貼り付ける。～不具合内容～ (1)普通にマクロを実行すると問題ないが、(2)コマンドボタンを使用するとエラーが起こる。エラー内容は、「実行時エラー'1004' RangeクラスのSelectメソッドが失敗しました。」と言う内容です。～(1)のVB表記～ Sub Macro1() Sheets("sheet1").Select Range("A1").Select Selection.Copy Sheets("sheet2").Select Range("A1").Select ActiveSheet.Paste End Sub ～(2)のVB表記～ Private Sub CommandButton1_Click() Sheets("sheet1").Select Range("A1").Select　（←ここでエラーが発生します） Selection.Copy　 Sheets("sheet2").Select Range("A1").Select ActiveSheet.Paste End Sub ～質問事項～ 1）(2)の表記の何が原因でエラーが起こっているのでしょうか？ 2)エラーが起きない為にはどのようにしたら良いでしょうか？
型が一致しない　というエラー

Private Sub Worksheet_Change(ByVal Target As Range) If Target = Range("B1") Then Range("B3:B8").Select Selection.ClearContents End If End Sub というコードを書いています。Ｂ３～Ｂ８は「数字」という書式です。型が一致しない１３番のエラーが出ます。原因と対処法を教えてください。宜しくお願いします。

なぜエラーになるのかわかりません。

質問者が選んだベストアンサー

お礼 2015/02/11 16:48

関連するQ&A

VBAで実行時エラー1004が出ます

アクティブでないシートのセルを選択

ExcelVBA：ワークシートに付けたコマンドボタンから、セル全体をコピーするコード

コマンドボタンを押したときシート2のa行の空白セルを選択したいのですが

エラーになる理由とならない理由は？

エクセル　マクロ　コマンドボタンで行をコピーエラー

'Range'メソッドは失敗しました

VBAの処理が途中で止まる

Excel2000 VBA ダブルクリックで別シートの同番地セルへ移動

エクセル　デバッグできるのとできないのがある

vb error 1004

ECXEL VBA - Selectメソッドの失敗

別シートに罫線がひけない

VBAでエラートラップがうまくいきません。

エクセルをバージョンアップさせたらマクロがうまくいきません

実行時エラー　-'-2147417848

シートのイベント　ＶＢＡ

EXCEL2010エラーVBA

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

型が一致しない　というエラー

注目のQ&A

カテゴリ
一覧

専門家に質問してみよう
専門家登録

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

なぜエラーになるのかわかりません。

質問者が選んだベストアンサー

お礼 2015/02/11 16:48

関連するQ&A

VBAで実行時エラー1004が出ます

アクティブでないシートのセルを選択

ExcelVBA：ワークシートに付けたコマンドボタンから、セル全体をコピーするコード

コマンドボタンを押したときシート2のa行の空白セルを選択したいのですが

エラーになる理由とならない理由は？

エクセル マクロ コマンドボタンで行をコピーエラー

'Range'メソッドは失敗しました

VBAの処理が途中で止まる

Excel2000 VBA ダブルクリックで別シートの同番地セルへ移動

エクセル デバッグできるのとできないのがある

vb error 1004

ECXEL VBA - Selectメソッドの失敗

別シートに罫線がひけない

VBAでエラートラップがうまくいきません。

エクセルをバージョンアップさせたらマクロがうまくいきません

実行時エラー -'-2147417848

シートのイベント ＶＢＡ

EXCEL2010エラーVBA

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

型が一致しない というエラー

注目のQ&A

カテゴリ 一覧

専門家に質問してみよう 専門家登録

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

エクセル　マクロ　コマンドボタンで行をコピーエラー

エクセル　デバッグできるのとできないのがある

実行時エラー　-'-2147417848

シートのイベント　ＶＢＡ

型が一致しない　というエラー

カテゴリ
一覧

専門家に質問してみよう
専門家登録