★制作打印信封的小工具★

panyulin

下了……{:soso_e181:}

snsjwb

收藏了，谢谢

zdjhn

很好的东东，多谢

snsjwb

你好,请帮我制作成这个样式

LangQueS

snsjwb 发表于 2012-7-1 21:55
你好,请帮我制作成这个样式

34楼附件包含病毒。

LangQueS

snsjwb 发表于 2012-7-1 21:55
你好,请帮我制作成这个样式

Book1.rar (11.85 KB, 下载次数: 59)

2012-7-1 23:10 上传

点击文件名下载附件

snsjwb

非常感谢.楼主辛苦了

snsjwb

非常感谢.楼主辛苦了.如果模块有详细说明对我这样的门外汉就好理解一些了

LangQueS

snsjwb 发表于 2012-7-2 00:03
非常感谢.楼主辛苦了.如果模块有详细说明对我这样的门外汉就好理解一些了

模块中的代码：

1. Sub 生成()
   
2. a = Sheets("考生名册").[a65536].End(xlUp).Row    '考生名册工作表A列最有数据的行号
   
3. b = Application.WorksheetFunction.RoundUp((a - 1) / 2, 0)  '数据行数除以2后向上取整，因为桌签打印两列
   
4. Range("a1:g4").Copy Range("a5:g" & b * 4)   '取整后的数据乘以4，因为每个桌签有4行
   
5. End Sub
   
6. 
   
7. Sub 删除()
   
8. aa = [a65536].End(xlUp).Row    '当前工作表A列最后行号
   
9. Range("a5:g" & aa).Clear    '清除数据区域，只保留1至4行
   
10. End Sub

复制代码

工作表中的代码：

1. Private Sub CommandButton1_Click()
   
2. With CommandButton1
   
3.     a = "生成"    '为第1个宏设置变量
   
4.     b = "删除"    '为第2个宏设置变量
   
5.     If .Caption = a Then
   
6.         Application.Run a
   
7.         .Caption = b    '修改按钮名称
   
8.         .BackColor = &H80FF&        '按钮土黄色
   
9.         .PrintObject = False    '按钮不打印
   
10.      Else    '否则
    
11.          Application.Run b
    
12.          .Caption = a    '修改按钮名称
    
13.          .BackColor = &HC0C000           '按钮蓝绿色
    
14.      End If
    
15. End With
    
16. Range(ActiveCell.Address).Select      '定位当前单元地址，获得焦点
    
17. End Sub
    

复制代码

snsjwb

谢谢，非常感谢。辛苦了