- ベストアンサー
vbaのFindメソッドで取得するにはどうすれば
A1に「あ」B1に「い」と入れて、 A2に「=A1&B1」としました。 この時、A2は「あい」と表示されます。 今回やりたいことは、 Sub test() Debug.Print Cells.Find(What:=" あい").Row End Sub で、２を返したいのですが、 実行時エラー９１になってしまいます。 セル内に該当の文字列がないからだと思いますが、 数式でつなげた文字列を、 vbaのFindメソッドで取得するにはどうすれば良いでしょうか？
- LNXDRYOPEJ
- お礼率69% (44/63)
- Excel（エクセル）
- 回答数2
- ありがとう数2
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
実行時91エラーはfindでデータが見つからなかった為だと思われます。 B1のいの後に半角スペースが入っている等で完全一致で無いなどの理由。 下記はfindメソッドでエラー回避方法が記載されてますので参考にされたら如何でしょう。 http://www.relief.jp/itnote/archives/excel-vba-handle-range-find-error.php 私はバージョンは2007ですが、質問の内容で試しましたが、エラーも起きずに行番号表示されました。
その他の回答 (1)
- Chiquilin
- ベストアンサー率30% (94/306)
「" あい"」と頭に半角スペースが入ってますがこれはわざとですか？ それはともかく 「値」を対象に検索する必要があるかと思います。 Debug.Print Cells.Find(What:="あい", LookIn:=xlValues)
お礼
どうもありがとうございました。
関連するQ&A
- 改行のあるセルをFindで検索したい
エクセルです。 A1セルに 「あああ」と入力して、ALT+Enterで改行し、「いいい」と入力しました。 ＶＢＡで Sub test() MsgBox Cells.Find(What:="あああ" & Chr(13) & "いいい", LookAt:=xlWhole).Address End Sub として、セル番地を取得したいのですが オブジェクト変数または With ブロック変数が設定されていません。(Error 91) と言うエラーが返ってきてしまいます。 $a$1が返ってきてほしいのですが。 Sub test() Debug.Print Cells.Find(What:="あああ*", LookAt:=xlWhole).Address End Sub で、$a$1が返ってきますが、 できれば改行含む検索ができるようになりたいです。
- ベストアンサー
- オフィス系ソフト
- EXCEL VBAのFind について
VBAで、特定の文字が入っているセル位置(結合セル)を取得したく、 シートのコード記述で --- Private Sub Worksheet_Change(ByVal Target As Range) Dim w_CelObj As Object Set w_CelObj = ActiveSheet.Cells.Find(What:="あああ", LookAt:=xlWhole, MatchByte:=False) MsgBox w_CelObj.Row MsgBox Cells.Find(What:="いいい").Row End Sub ----- と記述し、"aa"も"bb"もどちらの方法でも取得できました。 ですが、これを別のEXCELブック（既にシートがたくさんあり、コードもびっしり記述してあります）で同様のことを行おうとするとエラーになってしまいます。 ※新しいシートを作成し、そのシートにコードをコピーして試しました。 セルの結合を解除すると正常に取得できるのですが、結合セルだとFindされてきません。 調べてみましたが、「Cells.Find」ときちんとセル全体を指定していれば大丈夫のようで、同様の事例を検索できませんでした。 他に何を調べればよいでしょうか？ ご協力よろしくお願いします。
- 締切済み
- オフィス系ソフト
- VBAのFindメソッドのエラー理由
初歩的な質問ですがよろしくお願いいたします。 シート1のi行6列目の文字列をシート2の3列目から探してその行数をシート1のi行16列目に 引っ張ってくる記述をしたく、下記のようなコードを書いたところ1004のデバック表示がされました。下の記述をどうすれば正常に動くでしょうか。 Range(i, 16) = Worksheets(2).Range(Cells(5, 3), Cells(5, 3).End(xlsown)).Find(Cells(i, 6)).Row
- 締切済み
- Visual Basic
- エクセルVBAのFindメソッドを使って・・・
こんばんは。エクセルのVBAで教えてください。 I列で「数量」という文字を見つけて、 その(I列の)右隣(J列)の値をB2以降に、 その２つ左(G列)のレートをC2以降に、 その３つ左(F列)の、２つ上の商品名をA2以降に 順に書き出していくようにしたいのですがどのようにコードを 書けばいいでしょうか？ Findメソッドを使ってできそうだと考えたのですが、その先が さっぱりわかりませんが、なんとか形にしたいので質問させていただ きます。よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- VBA FindメソッドとMatch関数のところ
まだVBAに慣れていませんが、下記のソースを書いてみました。 ★印の間の部分の処理を、最初はFor Nextで書いていたのですが、理由が解らないですが…うまく処理されない為、タイトルの2種類（セルのFindメソッドとMatch関数)を使って処理しようと思い書き直したのですがうまく処理されません。 どこがいけないのか解らず数時間も悩んでしまいました。 すみませんが、どなたか教えてください。よろしくお願いします。 Sub 外注別案内書作成() Dim ws As Worksheet 'オブジェクト格納 Dim i As Long, j As Long '繰り返す回数格納 Dim annaicode As Variant '案内場所C格納 Dim addwsname As Variant 'シート名前格納(※案内場所名) Dim flag As Boolean '真偽 Dim r As Range 'Findメソッドの返り値格納 Dim K As Long 'Match関数の返り値格納 'レポート元でQ列の情報が入っている時に、案内場所別で情報を作成する。 'レポート元でQ列に値がある時に、annaicode変数へ格納。 For i = 2 To Worksheets("レポート元").Cells(Rows.Count, "A").End(xlUp).Row If Cells(i, "Q").Value <> "" Then annaicode = Cells(i, "Q").Value End If ★ココから-------- '外注一覧でannai変数と一致した時に、addwsname変数へ格納。 FindメソッドとMatch関数 With Worksheets("外注一覧").Columns("1:1") Set r = .Find(What:=annaicode, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByColumns) If r Is Nothing Then MsgBox i & "行目の案内場所Cの入力が不正です。" & vbCrLf & "処理を中断しますね", _ vbOKOnly + vbExclamation, "お知らせ" Else With Worksheets("外注一覧") K = .Match(annaicode, .Range(.Cells(1, "A").Value, .Cells(.Rows.Count, "A").Value), 0) addwsname = .Cells(K, "B").Value + "_案内" End With End If End With ★ココまで-------- 'ワークシートコレクション内でaddwsname変数と一致した時に、flag変数をTrueにする。 For Each ws In Worksheets If ws.Name = addwsname Then flag = True End If Next ws 'flag変数の値により、各々処理をする。 If flag = True Then Worksheets("レポート元").Cells(i, "A").EntireRow.Copy _ Destination:=Worksheets(addwsname).Cells(Rows.Count, "A").End(xlUp).Offset(1, 0) flag = False Else Worksheets.Add ActiveSheet.Name = addwsname Worksheets("レポート元").Cells(i, "A").EntireRow.Copy _ Destination:=Worksheets(addwsname).Cells(Rows.Count, "A").End(xlUp).Offset(1, 0) End If Next i End Sub
- ベストアンサー
- その他（プログラミング・開発）
- VBAで２つのプロシージャーをつなげるには
VBAでSub ～ End Subまで書き終えて、一つのプロシジャーを完成させたあと、 その下に、もう一つのプロシジャーを作り、連続してマクロを動かしたいと思ってます。 例に例えると、 Sub test() Dim MyRange As Range Set MyRange = Columns("c").Find(What:="﨑") If MyRange Is Nothing Then Debug.Print "環境依存文字ははみつかりません" Else MyRange.Font.ColorIndex = 3 End If Dim MyCells As Range Set MyCells = Columns("c").Find(What:="髙") If MyCells Is Nothing Then Debug.Print "環境依存文字ははみつかりません" Else MyCells.Font.ColorIndex = 3 End If End Sub Sub sample() Dim i As Long For i = 1 To Cells(Rows.Count, "I").End(xlUp).Row If InStr(1, Cells(i, "I"), "VBA", vbTextCompare) > 0 Then Cells(i, "M") = "YES" End If Next End Sub 上記のような２つのマクロをつなげて１つの実家行えるようにするにはどうしたらよろしいのでしょうか。 どうしても実行時に上のマクロと下のマクロが別々に表示されてしまします。 （ちなみに、上側のマクロは環境依存文字を探すマクロ、下側はVBAの文字を見つけ出すマクロです。） どなたかご存知の方いらっしゃいましたら、教えて頂けないでしょうか。 よろしくお願い致します。
- ベストアンサー
- その他（インターネット・Webサービス）
- Excel VBAのFindメソッドについて
Exceｌ VBAを勉強中の者です。 Findメソッドで、数字の入ったF5セルからF28セルの範囲から、 1という数字の入ったセルを検索したいと思い Sub test() Dim xRange As Range Set xRange = Range("F5:F20").Find(What:=1, LookIn:=xlValues) xRange.Select End sub としました。 しかし、このまま検索するとF6セルの12が検索されてしまいます。 他の数字では問題なく、対象の数字の先頭の数字が選択されます。 どうしてでしょうか？ よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルＶＢＡのＦＩＮＤの質問です。
エクセルＶＢＡのＦＩＮＤの質問です。 シート１ A B C D 1 コード１ コード２ コード３ 名 称 2 4 1 1 3 4 2 2 4 4 3 1 シート２ A B 1 コード１ 名 称 2 1 名称１ 3 2 名称２ やりたいことは、シート１のＤ列に、シート１のコード３をもとにシート２から名称を取得したいのです。 下記に記したプログラムだと最初のＦＩＮＤＮＥＸＴは動くのですが、 2回目でエラーになってしまい、次を読んでくれません。 どなたか、ご教授頂けますでしょうか。 シート１の検索条件はコード１の"4"です。 シート１のコード１は重複キーで、一レコードずつ読んで行き、各レコード毎にシート２を読みたい のです。 Dim シート1 As Worksheet Dim シート2 As Worksheet Dim obj As Object Dim Lin As Integer Dim mykey As Integer Dim obj1 As Object Dim Lin1 As Integer Dim mykey1 As Integer Dim st_Lin As Integer Set シート1 = ThisWorkbook.Worksheets("シート１") Lin = シート1.Cells(シート1.Rows.Count, 1).End(xlUp).Row mykey = "4" Set obj = シート1.Range("A1", "A" & Lin).Cells.Find(What:=mykey, _ LookIn:=xlValues, _ lookat:=xlWhole, _ SearchOrder:=xlByColumns) If obj Is Nothing Then MsgBox ("異常です") Exit Sub Else st_Lin = obj.Row Do Until obj.Row <> st_Lin Set obj = シート1.Range("A1", "A" & Lin).FindNext(obj) If obj Is Nothing Then Exit Do Else Set シート2 = ThisWorkbook.Worksheets("シート２") With シート2 Lin1 = .Cells(シート2.Rows.Count, 1).End(xlUp).Row mykey1 = シート1.Cells(obj.Row, 3).Value Set obj1 = .Range("A1", "A" & Lin1).Cells.Find (What:=mykey1,LookIn:=xlValues,lookat:=xlWhole,SearchOrder:=xlByColumns) If obj1 Is Nothing Then MsgBox ("名称取得できませんでした") Exit Sub Else シート1.Cells(obj.Row, 4).Value = .Cells(obj1.Row, 2).Value End If End With End If Loop End If
- ベストアンサー
- その他（プログラミング・開発）
- 1列目の何行目に検索文字があるかを取得したい
しかしエラーになってしまいます。 エラーの原因がわかりません。 シートの1列目のどこかに「test」と入っている行があるのですが Sub test1() Dim myRow As Long With Sheets("Sheet") myRow = .Column(1).Find(What:="test").Row MsgBox .Cells(myRow, 1) End With End Sub このvbaコードを実行するとエラーになります。 コードとしては「.Column(1)」で1列目と言う意味で、 .Find(What:="test")で、何行目に「test」があるかを取得するという意味だと思うのですが 実行時エラー438が発生します。 実際にtestと言う文字は2行目にあるのですが なぜmyRowに２が代入されないのでしょうか？
- ベストアンサー
- Excel（エクセル）
お礼
どうもありがとうございました。