戻る  □一般操作のサロン  □ 使用方法  □ 新着記事  □ 新規に質問する!  □ トピック一覧  □ 検索  □ 過去ログ
[ 最新記事及び返信フォームをトピックトップへ ]
このトピック参照回数 :
フィルターかけたセルのコピー

    [196169] フィルターかけたセルのコピー-

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

    □投稿者/ Yoshi -(2024/04/25(00:27))
    □U R L/

      以下は、フィルターかけたコピー元のエクセルファイル(sheet1)です。フィルターの項目は、県、市、名前・・・食べ物です。フィルターの条件
      で、左の行番号が、その都度かわります。

      A   B    C   D E
      2 番号1 番号2  名前 会社 食べ物
      16 5  6   花子 あ リンゴ1バナナ1
      22  8 9 一郎 い メロン1
      34 19 11   拓哉 う バナナ2

      上記のエクセルファイルから、マクロファイルをテンプレートして、別のエクセルファイルに下記のようにコピーする。

      C D E   F G
      5 5 6 花子 1リンゴ  マクロファイルのsheet1のA1セル
      6 5 6 花子 2バナナ  マクロファイルのsheet1のA2セル
      7 8 9 一郎 1メロン マクロファイルのsheet2のA3セル
      8 19 11 拓哉 1バナナ  マクロファイルのsheet2のA2セル
      9 19 11 拓哉  2バナナ  マクロファイルのsheet2のA2セル


      コピーの条件
      1 コピー元のデータの食べ物の点数で、コピー条件が変わる
        
        例 リンゴ1バナナ1ならば

           1リンゴ
           2バナナ
        例 バナナ2ならば、
           1バナナ
           2バナナ

        例 リンゴ1バナナ2ならば
           1リンゴ
           2バナナ
           3バナナ
       となり、頭に順番に数字をつける


      上記のVBAを教えてください。よろしくお願いします。


       













    [196170] Re[1]: フィルターかけたセルのコピー-

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

    □投稿者/ マルチポスト -(2024/04/25(09:07))
    □U R L/

      この掲示板の注意書きより。

      >マルチポストはご遠慮ください。
      >同じ内容の質問を、同時に複数の掲示板に投稿 する行為をマルチポストと言います。
      >善意で回答してくれる方々や、ほかで質問した掲示板に迷惑がかかる恐れがあります。
      >(先に質問した掲示板でどうしてもレスがつかなくて、ほかで質問したい場合は、その掲示板に解決マークをつけるか、削除するなどして、次の掲示板で質問すればこれに該当しません)



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

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

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


- Child Forum -
Edit:ゆう-G