|
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")
どうすれば動くようになるでしょうか?お手数ですが、よろしくお願いいたします。
|
|