Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

2397 / 76807

←次へ　｜　前へ→


	【80054】Re:1つのリストから同じブック内に複数明細を生成したい

さくらこ - 18/7/16(月) 2:20 -


	引用なし

	パスワード

アドバイス頂いた方法とは少し違うかもしれませんが、色々なサイト情報を参考に、一旦はなんとか目的の動作をするマクロが作れました。
これまで、VBAは既存のコードの部分修正程度しかしたことがありませんでしたが、こちらのサイトをはじめ、様々な情報がとても参考になりました。
お作法もなっていないめちゃくちゃな記述かもしれませんが、ひとまずこれで使ってみようと思います。
また何か困ったことがあれば、相談させてください。
この度は、ありがとうございました。

----------
Sub 明細シート作成()

wsList.Select
Range("A4:A200").Select
Selection.Copy
wsClient.Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues
wsList.Select
Range("C4:C200").Select
Selection.Copy
wsClient.Select
Range("B1").Select
Selection.PasteSpecial Paste:=xlPasteValues
wsList.Select
Range("S4:S200").Select
Selection.Copy
wsClient.Select
Range("C1").Select
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
ActiveSheet.Range("$A$1:$C$197").RemoveDuplicates Columns:=Array(1, 2, 3), Header:=xlNo
wsList.Select
Range("A1").Select

Dim rowsList As Long, rowsClient As Long
rowsList = wsList.Cells(Rows.Count, 1).End(xlUp).Row
rowsClient = wsClient.Cells(Rows.Count, 1).End(xlUp).Row

Dim n As Long
For n = 1 To rowsClient

　 Dim txt As String, no As String, name As String, i As Long, k As Long
　 txt = wsClient.Cells(n, 1).Value
　 no = wsClient.Cells(n, 2).Value
　 name = wsClient.Cells(n, 3).Value
　 k = 25
　 wsForm.Copy After:=wsForm
　 ActiveSheet.name = txt
　 ActiveSheet.Range("B34").Value = txt
　 ActiveSheet.Range("B5").Value = no
　 ActiveSheet.Range("A3").Value = name
　　 For i = 4 To rowsList
　　 If wsList.Cells(i, 1).Value = txt Then
　　 wsList.Cells(i, 6).Copy ActiveSheet.Cells(k, 1)
　　 wsList.Cells(i, 8).Copy ActiveSheet.Cells(k, 8)
　　 k = k + 1
　　 End If
　　 Next i

Next n

End Sub
----------

1 hits

▼

【80045】1つのリストから同じブック内に複数明細を生成したい さくらこ 18/7/14(土) 14:58