Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

16872 / 76738

←次へ　｜　前へ→


	【65329】Re:テキストボックスが7つあり、それに入力して検索するとデータを抽出するには？

ろんろん - 10/5/12(水) 11:49 -


	引用なし

	パスワード

Jaka様、お答え頂きありがとうございました。
試してみたのですが、結果オブジェクト名の名前が間違っていました。
txtTnanaban.Text = Worksheets(SheetName).Cells(TourokuNo + 1, 7).Text
　　↑Tanaban

オブジェクト名のエラーは出なくなったのですが、
実行時エラー 1004　このコマンドには2行以上必要です。
選択したセルの範囲が1行だけの場合はこのコマンドを実行できません。
?フィルタオプションを使用している場合、2行以上のデータで構成されるセル範囲を選択し、「フィルタオプションの設定コマンドを再度クリックします。
?ピボットテーブルレポートまたはピボットグラフレポートを作成している場合は、セル参照を入力するか、または2行以上のデータで構成されるセル範囲を選択します。と出て、黄色くなったのが以下の部分です。

　　Range(Cells(1, 1), Cells(TourokuKensuu + 1, 7)).AdvancedFilter _
　　　　xlFilterCopy, _
　　　　Worksheets("抽出条件").Range("A1:G2"), _
　　　　Worksheets("抽出結果").Range("A1:G65536")

どうすれば動くようになるでしょうか？お手数ですが、よろしくお願いいたします。

0 hits

▼

【65319】テキストボックスが7つあり、それに入力して検索するとデータを抽出するに... ろんろん 10/5/11(火) 15:45