t-hom’s diary

先ほど次のようなコードを書いていた。 Sub test() Dim x As 発注, y As 明細 For Each x In 注文リスト.発注コレクション 納品書.Copy Range("a3").Value = x.顧客名 For Each y In x.明細リスト Debug.Print vbTab & y.商品名, y.単価, y.数量 Next y Next End Sub ※処理の中身はこちらの話なので気にしないでください。…