请高手帮忙把型材列表里的数据复制到简图表里

jinchen1943 · 发表于 2018-8-8 14:39

本帖最后由 jinchen1943 于 2018-8-8 14:35 编辑

请高手帮忙把型材列表里的数据复制到简图表里，同时把文件夹里的简图图片插入到表2的简图栏里。

iwangyi · 发表于 2018-8-8 16:12

Sub CC()
N = Sheet1.[A65536].End(xlUp).Row
For I = 2 To N
With Sheet1
K = K + 1
Cells(4 * K - 2, 3) = .Cells(I, 1)
Cells(4 * K - 1, 3) = .Cells(I, 2)
Cells(4 * K, 3) = .Cells(I, 3)
Cells(4 * K + 1, 3) = .Cells(I, 4)
End With
Next:
End Sub

aman1516 · 发表于 2018-8-10 00:10

详见附件：

简图制作模板.rar (105.22 KB, 下载次数: 8)

jinchen1943 · 发表于 2018-8-11 09:32

aman1516 发表于 2018-8-10 00:10
详见附件：

谢谢 aman1516 无私帮助！问题基本解决。
我想问一下，如果有一千多项，不用点下一页就显示出来，图片不显示轮廓线，应该怎么改？

aman1516 · 发表于 2018-8-12 13:02

jinchen1943 发表于 2018-8-11 09:32
谢谢 aman1516 无私帮助！问题基本解决。
我想问一下，如果有一千多项，不用点下一页就显示出来，图片不 ...

去掉边框加一句：
Selection.ShapeRange.Line.Visible = msoFalse
全部显示，则将整表行距统一，将模板格式向下复制方式自动复制即可
详见附件：

简图制作模板.rar (108.88 KB, 下载次数: 4)

jinchen1943 · 发表于 2018-8-17 08:51

aman1516 发表于 2018-8-12 13:02
去掉边框加一句：
Selection.ShapeRange.Line.Visible = msoFalse
全部显示，则将整表行 ...

插入的图片有变形现象，有办法做到按比例缩放吗

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

[求助] 请高手帮忙把型材列表里的数据复制到简图表里

评分

评分

评分