Excel VBAで別シートのセルから文字列を参照する方法

前へ 次へ
このQ&Aのポイント
  • Excel VBAにおいて、同じブックのSheet1からSheet2の文字列を変数に入れようとするとエラーが発生します。
  • なぜエラーが発生するのか、またその対処法について教えてください。
  • シート2のセルA4には文字列が入っています。
回答を見る
  • ベストアンサー

VBA 別シートのセルから、文字列を参照するには？

Excel VBAに於いて 同ＢＯＯＫのＳｈｅｅｔ１から、Ｓｈｅｅｔ２の文字列を変数に入れよとするとエラーになります。 何故でしょうか。 また、その対処法を、御教示ください。 Dim objWBK As Workbook Dim objSH As Worksheet Set objWBK = ThisWorkbook Set objSH = objWBK.Sheet2 Dim cnsFILENAME As String cnsFILENAME = objSH.Range("a4")　　　　　←　ここで、「オブジェクトは、このプロジェクトでサポートされていません。」と、エラーメッセージが出る。 Ｓｈｅｅｔ２．Ｒａｎｇｅ（”Ａ４”）には、文字列を入れてある。 以上、よろしくお願いします。

画像を拡大する

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

  • ベストアンサー
  • Azzz___
  • ベストアンサー率40% (9/22)
回答No.3

こんにちは。 Rangeオブジェクトは値を参照するときにはシートがActiveになっていないと エラーになった記憶があります。 エラーの前に objSH.Activate を入れるとどうですか？ はずしてたらすみません。 #もし「ビンゴ」でしたら、Cellsオブジェクトの方が色々勝手が良いです。 objSH.cells(4,2)

xcode_15
質問者

お礼

連絡が遅れて済みません。 「ビンゴ」でした。 シートを切り替える度に、Activateと指定しないと行けなかったようです。 （面倒ですが・・・）

その他の回答 (2)

  • kazne
  • ベストアンサー率66% (8/12)
回答No.2

多分　問題なく変数に値を渡せるはずです。 きっと、それ以外のところで記述が間違ってると思いますよ。 まさかと思いますが、Range("")内のセル名(アドレス)に全角使ってませんよね？ Range("Ａ４") とか・・・ あと、基本的には cnsFILENAME = objSH.Range("a4").Value と記述し 通貨型や日付型を数値型として扱うっていうなら cnsFILENAME = objSH.Range("a4").Value2 にしておいた方が、明示的になるので私も推奨します。

回答No.1

いや、エラー出てるのは >Set objSH = objWBK.Sheet2 こっちでしょ。 Set objSH = objWBK.Sheets("Sheet2")とかならわかるんですけど。 #Setって書いてないから確かに文字列入るんだけど、個人的にはあまりデフォルトプロパティとか暗黙の型変換って好きじゃないので、 cnsFILENAME = ObjSH.Range("a4").value2 あたりまで書きたがると思う

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

関連するQ&A

  • VBAで別ブックを複数列検索し、隣のセルの値を取得

    book2(master)のセルA1、2、3・・・・の値でbook1(data)の任意の複数列(以下では3列目、8列目としています)を検索し、検索結果の右側のセルの値(以下の例の場合4列目と9列目)をbook2(master)の検索元セルの右側に書き込みたいのですが、実行すると実行時エラー1004アプリケーションまたはオブジェクトの定義エラーです。 と表示されてしまいます。回避方法について教えて頂けますでしょうか また、複数列の検索方法について適切な方法がありましたら教えて頂けますでしょうか 例） master A2”aa”　空欄　←hoを取得 A3”bb”　空欄　←3aを取得 A4”cc”　空欄 data(ランダムに配置されています) 1　2　3　4　5　6　7　8 9 　　　ca de　　　　 　d4 2f 　　　c1 3a　　　　 　bb 3a 　　　aa ho　　　 　　7e ee Sub kensaku() Dim book1 As Workbook Dim book2 As Workbook Dim sheet1 As Worksheet Dim sheet2 As Worksheet Dim rng As Range Dim r As Long Set book1 = Workbooks.Open("D:\Book1.xls") Set book2 = Workbooks.Open("D:\Book2.xls") Set sheet1 = book1.Sheets("data") Set sheet2 = book2.Sheets("master") r = 2 Do While sheet2.Range("A" & r).Value <> "" Set rng = sheet1.Range(Columns(3), Columns(8)).Find(sheet2.Range("A" & r).Value, LookAt:=xlWhole) If Not rng Is Nothing Then sheet2.Range("B" & r).Value = rng.Offset(0, 1).Value End If r = r + 1 Loop End Sub

  • [Excel97]VBA:セルに入っている数式を別のシートのセルに文字列としてセットする

    「ExcelVBAマクロ500連発」という技術評論社の本（青のカバー）のNo.277に 「式を文字列として表示する」というサンプルマクロがあります。 「ワークシートのセルに入っている数式を、（同じシート内の）別のセルに文字列としてセットする」 ここのコードを参考にして、 「数式を、（同じブック内の別のシートの）セルに文字列としてセットする」コードを考えています。 以下のコードを作りましたが、実行すると最後から2行目の「.Formula」のところで 実行時エラー1004：'Range'メソッドは失敗しました。'_Global'オブジェクト というエラーが出てきます。なぜでしょうか？ 正しいコードの記述を教えて下さい。 （Sheet1のD3セルの計算式をSheet2のD10セルに文字列としてセット） Option Explicit Dim 調査セル As Variant Dim 報告セル As Variant Sub 式の抽出() Worksheets("Sheet2").Select 調査セル = Worksheets("Sheet1").Cells(3, 4) 報告セル = "D10" Range(報告セル).Value = "" Range(報告セル).Value = "'" + Range(調査セル).Formula End Sub

  • 【VBA】別々のシートに列ごとコピーしていきたい

    エクセルＶＢＡ初心者です 以下のような表を、地区別にわけられたシートで、種別を選んで貼り付けていきたいのですが 地区 種別 1 大阪 金 2 東京 銀 3 名古屋 銀 4 大阪 金 5 大阪 銅 6 名古屋 銅 7 東京 金 8 名古屋 金 9 大阪 銅 金と銀のみ、地区に分けられたシートに貼り付け シート【大阪】 1 大阪 金 4 大阪 金 シート【東京】 2 東京 銀 7 東京 金 シート【名古屋】 3 名古屋 銀 8 名古屋 金 以下のVBAを加工してみましたが組んでみましたがうまくいきません どうかご教示のほどよろしくお願いします ↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓ Public Sub cptest() Dim sht1 As Worksheet Dim sht2 As Worksheet Dim rng As Range Dim cel As Range Dim stcrng As New Collection Dim lastRow As Integer Dim cnt As Integer Set sht1 = ThisWorkbook.Worksheets("Sheet1") Set sht2 = ThisWorkbook.Worksheets("Sheet2") lastRow = Range("G65535").End(xlUp).Row Set rng = sht1.Range("G1:G" & lastRow) For Each cel In rng If cel.Value = "あり" Then Set cel = sht1.Range(cel.Offset(0, -4), cel.Offset(0, -1)) stcrng.Add cel End If Next sht2.Cells.Clear cnt = 0 Set rng = sht2.Range("A1") For Each cel In stcrng cel.Copy rng.Offset(cnt, 0).PasteSpecial rng.Offset(cnt, 4).Value = "＿" cnt = cnt + 1 Next Application.CutCopyMode = False End Sub

  • 特定の文字以外を入力すると別シートに表記する方法

    Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim StrRow As Long Dim TgtCol As Long Dim MaxRow As Long Dim ChgRow As Long Dim PutSh1 As Worksheet Dim PutSh2 As Worksheet Dim PutSh3 As Worksheet Dim PutCol As Long Dim PutRow As Long Dim ChgRng1 As Range Dim ChgRng2 As Range Dim ChgRng3 As Range StrRow = 5 MaxRow = 35 If Target.Count > 1 Then Exit Sub If Target.Value = "" Then Exit Sub Set PutSh1 = ThisWorkbook.Sheets("Sheet2") Set PutSh2 = ThisWorkbook.Sheets("Sheet3") Set PutSh3 = ThisWorkbook.Sheets("Sheet4") With ThisWorkbook.Sheets("Sheet1") Set ChgRng1 = Range(.Cells(StrRow, 3), .Cells(MaxRow, 3)) 'C列 Set ChgRng2 = Range(.Cells(StrRow, 5), .Cells(MaxRow, 5)) 'E列 Set ChgRng3 = Range(.Cells(StrRow, 7), .Cells(MaxRow, 7)) 'G列 End With ChgRow = Target.Row If Not Intersect(Target, ChgRng1) Is Nothing Then Target.Offset(0, -1).Value = Target.Offset(0, -1).Value + 1 DataPut PutSh1, ChgRow, Target.Value End If If Not Intersect(Target, ChgRng2) Is Nothing Then Target.Offset(0, -1).Value = Target.Offset(0, -1).Value + 1 DataPut PutSh2, ChgRow, Target.Value End If If Not Intersect(Target, ChgRng3) Is Nothing Then Target.Offset(0, -1).Value = Target.Offset(0, -1).Value + 1 DataPut PutSh3, ChgRow, Target.Value End If End Sub 以前質問させて頂いた内容で追加の質問です。 Sheet1の指定したセルに「ー（ハイフン）」の文字がある時は、Sheet2〜4に転送（表記）しない方法を追加する場合はどの様にすれば宜しいでしょうか？

  • VBAにおいて別ブックのシートのセル値を配列に格納

    エクセルVBAにて２つの異なるワークブック（セルの配置等は同じ）からセル値を読みだし，それを比較した際に同値であれば２つとは異なる第３のワークブック（同じくセルの配置等は同じ）の読みだしたセルの位置と同じセルに文字列を入力するというプログラムを書こうとしています．その際に他のワークブックAのシートを開き，任意のセル範囲のみを用意した配列に格納しようとすると「オブジェクト変数または with ブロック変数が設定されていません。」というエラーが出ます．これはworksheetとして定義した変数ssのcellsを操作しようとしているから発生しているのでしょうか？最近VBAの勉強を始めたばかりで全く分かっていません．初歩的な質問となってしまうかもしれませんがご教授宜しくお願いします． Option Explicit Public cs As Worksheet Public sb As Workbook Public ss As Worksheet Public Sub make() Dim sn As Long Dim sname As String Dim i As Integer Set c = ThisWorkbook.Worksheets(1) Set sb = Workbooks.Open("A") sn = sb.Sheets.Count For i = 1 To seiton sname = Sheets(i).Name Set ss = sb.Worksheets(i) Call match Next sb.Close False Set ss = Nothing Set sb = Nothing End Sub Public Sub match() Dim i, j, k As Integer Dim day, koma As Integer day = 24 koma = day * 5 Dim can() As Boolean Dim kout() As Byte Dim seit() As Byte ReDim can(koma) ReDim kout(koma) ReDim seit(koma) For i = 0 To koma j = i \ 5 For k = 0 To 5 seit(i) = ss.Cells(k + 3, 2 + j) '←この部分でエラーが出ています Next Next Erase can Erase kout Erase seit End Sub

  • 「オブジェクトが必要です。」エラーになります。

    次のコードで２．は動くのですが、１．が動きません。「オブジェクトが必要です。」エラーになります。 何が違うんでしょうか？ 教えてください。よろしくお願いします。 Function hoge(aa As Range) aa.Value = "Hello!!" End Function Sub Worksheet_Activate() Dim a As Range Set a = ThisWorkbook.Worksheets("Sheet1").Range("G10") hoge (a) ' ←１．これだとエラーになる ' hoge (ThisWorkbook.Worksheets("Sheet1").Range("G10")) ' ２．こちらはOK End Sub

  • VBA マクロ　シート　転記

    はじめまして。VBA初心者です。今シート１のA列1行目セルにA社、A列2行目にB社、A列3行目にC社と・・ざっと1000行程あり、それぞれB列には値があります。この値をシート２のＢ列に転記したいと思っています。ただ、毎月シートを追加していきますので、左隣のシートから転記しなければなりません。シート２の項目は同じA列とB列で構成されています。A列の値が多少前後するので、FINDを使って以下のようなプログラムを作りました。ただ、左隣のシートから転記とう内容をどうやって追加したら良いのかがわかりません。Previous　をどこかに使えばできるのかなとも思うのですが、その方法がわかりません。 Sub 転記() Dim ws As Worksheet, ws1 As Worksheet, r As Range, r1 As Range Dim LastRow As Long, i As Long, er As Long, wkey As String Set ws = Worksheets("Sheet1") Set ws1 = Worksheets("Sheet2") LastRow = ws.Range("A1").End(xlDown).Row er = ws1.Range("A1").End(xlDown).Row Set r = ws.Range("A1:A" & LastRow) For i = 1 To er wkey = ws1.Range("A" & i) Set r1 = r.Find(What:=wkey, LookIn:=xlValues, LookAt:=xlWhole) If Not r1 Is Nothing Then ws1.Range("B" & i) = r1.Offset(, 1) End If Next Set r1 = Nothing Set r = Nothing Set ws = Nothing Set ws1 = Nothing End Sub どなたか詳しいお方いらっしゃいましたら、初心者の私に教えて頂けませんでしょうか？宜しくお願いします。

  • Excel VBAで文字列の部分一致の文字列を表示

    以前、こちらで頭５文字までの一致で文字列を表示するVBAを教えて頂きました。今回はFINDなどの部分一致での文字列を表示することをしたいのですが、ご教示いただけますと幸いです。 下記はSheet1のA3に文字を5文字以内いれるとSheet２のC列からピックアップしてSheet１のA列に文字列を表示する及びSheet２のB列のデータをSheet１のC列に表示させるVBAです。 Sub Test2() Dim Ws1 As Worksheet, Ws2 As Worksheet Dim SData As String, i As Long, VRet As Variant Dim c As Range, LastRow As Long Set Ws1 = Sheets("Sheet1") Set Ws2 = Sheets("Sheet2") SData = CStr(Ws1.Range("A3").Value) If SData = "" Then Exit Sub i = 5 LastRow = Ws1.Cells(Rows.Count, "A").End(xlUp).Row If LastRow < i Then LastRow = i End If Ws1.Range(Ws1.Cells(i, "A"), Ws1.Cells(LastRow, "C")).ClearContents With Ws2 For Each c In .Range(.Cells(1, "C"), .Cells(Rows.Count, "C").End(xlUp)) VRet = InStr(1, CStr(c.Value), SData, vbTextCompare) If VRet = 1 And Len(c.Value) >= 10 Then Ws1.Cells(i, "A").Resize(1, 2).Value = c.Resize(1, 2).Value 'とりあえずSheet2のB列のデータ(C列のデータに同期したデータ)をSheet1のC列に Ws1.Cells(i, "C").Value = .Cells(c.Row, "B").Value i = i + 1 End If Next End With End Sub 宜しくお願い致します。

  • ＶＢＡにて新規ブックへ既存シートのコピー

    みなさんのお力を貸して下さい。 現在エクセルマクロにて新規ブックを作成し、作成したブックへ既存のシートをコピーをしたいと思っています。 しかし、コピーメソッド実行時にエラー1004　WorksheetクラスのCopyメソッドが失敗しましたというエラーが発生して困っています。 Dim oXls As Object Dim oWbk As Object Dim oSheet As Object Set oXls = CreateObject("Excel.Application") Set oWbk = oXls.Workbooks.Add ThisWorkbook.Worksheets("Sheet1").Copy Before:=oWbk.Worksheets("Sheet1")　 どなたかご教授、よろしくお願いします。

  • ＶＢＡ　検索して一致したセルへジャンプさせたい

    Excelにて、シート１のＡ列とシート２のＡ列のデータにＮｏを入れます。 シート１のＡ列のＮｏをクリックすると、シート２のＡ列の同じＮｏにジャンプするマクロを組みたいです。 現在組んでいるマクロは、 Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Sht As Worksheet Dim Rng1 As Range Dim Rng2 As Range Dim FindCell As Range Set Sht = Worksheets("シート2") Set Rng1 = Range("A2:A100") Set Rng2 = Sht.Range("A2:A100")If Intersect(Target, Rng1) Is Nothing Then Exit Sub If Target.Count > 1 Then Exit Sub Set FindCell = Rng2.Find(Target.Value) If Not FindCell Is Nothing Then Application.Goto Reference:=FindCell, Scroll:=False End If End Sub です。 一応マクロは実行されますが、そうすると、シート１のＡ列の編集（Ｎｏを追加したり変更したり・・・）できません。 編集や変更もできて、検索マクロも実行できるというマクロの組み方はありますでしょうか？

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

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

質問する