戻る  □一般操作のサロン  □ 使用方法  □ 新着記事  □ 新規に質問する!  □ トピック一覧  □ 検索  □ 過去ログ

■ 24時間以内に投稿された新着記事 10件です。



    [189861] Re[5]: Excel2016 セルの背景色の有無によって 数式を入れて計算したい
    ■1■
    □投稿者/ りえ -(2019/07/16(22:06))
    □U R L/


      何とかできました。
      ありがとうございました。



    [189862] 文字列の検索と繰り返し
    ■■
    □投稿者/ おむらいす -(2019/07/17(11:01))
    □U R L/

      初めましてよろしくお願いします。
      データ入力シートにある表のC列(C2からC21)に会社名とその隣のB列にその購入番号があり、
      別シートの購入依頼書シートのA列(A11開始)に1行おきに購入番号を転記して印刷というマクロを組み立てたいです。
      購入依頼書のシートには同じ会社名が複数あるものもあり、同じ会社名の購入番号だけを転記して印刷し、
      印刷が終わったら次の会社名の購入番号を転記して印刷・・・という繰り返しを
      させたいのですがマクロ初心者のためうまく組み立てられません。
      いろんなサイトの使えそうなところをコピペで切り貼りしたのですがやはりうまくできませんでした。
      組み立てとも言えないコードですがご協力よろしくお願いします。
      
      
      Sub 購入番号の転記()
          
          Dim myRange As Range
          Dim myObj As Range
          Dim keyWord As String
          
          Set myRange = Worksheet("入力シート").Range("C2:C21")
          keyWord =
          'ここに入れるものがわかりません。
          Set myObj = myRange.Find(keyWord, LookAt:=xlPart)
          
          If myObj Is Nothing Then
              MsgBox "'" & keyWord & "'はありませんでした"
              Exit Sub
          End If
          
          Dim myCell As Range
          Set myCell = myObj
          
          Do
              Worksheet("物品購入依頼書").Range("A11").Value = myCell
              
              Set myCell = myRange.FindNext(myCell)
          Loop While myCell.Row <> myObj.Row
      
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
      
          
      End Sub
      
      


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

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




    [189863] Re[1]: 文字列の検索と繰り返し
    ■■
    □投稿者/ おむらいす -(2019/07/17(11:53))
    □U R L/

      FindNextにこだわているわけではないのですが、オートフィルタを使った
      ものも考えてみたのですがうまく組み立てられません。。。
      
      
      Sub 購入番号の転記()
      
          Dim shF As Worksheet
          Dim shT As Worksheet
          Set shF = Sheets("入力シート")
          Set shT = Sheets("物品購入依頼書")
          
          Application.ScreenUpdating = False
          shT.Columns("A").ClearContents
          shT.Range("A10").Value = "番号"
          
          shF.Range("A1:C1").Value = shF.Range("A1:C1").Value 'タイトル行
          shF.Columns("B:C").Copy shF.Range("AA1")                       '抽出タイトル作業列
          
          '抽出ループ処理
          Do While Not IsEmpty(shF.Range("AB2"))   '抽出タイトル
              shF.Range("AB2").Value = "'=" & shF.Range("AB2").Value    '念のため完全一致対応
              'フィルターオプションによる抽出
              shF.Range("A1").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, _
                  CriteriaRange:=shF.Range("AB1:AB2"), CopyToRange:=shT.Range("A11"), Unique:=False
              'テスト確認コード(実際には、抽出されたものに対して何か行うコードをがこの部位に)
              shT.Activate
                  'フィルター結果の購入番号をを依頼書A11から1行おきにコピペするコード
                  
              MsgBox "抽出結果を確認してください"
              'テスト確認コード終わり
              shF.Range("AA2").Delete xlUp
         
          Loop
          shF.Range("AA1").Clear
          
          Application.ScreenUpdating = True
      
      End Sub
      


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

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




    [189864] Re[2]: 文字列の検索と繰り返し
    ■■
    □投稿者/ 半平太 -(2019/07/17(15:53))
    □U R L/

      いまひとつ、仕様が分からないですねぇ。
      
      <入力シート サンプル>
       行  ____B____  ___C___
        1  購入番号   社名   
        2         1   Comp01 
        3         2   Comp01 
        4         3   Comp03 
        5         4   Comp01 
        6         5   Comp03 
      
      どうなればいいんですか?
        ↓
      <物品購入依頼書> 
      
       行  _A_  ____B____  __C__
       11       購入番号   社名 
       12                       
       13                       
       14                       
      




    [189865] Re[3]: 文字列の検索と繰り返し
    ■■
    □投稿者/ おむらいす -(2019/07/17(16:21))
    □U R L/


      >半平太様

      回答ありがとうございます。

      >どうなればいいんですか?


      入力シート

      A B C D
      1 購入番号 購入先
      2 1 A社
      3 2 A社
      4 4 B社
      5 5 B社
      6 7 C社
      7 9 C社
      8 8 A社
      9 5 B社
      10 12 D社



      物品購入依頼書

      入力シート
      A B C D
      10 番号
      11 1 ←A列に購入番号が転記したい
      12 2
      13 4
      14 5
      15 7
      16 9


      転記するのは購入番号だけでいいんです。
      ただその購入番号を抽出するのに入力シートで会社名でまとめたいのです。
      会社名が同じものだけ購入番号を抽出して印刷、終わったら次の会社の購入番号を
      抽出・・・という作業の繰り返しです。






    [189866] Re[4]: 文字列の検索と繰り返し
    ■■
    □投稿者/ おむらいす -(2019/07/17(16:22))
    □U R L/


      すみません。あとだしになりますが、転記先は1行飛ばしで購入番号を入れたいです。


      物品購入依頼書
      A B C D
      10 番号
      11 1 ←A列に購入番号が転記したい
      12
      13 2
      14
      15 4
      16
      17 5
      18
      19 7
      20




    [189867] Re[5]: 文字列の検索と繰り返し
    ■■
    □投稿者/ おむらいす -(2019/07/17(16:23))
    □U R L/

      一応考えてはみたのですが、うまくできません。
      
      Sub 購入番号の転記()
      
          Dim i, j, c As Long
          Dim ws1, ws2 As Worksheet
          Set ws1 = Worksheets("入力シート")
          Set ws2 = Worksheets("sheet1")
          Set ws3 = Worksheets("物品購入依頼書")
          Dim LastRow As Long
          
          ws2.Cells.Clear
              For i = 2 To ws1.Cells(Rows.Count, 1).End(xlUp).Row
                  If WorksheetFunction.CountIf(Range(ws1.Cells(2, 3), ws1.Cells(i, 3)), ws1.Cells(i, 3)) = 1 Then
                      ws2.Cells(Rows.Count, 1).End(xlUp).Offset(1) = ws1.Cells(i, 3) 'データは2行目1列目から始めること!
                  End If
              Next i
      
              j = ws1.Cells(Rows.Count, 1).End(xlUp).Row
              For i = 2 To ws2.Cells(Rows.Count, 1).End(xlUp).Row
                  Range(ws1.Cells(1, 1), ws1.Cells(j, 3)).AutoFilter field:=3, Criteria1:=ws2.Cells(i, 1) 'AutoFilter field:=○には左から何列目のデータをフィルタ Cells(i, 1)iは1ずつ増えていくのでセルの行が下方向へ進む。
      
                  ws1.Select
          
                  LastRow = ws1.Cells(Rows.Count, 2).End(xlUp).Row
          
                  For c = 1 To LastRow
                      ws3.Cells(c * 2 + 9, 1) = ws1.Cells(c + 1, 2)
                  Next c
                  
              Next i
      
      End Sub


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

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




    [189868] Re[6]: 文字列の検索と繰り返し
    ■■
    □投稿者/ 半平太 -(2019/07/17(17:27))
    □U R L/

      >会社名が同じものだけ購入番号を抽出し
      
      そちらで示された「物品購入依頼書」の例を見ているんですが、
      どこに「社名が同じもの」と言う要素が入っているんですか?
      
      A社なら、1,2,8しかないですよね?
      
      >転記するのは購入番号だけでいいんです。
      それじゃ、どの会社のか分からないんじゃないですか?



- Child Forum -
Edit:ゆう-G