FF7的留言板 - Excel精英培训网

FF7

向前650809 2011-5-23 22:08: 你好，给看看这个
这是网友给写的预览代码
Sub 预览()
With Sheet1 '工作表
      .PageSetup.PrintArea = .UsedRange.Address
      .PrintPreview
End With

  End Sub
但运行就列机，这是为什么
给解释一下.PageSetup.PrintArea = .UsedRange.Address的意义
谢谢

FF7 2011-5-14 21:20: Find的参数Lookin:=xlValues表示是该查找根据单元格的值查找。
Lookin参数一共有三种类型值：xlValues，xlFormulas和xlComments
xlValues表示Find方法将根据单元格的值进行查找匹配值。
xlFormulas表示Find方法将根据单元格的公式进行查找匹配值。
xlComments表示Find方法将在单元格的批注中查找匹配值。

向前650809 2011-5-12 16:20: '给你做一个添加工具栏按钮的工程模块
'mmbar表示该按钮从属于哪个工具栏；strCaption表示该按钮显示文字；intFaceid表示该按钮显示图标代号；strOnAction表示该按钮执行过程的名字。
Sub mmbarAddctrl(ByVal mmbar As CommandBar, ByVal strCaption As String, ByVal intFaceid As Integer, ByVal strOnAction As String)
Dim mm As CommandBarButton
Set mm = mmbar.Controls.Add(msoControlButton)
      mm.Caption = strCaption
      mm.Style = msoButtonIconAndCaption  'Style表示按钮显示的类型为“图标和文字”
      mm.Faceid = intFaceid
      mm.OnAction = strOnAction
没有这部分不行吗，这部分有何用

向前650809 2011-5-12 16:08: 有了这个程序
Private Sub Workbook_Open()
CreateMenu
End Sub

打开文件就启动工具条，是不是关闭文件后，工具条自然消失（启动别的EXCEL文件，此工具条不会启动）

谢谢你的帮助，现启动是成功了

向前650809 2011-5-4 08:26: 你好，你给回答的那个工具栏代码问题，下面的又如何办
文件启动时启动这个工具栏，文件关闭时同时也关闭这个工具栏，代码又如何办理
请给以指导，谢谢
最好作个附件发来

1 2 3 4 56 / 6 页

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