查看: 8463|回复: 4
400 错误是什么意思
阅读权限30
在线时间 小时
我在做自定义工具栏的时候跳出&&错误提示
每次点击自定义按钮都不行
(3.46 KB, 下载次数: 12)
00:52 上传
阅读权限30
在线时间 小时
Dim WithEvents Cmb1 mandBarButton
Private Sub Workbook_BeforeClose(Cancel As Boolean)
& & On Error Resume Next
& & mandBars(&△suixin的工具栏△&).Delete
& & ThisWorkbook.Save& & '保存
Set suixin = mandBars.Add(Name:=&△suixin的工具栏△&, Temporary:=True, Position:=msoBarTop)
With suixin
& && &&&.Visible = -1
& && &&&.Enabled = -1
& && &&&.Protection = msoBarNoCustomize
& & End With
& & Set Cmb1 = suixin.Controls.Add(Type:=msoControlButton)
& & With Cmb1
& && &&&.OnAction = &CommandButton1&
& && &&&.Caption = &计算&
& && &&&.BeginGroup = True
& && &&&.FaceId = 15& &
& &&&.Style = msoButtonIconAndCaption
& && &&&.State = msoButtonDown
& & End With
Public Sub CommandButton1()& &'计算
Application.ScreenUpdating = False
Sheet1.Range(Cells(3, 5), Cells(Sheet1.Range(&A65536&).End(xlUp).Row, 5)) = &=R1C4*RC[-1]&
Application.ScreenUpdating = True
请问这个代码有什么问题?
阅读权限30
在线时间 小时
请指教.谢谢大家来
阅读权限30
在线时间 小时
& & & & & & & &
在编辑窗口，用F8进行跟踪，就会知道出错的原因。
阅读权限30
在线时间 小时
非常感谢& &!!!
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师