戻る  □一般操作のサロン  □ 使用方法  □ 新着記事  □ 新規に質問する!  □ トピック一覧  □ 検索  □ 過去ログ
[ 最新記事及び返信フォームをトピックトップへ ]
このトピック参照回数 :
フィルター機能を使い抽出し、コピーして印刷まで行いたい

    [195667] フィルター機能を使い抽出し、コピーして印刷まで行いたい-

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

    □投稿者/ ゆきな -(2023/03/29(11:38))
    □U R L/

      説明が下手で以前ご迷惑をおかけしたので、下記HPに行いたい内容をまとめてみました。↓*→t
      h**s://excelinquiry.web.fc2.com/excel.html

      太枠罫線を使用しているセルがある為、フィルター機能を使用しないとうまくいかなかったです。
      dataシートのA列には「〇、△、、□、☆、♢」の4種類のみを使用しています。
      〇のみ場合は〇のみ印刷をする。5種類ある場合は全てを抽出・印刷を行いたいです。
      〇、△のみとか〇、□とかあります。


      以前に別の方法でお問い合わせした内容ですが、未だにうまくいかないので、
      内容を変更して今回投稿させて頂きます。

      〇のある列以外を削除して印刷シート part3
      excelfactory.net/excelboard/excelvba/excel.cgi?mode=all&namber=195541&rev=0

      〇のある列以外を削除して印刷シート part2
      excelfactory.net/excelboard/excelvba/excel.cgi?mode=all&namber=195517&rev=0

      〇のある列以外を削除して印刷シートに貼り付けて印刷を行いたいです。
      excelfactory.net/excelboard/excelvba/excel.cgi?mode=all&namber=195502&rev=0

      宜しくお願い致します。

      win10 office2016




    [195668] Re[1]: フィルター機能を使い抽出し、コピーして印刷まで行いたい-

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

    □投稿者/ 半平太 -(2023/03/29(13:55))
    □U R L/
      >3.B1:B12を印刷範囲指定して印刷する
       
      となっていますが、12行目までの決め打ちなんですか?(しかもB列のみ印刷?)
      
      それとも、B1:Q列の最下行 なのですか?
      
      
       
       
       




    [195669] Re[2]: フィルター機能を使い抽出し、コピーして印刷まで行いたい-

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

    □投稿者/ ゆきな -(2023/03/29(15:49))
    □U R L/

      半太郎様

      B1からL12までです。
      すみません記載ミスです。

      宜しくお願い致します。




    [195670] Re[3]: フィルター機能を使い抽出し、コピーして印刷まで行いたい-

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

    □投稿者/ 半平太 -(2023/03/29(16:19))
    □U R L/
      すると、こんなことかな?
      
      Sub main()   '差し替え後
          Dim cSt As String
          Dim i As Long
          Dim dSh As Worksheet
          Dim pSh As Worksheet
          Dim dRng As Range
          
          cSt = "○△□☆◇"
          
          Set dSh = Worksheets("data")
          Set pSh = Worksheets("印刷")
          
          pSetUp pSh
          
          For i = 1 To Len(cSt)
              
              With dSh
                  .AutoFilterMode = False
                  .Range("A3:L4").CurrentRegion.AutoFilter 1, Mid$(cSt, i, 1)
                  
                  Set dRng = Nothing
                  On Error Resume Next
                      Set dRng = .AutoFilter.Range
                  On Error GoTo 0
              End With
              
              '印刷
              If Not dRng Is Nothing Then
                  If Application.CountIf(dRng.Columns("A"), Mid$(cSt, i, 1)) Then
                      
                      With pSh
                          .Range("A4", .Cells(.UsedRange.Rows.Count, "L")).Clear
                          dRng.Offset(1).Resize(, 12).Copy .Range("A4")
                          .Range("Z1:Z4").Copy .Cells(.Rows.Count, "B").End(xlUp).Offset(2)
                          .PageSetup.PrintArea = .Range("B1:L12").Address
                          '.PrintOut Preview:=True
                          .PrintOut ActivePrinter:="AAA"
                      End With
                  End If
              End If
          Next
          
          dSh.AutoFilterMode = False
      End Sub
      
      Private Sub pSetUp(sh As Worksheet)
          '省略
      End Sub


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

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




    [195671] Re[4]: フィルター機能を使い抽出し、コピーして印刷まで行いたい-

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

    □投稿者/ 半平太 -(2023/03/29(19:38))
    □U R L/

      済みません。

      前レスのコードにはバグがありましたので、差し替えました。(書換え済です)。 m(__)m





    [195672] Re[5]: フィルター機能を使い抽出し、コピーして印刷まで行いたい-

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

    □投稿者/ ゆきな -(2023/03/30(11:13))
    □U R L/

      半平太様

      ありがとうございます。

      すみません、一点修正してもらい所があります。

      抽出データーの下の行(一行空ける)ですが、空白罫線付き行となってしまいます。
      罫線はいらないので、消したいです。

      ちょっと弄ってみたのですが、改善できないので、教えて頂きたいです。

      宜しくお願い致します。




    [195673] Re[6]: フィルター機能を使い抽出し、コピーして印刷まで行いたい-

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

    □投稿者/ 半平太 -(2023/03/30(16:09))
    □U R L/
      > dRng.Offset(1).Resize(, 12).Copy .Range("A4")
                   ↓
        dRng.Offset(1).Resize(dRng.Rows.Count - 1, 12).Copy .Range("A4")
      
      としてみてください。




    [195674] Re[7]: フィルター機能を使い抽出し、コピーして印刷まで行いたい-

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

    □投稿者/ ゆきな -(2023/03/31(09:20))
    □U R L/

      半平太様

      ありがとうございます。

      うまくできました。

      感謝します。



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

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

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


- Child Forum -
Edit:ゆう-G