皆様、あけましておめでとうございます。
昨年は大変お世話になりました。
本年もよろしくお願いいたします。
昨年の12月の質問に引き続く形の質問になります。
下記の添付写真(2枚目は後述のコードと同じものになります。)
の1枚目にあるWorkSheet2つをもとに下記のコードを
実行させたいのですが、なぜか何も動きません。
こちらのサイト
(http://www.mdis.co.jp/products/malsy/faq/tips_id426.pdf)
を参考に再度試みましたが結果は同じでした。
どのようにすれば実行できるのか、何が原因で実行できないのか
の2点を教えて頂きたいです。
VBA
1Option Explicit 2 3Public Sub GetProductCodes() 4 5 Dim sht_in As Worksheet, sht_out As Worksheet 6 Dim code_target As String 7 Dim n As Integer, x As Integer, r As Integer 8 9 Set sht_in = Sheets("2(子部品コードでソートし、COUNTIF)") 10 Set sht_out = Sheets("6(調査対象子部品(VBA))") 11 12 n = 2 '出力行カウンタ 13 r = 1 '重複数カウンタ 14 15 '調査対象子部品の数だけループ 16 Do While sht_out.Cells(n, 1) <> "" 17 code_target = sht_out.Cells(n, 1) 18 19 x = 2 '入力行カウンタ 20 21 '構成情報の数だけループ 22 Do While sht_in.Cells(x, 1) <> "" 23 If sht_in.Cells(x, 1) = code_target Then 24 sht_out.Cells(n, r + 1) = sht_in.Cells(x, 2) 25 r = r + 1 26 Else 27 r = 1 28 End If 29 x = x + 1 30 Loop 31 32 r = 1 33 n = n + 1 34 Loop 35 36End Sub 37 38
●追記
1枚目の写真についてですが、2(子部品コードでソートし、COUNTIF)と
6(調査対象子部品(VBA))の2つは添付写真上では異なるBookになっていますが、
実際にマクロを実行する際には同一Book上にあるものです。
マクロの実行はどのように行っていますか?またブレークポイントを指定して実行するとどうなりますか?
回答2件
あなたの回答
tips
プレビュー