![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
下記を実行すると「オブジェクトが見つかりません」と Buf = Sht1.Cells(5, 2).Value で止まります。変数Bufを使わず、
Set FC1 = Sh1.Columns("B").Find(what:="3")
Set FC2 = Sh2.Rows(9).Find(what:="3")
だとエラーは起きないのですが何がいけないのか教えてください。
Sub test1()
Dim Sh1 As Worksheet, Sh2 As Worksheet
Dim FC1 As Range, FC2 As Range
Dim Buf As String
Set Sh1 = Sheets(1)
Set Sh2 = Sheets(2)
Buf = Sht1.Cells(5, 2).Value
Set FC1 = Sh1.Columns("B").Find(what:=Buf, lookat:=xlWhole)
Set FC2 = Sh2.Rows(9).Find(what:=Buf, lookat:=xlWhole)
If FC1 Is Nothing Then
MsgBox "見つかりません"
Exit Sub
Else
If FC2 Is Nothing Then
MsgBox "見つかりません"
Exit Sub
Else
FC1.Offset(, 1).Resize(6, 25).Copy
FC2.Offset(2).PasteSpecial Transpose:=True '行列を入れ替えて貼り付ける
End If
End If
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) マクロで行を追加、削除すると行位置がずれますが、解決方法はありませんか?。 5 2022/05/28 16:03
- Visual Basic(VBA) findメソッドの変数について 6 2023/06/23 08:01
- Excel(エクセル) マクロで特定日より1日前の日を求めたい 6 2022/05/08 09:23
- Excel(エクセル) EXCEL マクロで行を挿入して貼り付けようとするとエラーになる。 2 2022/05/24 09:43
- Visual Basic(VBA) vbaを早くしたい 5 2022/09/09 10:58
- Excel(エクセル) マクロで列を加えたら上手くいかなくなりました。 2 2022/05/23 17:59
- Visual Basic(VBA) エクセルVBAのコードで質問です。 下のコードはJ16の文字列をB3を起点とする範囲から探して、見つ 5 2023/04/07 11:07
- Excel(エクセル) VBAについて 3 2022/06/19 18:19
- Visual Basic(VBA) Excel VBA カーソルを当てた際に表示される”4161”とは 1 2022/04/30 21:53
- Visual Basic(VBA) エクセルVBAで教えて頂きたいのですが? 2 2022/12/31 20:28
このQ&Aを見た人はこんなQ&Aも見ています
-
賃貸で可能な古民家風レトロな部屋作りのコツ!改めて知る畳の高い機能性と魅力も紹介
畳の部屋を雰囲気のよい部屋に仕上げたい!賃貸住宅でもできる古民家風のレトロな部屋作りのコツを伺った。
-
UserForm1.Showでエラーになります。
工学
-
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
Excel VBAからAccessマクロを実行したい
Visual Basic(VBA)
-
-
4
AccessのMDBファイルを開く際に、”オブジェクト”XXが見つかりません”と表示される。"
その他(データベース)
-
5
エクセルでエラーが出て困っています。
Excel(エクセル)
-
6
accessVBA 「フォームが見つかりません」
その他(データベース)
-
7
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
8
クエリで「データ型が一致しません」と表示される
その他(データベース)
-
9
ユーザーフォームで動的(Me.Controls.Add)に作成したコントロールの削除
Visual Basic(VBA)
-
10
エクセルvba (ByVal Target As Range)について
Excel(エクセル)
-
11
(実行時エラー5852)ExcelデータをWordに差し込んだ後、Wordファイルを分割するマクロ
Word(ワード)
-
12
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
13
日付型のフィールドに空白を入れる方法を教えてください
その他(データベース)
-
14
ExcelVBAのユーザーフォームの中に線を引きたい
Visual Basic(VBA)
-
15
Accessの桁区切りについて教えてください。
Access(アクセス)
-
16
VBAをつかってクエリの情報を抽出するには??
Visual Basic(VBA)
-
17
ユーザーフォームをホイールでスクロールする方法(Excel2000VBA)
Excel(エクセル)
-
18
VBAを使って検索したセルをコピーして別の場所に貼り付ける。
Visual Basic(VBA)
-
19
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
20
EXCEL VBA 指定したファイルが存在しない場合メッセージボックスを表示させる
Access(アクセス)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
worksheetFunctionクラスのVloo...
-
「Columns("A:C")」の列文字を...
-
実行時エラー 3265「要求された...
-
エクセルマクロエラー「'Cells'...
-
VBAで Set wb = Sheets(1).Cop...
-
Excelでフィルタをかけると警告...
-
エクセルVBAでcode128のバー...
-
エクセルのVBAの標準モジュール...
-
VBAで既に開いている別アプリケ...
-
[VBA]CDOメッセージ送信エラー
-
Shell.ApplicationのNameSpace...
-
PowerPointVBAでスライドマスタ...
-
ある文字列が全て数字であるか...
-
VBAで作成するメール(開封確認...
-
【VB】【エクセル操作】 SaveAs...
-
VBAについてです。 初心者です...
-
VBScriptでのExcelブックのプロ...
-
VBAからPDFファイルにパスワー...
-
VBで引数にDictionaryオブジェ...
-
パワーポイント filedialogでフ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
worksheetFunctionクラスのVloo...
-
「Columns("A:C")」の列文字を...
-
エクセルのVBAの標準モジュール...
-
実行時エラー 3265「要求された...
-
Excelでフィルタをかけると警告...
-
VBAで既に開いている別アプリケ...
-
エクセルマクロエラー「'Cells'...
-
テキストボックス中の文字列の...
-
VBAで Set wb = Sheets(1).Cop...
-
ある文字列が全て数字であるか...
-
VBAからPDFファイルにパスワー...
-
VBScriptでファイルの日時順(降...
-
EXCEL VBA オートシェイプナン...
-
[VBA]CDOメッセージ送信エラー
-
エクセルVBAで2つの画像を比較...
-
PowerPointVBAでスライドマスタ...
-
UserForm1.Showでエラーになり...
-
上下の位置揃えについて
-
VBAについてです。 初心者です...
-
VBAで作成するメール(開封確認...
おすすめ情報