戻る  □一般操作のサロン  □ 使用方法  □ 新着記事  □ 新規に質問する!  □ トピック一覧  □ 検索  □ 過去ログ
[ 親トピックをトピックトップへ ]
このトピックに書きこむ
Name/
E-Mail/

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

このトピック参照回数 :
Re[3]: 条件一致の転記について

    [195434] Re[3]: 条件一致の転記について-

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

    □投稿者/ 超初心者 -(2022/12/06(11:58))
    □U R L/

      解決チェック忘れておりました。
      ありがとうございます。




    [195433] Re[2]: 条件一致の転記について-

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

    □投稿者/ 超初心者 -(2022/12/06(11:56))
    □U R L/

      ご指摘の通りでした。
      正常に動きました。
      ありがとうございます!




    [195432] Re[1]: 条件一致の転記について-

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

    □投稿者/ 半平太 -(2022/12/05(20:02))
    □U R L/
       配列の要素が、どこに何個格納されているか見極めてないのと違いますか?
       
       >' MyList = Tanka_Sht.Range("B9", Range("B" & Rows.Count). _'                  End(xlUp)).Resize(, 11).Value
       
           MyList = Tanka_Sht.Range("B9", Range("B" & Rows.Count). _
                      End(xlUp)).Resize(, 10).Value
       
       >'     For j = 9 To UBound(MyList)
             For j = 1 To UBound(MyList)
               
       
       >'     If Chusyutu_Sht.Cells(i, 2) = MyList(j, 2) Then
             If Chusyutu_Sht.Cells(i, 2) = MyList(j, 1) Then'            Chusyutu_Sht.Cells(i, 20) = MyList(j, 11)
                  Chusyutu_Sht.Cells(i, 20) = MyList(j, 10)
       
       


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

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




    [195431] 条件一致の転記について-

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

    □投稿者/ 超初心者 -(2022/12/05(12:19))
    □U R L/
      VBA初心者です。
      
      条件一致の転記コードをコピーして修正しましたが正常に動きません。
      
      やりたいことは
      入金確認表・クレジット 両シートも一覧になっており
      入金確認表はA10〜データが入力されており
      クレシットはA9〜データが入力されています。
      
      両シートのB行の値が一致で
      入金確認表の20列目(T)にクレジットの11列目(K)へ値の転記がしたいです。
      (一致しない場合は何もしない)
      
      
      Sub 条件に合うデータを別シート抽出()
      
      
      
      Dim Chusyutu_Sht As Worksheet
      Dim Tanka_Sht As Worksheet
      Dim MyList() As Variant
      Dim LastRow As Long
      Dim i As Long
      Dim j As Long
      
          Set Chusyutu_Sht = Sheets("入金確認表")
          Set Tanka_Sht = Sheets("クレジット")
      
          
          Tanka_Sht.Select
          MyList = Tanka_Sht.Range("B9", Range("B" & Rows.Count). _
                           End(xlUp)).Resize(, 11).Value
      
          '最終行
          LastRow = Chusyutu_Sht.Cells(Rows.Count, 1).End(xlUp).Row
      
          '「抽出」シート ループ
          For i = 10 To LastRow
      
              For j = 9 To UBound(MyList)
      
                  '条件一致で別シート転記
                  If Chusyutu_Sht.Cells(i, 2) = MyList(j, 2) Then
                  
                      Chusyutu_Sht.Cells(i, 20) = MyList(j, 11)
      
                  End If
              Next j
          Next
      
      
      
      
      End Sub
      
      
      どう編集したらいいでしょうか?
      宜しくお願い致します。
      


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

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



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

- Child Forum -
Edit:ゆう-G