为公司员工快速批量制作实名制礼品券（用VB在同一单元格中设置多种字体格式）

∫暗迹dx＝∽

制作结果如下：

利用公司员工基本信息表制作实名制礼品券步骤：

1、从人力资源部门获取员工基本信息表，并进行初步调整，制成如下表格

2、补充需要的信息。

在D2中输入“红富士苹果两箱  

                     马奶葡萄四盒           ”并按“Alt+Enter”，添加一空行。

在E2中输入“部门：       ”并按“Alt+Enter”，添加一空行。在F2中输入“序号：       ”并按“Alt+Enter”，添加一空行。在G2中输入“姓名：       ”并按“Alt+Enter”，添加一空行。

结果如下图

3、利用concatenate函数公式。在H2中输入=CONCATENATE(D2,E2,C2,F2,A2,G2,B2)，并向下进行引用。H列单元格显示

红富士苹果两箱
马奶葡萄四盒
部门:       办公室
序号:            1姓名:         张三结果如下图：

4、复制H列的内容，在sheet2中的A列粘贴，粘贴选项，粘贴值。

5、利用VB对格式进行调整，代码如下：（Excel必须是启用宏的模版的。可先另存为，启用宏的模版的xlsm格式，不然运行代码时会报错）

   Sub tzgs()

   Dim i As IntegerFor i = 1 To 520

   Cells(i, 1).Select

    WithActiveCell.Characters(Start:=1, Length:=0).Font     

   .Name = "宋体"      

   .FontStyle ="常规"      

   .Size = 11      

   .Strikethrough =False      

   .Superscript =False      

   .Subscript = False        

   .OutlineFont =False     

   .Shadow = False        

    .Underline =xlUnderlineStyleNone        

    .ThemeColor =xlThemeColorLight1      

     .TintAndShade = 0      

     .ThemeFont =xlThemeFontMinor   

     End With

    WithActiveCell.Characters(Start:=1, Length:=15).Font

        .Name = "黑体"

        .FontStyle ="常规"

        .Size = 14

        .Strikethrough =False

        .Superscript =False

        .Subscript = False

        .OutlineFont =False

        .Shadow = False

        .Underline =xlUnderlineStyleNone

        .ThemeColor =xlThemeColorLight1

        .TintAndShade = 0

        .ThemeFont = xlThemeFontNone

    End With

    WithActiveCell.Characters(Start:=16, Length:=43).Font

        .Name = "宋体"

        .FontStyle ="常规"

        .Size = 11

        .Strikethrough =False

        .Superscript =False

        .Subscript = False

        .OutlineFont =False

        .Shadow = False

        .Underline =xlUnderlineStyleNone

        .ThemeColor =xlThemeColorLight1

        .TintAndShade = 0

        .ThemeFont =xlThemeFontMinor

    End With

End Sub

6、调整布局，以利于打印。例如公司一共有520名员工，将A列中序号为261至520单元格内容剪切到B列中。对齐方式为左右居中、上下居中，并在“开始”——“单元格”——“格式”中设置行高为140、列宽为47.在页面布局中调整页边距，以对A4纸充分利用。如下图

最后打印该工作表。

该贴已经同步到 ∫暗迹dx＝∽的微博

∫暗迹dx＝∽

自己先顶一个。

岛上的土著居民

哥给你顶一个，哈哈

べ别离ら

怎么启用宏的模版的xlsm格式

蓝天高山

软件怎么下载啊

a8711531

我们公司都是用CorelDRAW合并打印。你也可以用信封功能。自行百度吧