请帮助给看看这个输入条件填充模板的例子,谢谢

YANWEI82123300 · 发表于 2024-10-23 10:53

请各位老师给看看这个输入条件填充模板的例子,谢谢
要求:
根据B1单元格(job)值条件,
查询B2(ass_item);B3(ass_desc);B4(QTY)内容,同时,将trac_item的内容,
也将Trac_item内容横向查询出来(注意此数据的列数是动态的),
再根据B4(QTY)的值进行画单元格的线,例如B4(QTY)值为2,就在A6单元格位置画两行.

YANWEI82123300 · 发表于 2024-10-23 14:01

请各位老师关注一下,感谢感谢

z865593849 · 发表于 2024-10-23 14:27

凑合用

YANWEI82123300 · 发表于 2024-10-23 14:42

z865593849 发表于 2024-10-23 14:27
凑合用

z865593849,老师请受累把代码贴出图片出来,我抄写一下我的office由于版本问题,不能直接打开例子,同时看到您的例子一个疑问:第六行往下是依据B4(qty)值来增加序号空格行的,谢谢了

z865593849 · 发表于 2024-10-23 16:13

本帖最后由 z865593849 于 2024-10-23 16:22 编辑

Sub a()
With Sheets("Traceability_Data")
Columns("C:ZZ").Delete
Rows("6:999").Delete
On Error Resume Next
r = .Columns(1).Find(What:=[b1], LookAt:=xlWhole).Row
[b2] = .Cells(r, 2)
[b3] = .Cells(r, 3)
[b4] = .Cells(r, 4)
[b5] = .Cells(r, 5)
i = 3 'item 列
Do While .Cells(r, 1) = .Cells(r + 1, 1)
Cells(5, i) = .Cells(r + 1, 5) '写item
r = r + 1
i = i + 1
Loop
For i = 1 To [b4].Value
Cells(5 + i, 1) = i '根据数量写序号
Next
End With
Range(Cells(5, 1), Cells(5 + [b4], [a5].End(xlToRight).Column)).Borders().LineStyle = xlContinuous '设置边框
End Sub

复制代码

YANWEI82123300 · 发表于 2024-10-23 16:15

z865593849 发表于 2024-10-23 16:13
重新修改了

请问老师您受累把代码粘贴一下吧,我抄写一下我的电脑是office365英文版,每次打开论坛里面的例子都报错,感谢感谢!

z865593849 · 发表于 2024-10-23 16:24

YANWEI82123300 发表于 2024-10-23 16:15
请问老师您受累把代码粘贴一下吧,我抄写一下我的电脑是office365英文版,每次打开论坛里面的例子都报错,感 ...

又重新修改好了，在审核

z865593849 · 发表于 2024-10-23 16:27

YANWEI82123300 · 发表于 2024-10-24 08:30

z865593849老师感谢您的帮助!!

		自动登录	找回密码
密码			免费注册

[求助] 请帮助给看看这个输入条件填充模板的例子,谢谢

评分

评分

评分