不懂VBA也编程

wcc1212

謝謝指教,支持~~~

jebsee

谢谢楼主分享！！学习了!!!

c6660

太好了，来学习了，非常感谢

fyth328

以前没有接触过宏，现在才发现excel的精华所在

chenkongqi

代码合并有问题高手帮看看解决下好吗
这段代码希望达到的效果是：打开时当禁用宏时，自动关闭文件；请用宏时，打开文件并继续运行'U盘密码狗+'欢迎页面，文件的关闭需要点击退出系统按钮才可关闭文件。现在运行代码有问题，提示为定义了2次，但我试过多次，单独运行一种效果时，可以运行。合并几段宏后就出现问题，传个附件，还请高手指点，如果可以加我QQ：654813999讨论下好吗？谢谢！！！

Private Sub Workbook_Open()
Me.IsAddin = False
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Me.IsAddin = True
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Me.IsAddin = True
End Sub
'U盘密码狗
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim fs, d, s$, checkUSB As Boolean
On Error Resume Next
checkUSB = False '默认没有找到U盘加密
For I = 3 To 26
Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.GetDrive(Chr(64 + I) & ":")
s = d.SerialNumber
If s = "511039838" Then '当找到序号一样的盘符时
checkUSB = True 'U盘加密为真
Exit For '退出循环
End If
Next I
If Not checkUSB Then
MsgBox "找不到U盘，系统将退出。"
ThisWorkbook.Close False
Else
'欢迎页面
Dim term As Long, chk, TermDate
chk = GetSetting("swy", "Budget", "Date", "")
UserForm1.Show
Sheet15.Activate
If chk = "" Then
term = 2
Else
End If
End If
End Sub
'退出系统
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If OFF_no = 1 Then Cancel = False
If OFF_no = 0 Then Cancel = True
End Sub

有2个Private Sub Workbook_BeforeClose(Cancel As Boolean)事件是多余的，但去掉调试很久还是不行..............

sh61029

学习，

lion-e

山菊花老师:
  
从你这里我学到了很多东西,解决了很多工作中的实际困难,非常感谢!尤其是在Excel中玩转邮件合并,让我对货物标签从手工填写发展到用STAR-500自动打印
只是有一点,我老是调不好打印边距,因为标签很小,一放到打印机上,打出来后老是歪的,或者是打了一半,我想请教一下,如何正确设置批量打印的页边,即把标签上面所要求打印的内容与打印机所打印的内容排版好(我这样说不知道山菊花老师明白不明白,我专业术语了解不多,请多见谅）

山菊花

近来较忙，没有及时回复朋友们的问题，在此说声抱歉。
不要在该帖子中提问其它问题，有问题请发新帖，这样才能及时得到解决。

山菊花

看到朋友问，如何在EXCEL2007中将批注的方框设置成其它形状，在此提供一个VBA方法。

1、右键点击工作表标签，选择“查看代码”，将下面的代码粘贴到光标处：

1. Sub 修改批注()
   
2.     Dim m%
   
3.     m = Application.InputBox("请输入图形代码(1-137)：", "改变自选图形", 1, Type:=1)
   
4.     On Error Resume Next
   
5.     With ActiveCell
   
6.         .AddComment
   
7.         .Comment.Shape.AutoShapeType = m
   
8.     End With
   
9. End Sub

复制代码

2、返回Excel窗口，点击“开发工具”选项卡，点击“宏”按钮，在新窗口中选择“修改批注”宏，点击“选项”按钮。


3、如下图所示，为宏设置快捷键(Ctrl+d)：


如果功能区中没有“开发工具”选项卡，可在Excel选项中设置。

设置完毕后，选择包含批注的单元格，按Ctrl+d运行程序。

手工设置方法见：http://club.excelhome.net/thread-230951-1-1.html

whywcp

哇！学到好多东西，谢谢！