戻る  □一般操作のサロン  □ 使用方法  □ 新着記事  □ 新規に質問する!  □ トピック一覧  □ 検索  □ 過去ログ
[ 最新記事及び返信フォームをトピックトップへ ]
このトピック参照回数 :
ログ抽出 条件について

    [191257] ログ抽出 条件について-

    ■親トピック/記事引用/メール受信=OFF■

    □投稿者/ hiroki -(2020/01/30(20:44))
    □U R L/
      ActiveSheet. Range("$A$1:$AP$157932").AutoFilter Field:=1, Operator:= _
          XIFilterValues, Criteria2:=Array(2, "1/21/2020")
      
      というマクロなのですが、15万行の中から該当の日付を時下指定し別シートに
      書き出すことは出来ますが、
      
      Sheet1 15万行のデータ
      Sheet2 抽出データ書き出し(成功) ←現状ここ
      
      現状だとマクロの日付けを、直接書き替える方法ではなく
      Sheet3を作り、例えばB行2セルに日付を入力しマクロを実行し
      抽出させたいのですが方法を教えていただけませんでしょうか
      
      マクロの"1/21/2020"の部分を Worksheets("Sheet3").Range("B2").Value
      とかに変えましたがうまくいきません
      
      何卒よろしくお願いします
      
      OS:Windows10
      excel2016
      


      この記事にはVBAのコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他



      ++++++++++++++++++++
      OS      ⇒OTHER
      Version⇒OTHER
      ++++++++++++++++++++




    [191258] Re[1]: ログ抽出 条件について-

    記事引用/メール受信=OFF■

    □投稿者/ リスキーダック -(2020/01/30(22:23))
    □U R L/

      st = format(セル.value,"mm/dd/yyyy")

      Array(2, st)




    [191259] Re[2]: ログ抽出 条件について-

    記事引用/メール受信=OFF■

    □投稿者/ γ -(2020/01/30(22:39))
    □U R L/
      フィルタオプションを使ったマクロにすると良いのでは?
      条件をワークシートに書いて、いくらでも変更できますし、
      大量データでも比較的安定して動作するとおもいます。
      他のシートへのコピーも合わせて、数行のコードで可能です。
      




    [191262] Re[3]: ログ抽出 条件について-

    記事引用/メール受信=OFF■

    □投稿者/ hiroki -(2020/01/31(14:39))
    □U R L/

      リスキーダックさま

      返答ありがとうございます
      1/28/2020を教えて頂いた式に変えて見ましたが
      424 オブジェクト エラーとなりいろいろ変えて
      みましたが、どこに問題があるか把握できずに
      います。

      どのように前の式に書けばよいかわからず
      申し訳ありませんが、記入を教えて頂けま
      せんでしょうか
      よろしくお願いいたします




    [191270] Re[4]: ログ抽出 条件について-

    記事引用/メール受信=OFF■

    □投稿者/ ぴんく -(2020/02/01(14:34))
    □U R L/
      >424 オブジェクト エラーとなりいろいろ変えて
      Dim str As String
      str = Format(Worksheets("Sheet3").Range("B2").Value, "yyyy/m/d")
      Range("$A$1:$AP$157932").AutoFilter Field:=1, Operator:=xlFilterValues, Criteria2:=Array(2, str)
      
      Win10 Excel2019ではエラーは出ないですよ
      Worksheets("Sheet3").Range("B2") に書かれている表示形式は?
      
      >XIFilterValues, Criteria2
       xlFilterValues ですよ
      
      
      


      この記事にはVBAのコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他




    [191272] Re[5]: ログ抽出 条件について-

    記事引用/メール受信=OFF■

    □投稿者/ hiroki -(2020/02/01(15:31))
    □U R L/
      ぴんくさん
      
      返信ありがとうございます
      
      エラーもなく処理は完了しました
      
      ただ抽出後データシートに結果が表示されず、白紙のSheetができます
      B2の日付は「2020/1/28」と入力し分類は日付で入力しています
      
      抽出の流れはこのように作っていますが、問題点がわかりません
      流れは、このようにしています
      
       Rows("1:1").Select
          Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
          Selection.AutoFilter
          Dim str As String
          str = Format(Worksheets("Sheet1").Range("B3").Value, "yyyy/m/d")
          Range("$A$1:$AP$157932").AutoFilter Field:=1, Operator:=xlFilterValues, Criteria2:=Array(2, str)
          ActiveSheet.Range("$A$1:$AP$157932").AutoFilter Field:=3, Criteria1:="あ"
          ActiveSheet.Range("$A$1:$AP$157932").AutoFilter Field:=2, Criteria1:= _
              ">=10:00", Operator:=xlAnd, Criteria2:="<=12:00"
          Cells.Select
          Selection.Copy
          Sheets("抽出後データ").Select
          Cells.Select
          ActiveSheet.Paste
          Columns("A:C").Select
          Application.CutCopyMode = False
          Selection.Delete Shift:=xlToLeft
          Rows("1:1").Select
          Selection.Delete Shift:=xlUp
      
      重ね重ね申し訳ございません
      教えていただけませんでしょうか
      


      この記事にはVBAのコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他



      ++++++++++++++++++++
      OS      ⇒OTHER
      Version⇒OTHER
      ++++++++++++++++++++




    [191273] Re[6]: ログ抽出 条件について-

    記事引用/メール受信=OFF■

    □投稿者/ チオチモリン -(2020/02/01(16:50))
    □U R L/
      >Criteria2:=Array(2, "1/21/2020")
      でうまくいくのであれば
      str = Format(Worksheets("Sheet1").Range("B3").Value, "m/d/yyyy") では?
      




    [191274] Re[7]: ログ抽出 条件について-

    記事引用/メール受信=OFF■

    □投稿者/ ぴんく -(2020/02/01(17:07))
    □U R L/
      取敢えず目的のデーターは抽出されますか?
      Sub Test2()
          Dim str As String
          Rows("1:1").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
          str = Format(Worksheets("Sheet3").Range("B2").Value, "yyyy/m/d")
          With Range("$A$1:$AP$157932")
              .AutoFilter
              .AutoFilter Field:=1, Operator:=xlFilterValues, Criteria2:=Array(2, str)
              .AutoFilter Field:=3, Criteria1:="あ"
              .AutoFilter Field:=2, Criteria1:=">=10:00", Operator:=xlAnd, Criteria2:="<=12:00"
          End With
      End Sub
      
      >str = Format(Worksheets("Sheet1").Range("B3").Value, "yyyy/m/d")
      マクロの"1/21/2020"の部分を Worksheets("Sheet3").Range("B2").Value
      だったのでは?
      
      
      
      
      


      この記事にはVBAのコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他




    [191276] Re[8]: ログ抽出 条件について-

    記事引用/メール受信=OFF■

    □投稿者/ チオチモリン -(2020/02/01(19:13))
    □U R L/
      ぴんくさんの
      >str = Format(Worksheets("Sheet3").Range("B2").Value, "yyyy/m/d")
      でだめなら
       str = Format(Worksheets("Sheet3").Range("B2").Value, "m/d/yyyy") も試してみてください。
      
      
      
      




    [191278] Re[9]: ログ抽出 条件について-

    記事引用/メール受信=OFF■

    □投稿者/ まっつわん -(2020/02/01(21:06))
    □U R L/
      > Rows("1:1").Select
      >    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
      >    Selection.AutoFilter
      
      おおおお!
      すごい技ですね。初めてみました。
      
      Sub test()
          Worksheets("Sheet1").Rows(1).Insert
          Worksheets("Sheet1").Rows(1).AutoFilter
          Worksheets("Sheet1").AutoFilter.Range.AutoFilter _
                  Field:=1, Criteria1:=Worksheets("Sheet3").Range("B2").Text
          Worksheets("Sheet1").AutoFilter.Range.AutoFilter _
                  Field:=2, Criteria1:=">=10:00", Operator:=xlAnd, Criteria2:="<=12:00"
          Worksheets("Sheet1").AutoFilter.Range.Copy Worksheets("抽出後データ").Range("A1")
          Worksheets("抽出後データ").Range("A:C").Delete
          Worksheets("抽出後データ").Range("1:1").Delete
      End Sub
      
      よくわからんけど、コード読んでどのシートの
      Row(1:1)か解らん。
      シート名もちゃんと指定しましょう。
      指定してないなら命令を実行する側が勝手に判断してしまっても、
      文句言えん。
      あと、命令を書く側も意図して書いてないから、
      間違って指定してても気づき難いのでは?
      
      マクロの記録も完璧ではないから、
      全部を信用してもコードは書けません。
      いろいろなコードを見たり、
      基礎もある程度は勉強しましょう。
      
      参考URL>>
      officetanaka.net/excel/vba/tips/tips151.htm


      この記事にはVBAのコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他




    [191282] Re[10]: ログ抽出 条件について-

    記事引用/メール受信=OFF■

    □投稿者/ hiroki -(2020/02/02(15:06))
    □U R L/

      抽出の際、元データの形式がおかしいのではと教わったので
      それを踏まえて教えていただけませんでしょうか

      Sheet1(元データ)の日付ですが、「date=2020-01-28」となっており
      置換機能で「date=」を削除して「2020/1/28」と表示させています
      ここで「2020/1/28」は日付ではなく分類として文字列とEXCELでは認識して
      Sheet3の検索条件の分類は「日付」なっているので、認識しないの
      ではないかとの指摘がありました

      だとすれば、時間についてもSheet1(元データ)の時間は「time=09:12:35」
      となっており置換機能で「time=」を削除して「09:12:35」と表示させており
      Sheet3の検索条件に時間を入力しても、同様に抽出後データシートに結果
      が表示されないのではないでしょうか

      もし推測が正しければ、文字列→日付及び文字列→時間の変換を含めて
      教えていただけませんでしょうか

      よろしくお願いいたします



      ++++++++++++++++++++
      OS      ⇒OTHER
      Version⇒OTHER
      ++++++++++++++++++++




    [191283] Re[11]: ログ抽出 条件について-

    記事引用/メール受信=OFF■

    □投稿者/ 半平太 -(2020/02/02(15:24))
    □U R L/
      チオチモリン さんのアドバイスを実行しましたか?
      
      エクセルは米国産であり、極力日本人用にアジャストはされていますが、
      時により、素が出てきて、日本人が思ったように動かない部分もありますよ。
      
      日付データなんかその最たるものです。




    [191284] Re[11]: ログ抽出 条件について-

    記事引用/メール受信=OFF■

    □投稿者/ リスキーダック -(2020/02/02(15:36))
    □U R L/

      >「date=2020-01-28」となっており
      >置換機能で「date=」を削除して「2020/1/28」と表示させています

      >時間についてもSheet1(元データ)の時間は「time=09:12:35」
      >となっており置換機能で「time=」を削除して「09:12:35」と表示させており

      なんか腑に落ちない点があるけど、通常置き換えたら、時間や日付に自動で変換されるけどね。

      単純に文字列なんじゃないですかね。
      書式を標準に戻して、1列づつ データ→区切り位置 そのまま完了で時間や日付に変換されます。
      秘密にしている部分が多すぎます。
      数値(日付、時間を含む)、文字の違いを知らない方が多いのだろうと思うけど。





    [191285] Re[12]: ログ抽出 条件について-

    記事引用/メール受信=OFF■

    □投稿者/ hiroki -(2020/02/02(15:38))
    □U R L/

      半平太さま

      ご意見ありがとうございます。

      試しましたが、エラーなく完了しますがデータ抽出シートには
      出力されていなかったので、原因を考えていくとこのようなことも
      考えれれるのかなと思いがあったので質問してみました。

      いろんな方面に迷惑をかけているようで、申し訳ありません




    [191286] Re[13]: ログ抽出 条件について-

    記事引用/メール受信=OFF■

    □投稿者/ ぴんく -(2020/02/02(18:12))
    □U R L/
      >Sheet1(元データ)の日付ですが、「date=2020-01-28」となっており
      >置換機能で「date=」を削除して「2020/1/28」と表示させています
      >ここで「2020/1/28」は日付ではなく分類として文字列とEXCELでは認識して
      
      これで 2020/1/28 は抽出できますか?
      
          Dim ws As Worksheet, str As String
          Set ws = Worksheets("Sheet1")
          ws.Activate
          Rows("1").Insert Shift:=xlDown
          str = Format(Worksheets("Sheet3").Range("B2").Value, "yyyy/m/d")
          With Range("$A$1:$AP$157932")
              .AutoFilter Field:=1, Operator:=xlFilterValues, Criteria1:=str
          End With
      


      この記事にはVBAのコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他




    [191288] Re[14]: ログ抽出 条件について-

    記事引用/メール受信=OFF■

    □投稿者/ リスキーダック -(2020/02/02(20:22))
    □U R L/

      >試しましたが、エラーなく完了しますがデータ抽出シートには
      >出力されていなかったので

      それはただ何も抽出されないで終わっただけ。
      日付なのか文字なのかはっきりさせましょうね!
      エクセルで言う日付と、単に文字の日付(人間には日付と認識)の見分けがつかないのでは。




    [191289] Re[14]: ログ抽出 条件について-

    記事引用/メール受信=OFF■

    □投稿者/ hiroki -(2020/02/02(20:34))
    □U R L/

      ぴんくさん

      実行後

      実行エラー'9':
      インデックスが有効範囲にありません。

      デバック確認すると
      実行エラー'9':

      str = Format(Worksheets("Sheet3").Range("B2").Value, "yyyy/m/d")この行が
      黄色でラインされています

      実行後検索条件シートに空の一行が挿入されており、日付の入力セルの位置が
      B3の位置に来ております




    [191290] Re[15]: ログ抽出 条件について-

    記事引用/メール受信=OFF■

    □投稿者/ ぴんく -(2020/02/02(20:39))
    □U R L/

      >str = Format(Worksheets("Sheet3").Range("B2").Value, "yyyy/m/d")この行が
      >黄色でラインされています

      Sheet3は有るのですか?





    [191291] Re[16]: ログ抽出 条件について-

    記事引用/メール受信=OFF■

    □投稿者/ hiroki -(2020/02/02(20:58))
    □U R L/

      ぴんくさん

      申し訳ありません
      シート名間違えてましたSheet3ではなくSheet1でした
      修正して実行したところ、処理は正常に完了しましたが
      「抽出後データ」シートには、結果はコピーされていませんでした

      また何故か、検索条件を入力するSheet1には一行挿入されて
      BとCとD列の先頭にオートフィルターのアイコンが表示されています




    [191293] Re[17]: ログ抽出 条件について-

    記事引用/メール受信=OFF■

    □投稿者/ ぴんく -(2020/02/02(21:33))
    □U R L/
      >「抽出後データ」シートには、結果はコピーされていませんでした
      2020/1/28 が正しく抽出されるのを確認したかっただけで、その後のコピー処理はしていません
      >また何故か、検索条件を入力するSheet1には一行挿入されて
      本来データーシートの1行目は項目行になっているのですが
      あなたの表は1行目からデータになっている思われ項目行を作るのに1行
      挿入しています。
      あなたが提示した □投稿者/ hiroki -(2020/02/01(15:31) コードがそのようになっている。
      最終的にすべての処理が正しく行えたら1行目は削除します。
      >BとCとD列の先頭にオートフィルターのアイコンが表示されています
      今回の処理は途中経過を見るためでオートフィルターを解除していませんので。
      
      >シート名間違えてましたSheet3ではなくSheet1でした
      なら □投稿者/ hiroki -(2020/01/30(20:44))
        ActiveSheet. Range("$A$1:$AP$157932").AutoFilter 
      
      この ActiveSheet名は?
      
      


      この記事にはVBAのコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他




    [191294] Re[17]: ログ抽出 条件について-

    記事引用/メール受信=OFF■

    □投稿者/ 私も初心者 -(2020/02/02(22:10))
    □U R L/

      sheet1?   条件入力シート B2セルに条件の日付
      sheet2    データーシート
      抽出後データ 結果を貼り付けるシート ですか?

      結果がコピーされないのではなく
      ぴんくさんのしめされたのは
      sheet1  のデーターに Sheet3のB2セルの値でフィルターかけている
      と思うのですが。









    [191295] Re[18]: ログ抽出 条件について-

    記事引用/メール受信=OFF■

    □投稿者/ hiroki -(2020/02/02(22:11))
    □U R L/

      ぴんくさん

      いろいろ申し訳ございません

      マクロを編集する画面の各シート名は下記のようにして
      作成しています
      Sheet1(123)←15万行のデータ
      Sheet2(Sheet1)←検索条件入力シート
      sheet3(抽出後データ)←123シートでマクロを実行し、抽出結果をこのシートに
                  書き出すようにしています

      ご質問のある
      この ActiveSheet名は?
      Sheet1(123)←15万行のデータシートのつもりです




    [191296] Re[19]: ログ抽出 条件について-

    記事引用/メール受信=OFF■

    □投稿者/ ぴんく -(2020/02/02(22:46))
    □U R L/
      15万行のデータのデータが有るシート ⇒ Worksheets("123")
      検索検索条件入力シート、セル    ⇒ Worksheets("Sheet1").Range("B2")
      抽出データを転記するシート     ⇒ Worksheets("抽出後データ")
      で実行します。
      
      毎回、15万行のデータシートの1行目を挿入するのは面倒なので
      最初から1行挿入した状態で下記のコードを実行してください。
      2020/1/28 が抽出できたかを回答ください。
      Sub Test()
          Dim ws As Worksheet, str As String
          Set ws = Worksheets("123")
          ws.Activate
          str = Format(Worksheets("Sheet1").Range("B2").Value, "yyyy/m/d")
          With Range("$A$1:$AP$157932")
              .AutoFilter Field:=1, Operator:=xlFilterValues, Criteria1:=str
          End With
      End Sub
      上記コードでは抽出後データに転機は行っていません。
      


      この記事にはVBAのコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他




    [191297] Re[20]: ログ抽出 条件について-

    記事引用/メール受信=OFF■

    □投稿者/ ぴんく -(2020/02/02(23:23))
    □U R L/

      > .AutoFilter Field:=1, Operator:=xlFilterValues, Criteria1:=str
        ↑の代りに↓このコードも試してください。これはC列が「あ」のデーターを抽出します。
      .AutoFilter Field:=3, Criteria1:="あ"
         このコードも試してください。これはC列が「あ」のデーターを抽出します。

         そして↓このコードも差替えて試してください
         このコードはB列が10:00 〜 12:00 のデーターを抽出します。
      .AutoFilter Field:=2, Criteria1:=">=10:00", Operator:=xlAnd, Criteria2:="<=12:00"

      以上、それぞれの結果を回答ください。




    [191417] Re[21]: ログ抽出 条件について-

    記事引用/メール受信=OFF■

    □投稿者/ hiroki -(2020/02/19(20:13))
    □U R L/
      ぴんくさん
      
      遅くなり申し訳ございません。
      それぞれ実行してみましたので、結果をお知らせいたします
      
      @Sub Test()
          Dim ws As Worksheet, str As String
          Set ws = Worksheets("123")
          ws.Activate
          str = Format(Worksheets("Sheet1").Range("B2").Value, "yyyy/m/d")
          With Range("$A$1:$AP$157932")
              .AutoFilter Field:=1, Operator:=xlFilterValues, Criteria1:=str
          End With
      End Sub
      この件ですが、1/28分のみ抽出できました
      
      
      A.AutoFilter Field:=3, Criteria1:="あ"
      「あ」のデータが抽出できました
      
      BAutoFilter Field:=2, Criteria1:=">=10:00", Operator:=xlAnd, Criteria2:="<=12:00"
      B列が10:00 〜 12:00 のデーターを抽出できました


      この記事にはVBAのコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他




    [191516] Re[22]: ログ抽出 条件について-

    解決!!ありがとうございました! / 記事引用/メール受信=OFF■

    □投稿者/ hiroki -(2020/02/25(20:25))
    □U R L/

      たくさんのアドバイスありがとうございます

      先輩にアドバイスいただき、解決いたしました



このトピック内容の全ページ数 / [0]

このトピックに書きこむ
Name/
E-Mail/

└>このツリーのレス記事をメールで受信しますか? YES/ NO/
Title/
URL/
Comment/ 通常モード->  図表モード-> (←の場合適当に改行を入れて下さい)
タグが使用できます。例 ⇒ <font color="blue">文字</font>
解決!!ありがとうございました! 解決       保留中です・・・ 保留        迷宮入りorほかあたって見ます・・ 迷宮入       すいませ〜ん。誰か〜! Help! ←※回答者専用
解決したらチェック       保留(コードテスト中など・・)         解決不可orレスが全く付かなくてほかのサイトに行くときなど・・
削除キー/
(半角8文字以内) 


- Child Forum -
Edit:ゆう-G