打印机厂牌怎么用？终于找到答案了Excel办公技巧——把员工资料表一键转化为厂牌打印格式

上面的员工简介是如何通过一次点击转换成品牌打印格式的？方法如下：

首先，按Alt F11快捷键打开“项目浏览器”窗口，即VBE窗口。

其次，单击菜单[插入]---[模块]，在模块1代码窗口中输入以下代码：

Sub 员工资料转化为厂牌打印格式()

A = False

With Worksheets("厂牌打印格式")

.Select

.Cells.Clear

.DrawingObjec

Dim shp As Shape

For Each shp In Worksheets("员工资料表").Shapes

= (0, -3).Value

Next shp

Dim Rng As Range, i As Integer, TargetCell As Range

With Worksheets("员工资料表")

For Each Rng In .Range(.Range("A2"), .Cell, "A").End(xlUp))

i = i + 1

Set TargetCell = Cells(Int((i - 1) / 3) * 6 + 1, ((i - 1) Mod 3) * 3 + 1)

.Range("A1:E1," & Rng.Resize(1, 5).Address).Copy

Targe Paste:=xlPasteValues, Transpose:=True

.Shape).Copy

Sheets("厂牌打印格式").Paste

Selec = Targe(3, 1).Left

Selec = Targe(3, 1).Top

Targe(3, 1).RowHeight = Selec

Targe(3, 1).ColumnWidth = 9.5

Targe(3, 0).VerticalAlignment = xlCenter

Targe = xlContinuous

Next Rng

End With

End With

Range("C:C,F:F").ColumnWidth = 3.5

Range("A1").Activate

A = True

End Sub

模块1代码的截图如下：

最后，我们把光标置于模块1代码中的任意位置，点击[运行]按钮，“员工资料表”中的所有信息将复制到“厂牌打印格式”工作表中，就会达到开篇所示的效果。

鸣谢：若喜欢这篇文章，记得点赞，评论，分享哦！