excel启用宏时，提示隐含模块中的编译错误:menumodule_百度知道
excel启用宏时，提示隐含模块中的编译错误:menumodule
我们是学校里面编写新生学籍用的，也不能使用，而且也换了2007版本，也不行:menumodule’不是‘module1 ’，别的学校也是这种情况。我的错误是‘隐含模块中的编译错误重新安装过了
我有更好的答案
我这也是，快急死我了！
我自己解决了，最近，呵呵呵
我也是，怎么解决的
其他类似问题
为您推荐：
excel的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁您的举报已经提交成功，我们将尽快处理，谢谢！
如果你的office 所在的磁盘开了系统还原功能，那么最方便的方法就
是系统还原；
现在的问题还不清楚你说的安装错误是什么，如果是因为文件保护问题引起的...
大家还关注
(window.slotbydup=window.slotbydup || []).push({
id: '2081942',
container: s,
size: '1000,60',
display: 'inlay-fix'excel宏 Visual Basic 隐含模块中的编译错误
今天遇到一个问题，是excel执行宏时，提示Visual Basic 隐含模块中的编译错误
在网上找到了很多资料，都说一个事情是
删除C:\Documents and Settings\用户\Application Data\Microsoft\Excel\XLSTART，下面的文件
但是我遇到的是，这个文件夹下面没有任何文件
后来就把OFFICE 都删除掉，然后单独安装OFFICE 2003，再打开这个excel文件，执行宏，还是提示错误，再安装OFFICE 2007也不行
最后是安装一个SoapToolkit30，才解决。
SoapToolkit30.EXE新增类库，用来调用webservice
标签(Tag):
------分隔线----------------------------
------分隔线----------------------------excel 宏录制后执行时提示： 编译错误 无效或不合格的引用_百度知道
excel 宏录制后执行时提示： 编译错误 无效或不合格的引用
Sub huenlie()&#39; Range(&)://a.com/zhidao/wh%3D600%2C800/sign=619dd8c5b751f819f1700b4cea0b912c8fcc3ce9bd688d53f20a9; &);E9&quot.ActiveSheet&nbsp.HasDiagramNode&nbsp.ActiveSheet&nbsp.jpg" />宏代码如下;).ActiveSheet&nbsp.ActiveSheet& & WorkbookActivate.ActiveSheet&nbsp.ActiveSheet& & .com/zhidao/wh%3D450%2C600/sign=6ef5b16a4ded2e73fcbc8e28b2318dbd/fcc3ce9bd688d53f20a9; .ActiveSheet& &C3&).ActiveSheet&nbsp.Left& &nbsp.HasDiagramNode&nbsp.ActiveSheet& Range(&&#39.ActiveSheet&nbsp.ActiveSheet& WorkbookActivate. & Range(& &nbsp.ActiveSheet& Range(& Range(&B6& Range(& huenlie Macro&#39.jpg" esrc=" &); &nbsp.& &nbsp.Left&B4& WorkbookA WorkbookA & &); &B5&quot: Ctrl+g&#39.hiphotos.Left&nbsp.ActiveSheet& &nbsp.Left&nbsp，但是录制完成后执行时提示了错误; & Range(& &&#39; Range(& & WorkbookActivate.Left&);); Range(& Range(& & 快捷键; & Range(&B12& & WorkbookA & Range(&quot.B13& .ActiveSheet&D3&quot://a;).HasDiagramNode& ; WorkbookActivate.HasDiagramNode&nbsp.HasDiagramNode& WorkbookActivate.ActiveSheet&);); Range(& Range(& &nbsp.Left&B7&quot.ActiveSheet&/zhidao/pic/item/fcc3ce9bd688d53f20a9;E3&quot.Left& ;); & ; & &D9& &nbsp.B10&C9&); &).HasDiagramNode& &);F9& &nbsp.HasDiagramNode& &F3&quot.jpg" target="_blank" title="点击查看大图" class="ikqb_img_alink"><img class="ikqb_img" src="http://a;); ; Range(&B11&quot.hiphotos.HasDiagramNode&nbsp我录制了一个重复剪切再粘贴的宏; & & ; Range(&quot，大神帮看一下是怎么回事<a href="http
我有更好的答案
此时，每一步操作都会被记录下来。工具－宏－宏。然后对表格进行操作，双击“模块”。三。也可以做个按钮，当完成操作后。工具－宏－录制新宏、录制宏，可以在这里修改宏。这种情况需要对VBA代码有一定的熟悉，将按钮指定一个宏，就可看见录制好的宏了。再按Alt+F11，选择录制好的宏。二，再双击“模块1”、可以不必录制宏、执行宏。有必要时，直接按Alt+F11进去创建宏，单击“执行”即可。需要时直接单击按钮就可执行宏了一，单击“停止录制”
其他类似问题
为您推荐：
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁查看: 1514|回复: 3
重装系统后 这个excel的宏不能用了 怎么才能正常加载上下面的代码并正常试用！在线等
新鲜人, 积分 1, 距离下一级还需 9 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
免费注册成为本站会员，享用更多功能，结识更多Office办公高手！
才可以下载或查看，没有帐号？
Private Sub CommandButton1_Click()
If Range(&E15&).Value = &铜管& Then
& && &&&Dim Counter As Integer
& && &&&For Counter = 1 To Range(&E17&).Value
& && &&&Sheets(&Sheet2&).Select
& && &&&Worksheets(&Sheet2&).Cells(Counter + 1, 1).Select
& && &&&Selection.Copy
& && &&&Sheets(&Sheet1&).Select
& && &&&Worksheets(&Sheet1&).Cells(Counter + 2, 5).Select
& && &&&Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
& && &&&:=False, Transpose:=False
& && &&&Next Counter
& && &&&response = MsgBox(&数据将转移，确认操作？&, 1, &提示&)
& & If response = 1 Then
& && &&&MyName = Worksheets(&Sheet1&).Cells(3, 2).Value
& && &&&Mykpr = Worksheets(&Sheet1&).Cells(2, 2).Value
& && &&&Myfhr = Worksheets(&Sheet1&).Cells(2, 4).Value
& && &&&For Counter = 1 To Range(&E17&).Value
& && &&&Sheets(&Sheet2&).Select
& && &&&Worksheets(&Sheet2&).Cells(2, 1).Select
& && &&&Selection.Cut
& && &&&Sheets(&Sheet3&).Select
& && &&&Worksheets(&Sheet3&).Cells(2, 1).Select
& && &&&Selection.Insert Shift:=xlDown
& && &&&Worksheets(&Sheet3&).Cells(2, 2).Select
& && &&&Selection.Insert Shift:=xlDown
& && &&&Worksheets(&Sheet3&).Cells(2, 2).Value = MyName
& && &&&Worksheets(&Sheet3&).Cells(2, 3).Select
& && &&&Selection.Insert Shift:=xlDown
& && &&&Worksheets(&Sheet3&).Cells(2, 3).Value = Mykpr
& && &&&Worksheets(&Sheet3&).Cells(2, 4).Select
& && &&&Selection.Insert Shift:=xlDown
& && &&&Worksheets(&Sheet3&).Cells(2, 4).Value = Myfhr
& && &&&Sheets(&Sheet2&).Select
& && &&&Worksheets(&Sheet2&).Cells(2, 1).Select
& && &&&Selection.Delete Shift:=xlUp
& && &&&Next Counter
& && &&&CommandButton1.Enabled = False
& && && && && &
& & Range(&E3:E12&).Select
& & Selection.ClearContents
& & End If
& & Sheets(&Sheet1&).Select
& & If Range(&E15&).Value = &毫秒& Then
& && && &Dim Counter1, Jishu, Ji, Quzhi As Integer
& && && &Quzhi = Range(&E17&).Value / 5
& && && &Ji = 3
& && && &For Counter1 = 1 To Quzhi
& && && &For Jishu = 1 To 5
& && && && &Sheets(&Sheet2&).Select
& && && && &Worksheets(&Sheet2&).Cells(Counter1 + 1, Jishu + 2).Select
& && && && &Selection.Copy
& && && && &Sheets(&Sheet1&).Select
& && && && &Worksheets(&Sheet1&).Cells(Ji, 5).Select
& && && && &Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
& && &&&:=False, Transpose:=False
& && &&&Ji = Ji + 1
& && &&&Next Jishu
& && &&&Next Counter1
& && &&&response = MsgBox(&数据将转移，确认操作？&, 1, &提示&)
& & If response = 1 Then
& && &&&MyName = Worksheets(&Sheet1&).Cells(3, 2).Value
& && &&&Mykpr = Worksheets(&Sheet1&).Cells(2, 2).Value
& && &&&Myfhr = Worksheets(&Sheet1&).Cells(2, 4).Value
& && &&&Quzhi = Range(&E17&).Value / 5
& && &&&For Counter1 = 1 To Quzhi
& && &&&For Jishu = 1 To 5
& && && && &Sheets(&Sheet2&).Select
& && && && &Worksheets(&Sheet2&).Cells(2, Jishu + 2).Select
& && && && &Selection.Cut
& && && && &Sheets(&Sheet4&).Select
& && && && &Worksheets(&Sheet4&).Cells(2, Jishu).Select
& && && && &Selection.Insert Shift:=xlDown
& && && && &
& && && && &Sheets(&Sheet2&).Select
& && && && &Worksheets(&Sheet2&).Cells(2, Jishu + 2).Select
& && && &&&
& && && && &Selection.Delete Shift:=xlUp
& && && &&&
& && &&&Next Jishu
& && &&&Sheets(&Sheet4&).Select
& && &&&Worksheets(&Sheet4&).Cells(2, 6).Select
& && &&&Selection.Insert Shift:=xlDown
& && &&&Worksheets(&Sheet4&).Cells(2, 6).Value = MyName
& && &&&Worksheets(&Sheet4&).Cells(2, 7).Select
& && &&&Selection.Insert Shift:=xlDown
& && &&&Worksheets(&Sheet4&).Cells(2, 7).Value = Mykpr
& && &&&Worksheets(&Sheet4&).Cells(2, 8).Select
& && &&&Selection.Insert Shift:=xlDown
& && &&&Worksheets(&Sheet4&).Cells(2, 8).Value = Myfhr
& && &&&Next Counter1
& && &&&CommandButton1.Enabled = False
& & Range(&E3:E12&).Select
& & Selection.ClearContents
& && &End If
& && & Sheets(&Sheet1&).Select
& &&&If Range(&E15&).Value = &电管& Then
& && &&&Dim Counter2 As Integer
& && &&&For Counter2 = 1 To Range(&E17&).Value
& && &&&Sheets(&Sheet2&).Select
& && &&&Worksheets(&Sheet2&).Cells(Counter2 + 1, 2).Select
& && &&&Selection.Copy
& && &&&Sheets(&Sheet1&).Select
& && &&&Worksheets(&Sheet1&).Cells(Counter2 + 2, 5).Select
& && &&&Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
& && &&&:=False, Transpose:=False
& && &&&Next Counter2
& && &&&response = MsgBox(&数据将转移，确认操作？&, 1, &提示&)
& & If response = 1 Then
& && &&&MyName = Worksheets(&Sheet1&).Cells(3, 2).Value
& && &&&Mykpr = Worksheets(&Sheet1&).Cells(2, 2).Value
& && &&&Myfhr = Worksheets(&Sheet1&).Cells(2, 4).Value
& && &&&For Counter2 = 1 To Range(&E17&).Value
& && &&&Sheets(&Sheet2&).Select
& && &&&Worksheets(&Sheet2&).Cells(2, 2).Select
& && &&&Selection.Cut
& && &&&Sheets(&Sheet5&).Select
& && &&&Worksheets(&Sheet5&).Cells(2, 1).Select
& && &&&Selection.Insert Shift:=xlDown
& && &&&Worksheets(&Sheet5&).Cells(2, 2).Select
& && &&&Selection.Insert Shift:=xlDown
& && &&&Worksheets(&Sheet5&).Cells(2, 2).Value = MyName
& && &&&Worksheets(&Sheet5&).Cells(2, 3).Select
& && &&&Selection.Insert Shift:=xlDown
& && &&&Worksheets(&Sheet5&).Cells(2, 3).Value = Mykpr
& && &&&Worksheets(&Sheet5&).Cells(2, 4).Select
& && &&&Selection.Insert Shift:=xlDown
& && &&&Worksheets(&Sheet5&).Cells(2, 4).Value = Myfhr
& && &&&Sheets(&Sheet2&).Select
& && &&&Worksheets(&Sheet2&).Cells(2, 2).Select
& && &&&Selection.Delete Shift:=xlUp
& && &&&Next Counter2
& && &&&CommandButton1.Enabled = False
& & Range(&E3:E12&).Select
& & Selection.ClearContents
& & End If
& & Sheets(&Sheet1&).Select
& &&&If Range(&E15&).Value = &火管& Then
& && &&&Dim Counter3 As Integer
& && &&&For Counter3 = 1 To Range(&E17&).Value
& && &&&Sheets(&Sheet2&).Select
& && &&&Worksheets(&Sheet2&).Cells(Counter3 + 1, 8).Select
& && &&&Selection.Copy
& && &&&Sheets(&Sheet1&).Select
& && &&&Worksheets(&Sheet1&).Cells(Counter3 + 2, 5).Select
& && &&&Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
& && &&&:=False, Transpose:=False
& && &&&Next Counter3
& && &&&response = MsgBox(&数据将转移，确认操作？&, 1, &提示&)
& & If response = 1 Then
& && &&&MyName = Worksheets(&Sheet1&).Cells(3, 2).Value
& && &&&Mykpr = Worksheets(&Sheet1&).Cells(2, 2).Value
& && &&&Myfhr = Worksheets(&Sheet1&).Cells(2, 4).Value
& && &&&For Counter3 = 1 To Range(&E17&).Value
& && &&&Sheets(&Sheet2&).Select
& && &&&Worksheets(&Sheet2&).Cells(2, 8).Select
& && &&&Selection.Cut
& && &&&Sheets(&Sheet6&).Select
& && &&&Worksheets(&Sheet6&).Cells(2, 1).Select
& && &&&Selection.Insert Shift:=xlDown
& && &&&Worksheets(&Sheet6&).Cells(2, 2).Select
& && &&&Selection.Insert Shift:=xlDown
& && &&&Worksheets(&Sheet6&).Cells(2, 2).Value = MyName
& && &&&Worksheets(&Sheet6&).Cells(2, 3).Select
& && &&&Selection.Insert Shift:=xlDown
& && &&&Worksheets(&Sheet6&).Cells(2, 3).Value = Mykpr
& && &&&Worksheets(&Sheet6&).Cells(2, 4).Select
& && &&&Selection.Insert Shift:=xlDown
& && &&&Worksheets(&Sheet6&).Cells(2, 4).Value = Myfhr
& && &&&Sheets(&Sheet2&).Select
& && &&&Worksheets(&Sheet2&).Cells(2, 8).Select
& && &&&Selection.Delete Shift:=xlUp
& && &&&Next Counter3
& && &&&CommandButton1.Enabled = False
& & Range(&E3:E12&).Select
& & Selection.ClearContents
& & End If
& & Sheets(&Sheet1&).Select
& && &End If
& && &End If
& && &End If
& && &End If
& && &Sheets(&Sheet1&).Select
Private Sub CommandButton1_GotFocus()
If Range(&e15&) = &毫秒& Then
If Range(&e17&).Value && 5 Then
If Range(&e17&).Value && 10 Then
response = MsgBox(&数据有误，重新操作&, 0, &提示&)
& & End If
& & End If
& & End If
Private Sub CommandButton2_Click()
If Range(&f15&).Value = &铜管& Then
& && &&&Dim Counter As Integer
& && &&&For Counter = 1 To Range(&f17&).Value
& && &&&Sheets(&Sheet2&).Select
& && &&&Worksheets(&Sheet2&).Cells(Counter + 1, 1).Select
& && &&&Selection.Copy
& && &&&Sheets(&Sheet1&).Select
& && &&&Worksheets(&Sheet1&).Cells(Counter + 2, 6).Select
& && &&&Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
& && &&&:=False, Transpose:=False
& && &&&Next Counter
& && &&&response = MsgBox(&数据将转移，确认操作？&, 1, &提示&)
& & If response = 1 Then
& && &&&MyName = Worksheets(&Sheet1&).Cells(3, 2).Value
& && &&&Mykpr = Worksheets(&Sheet1&).Cells(2, 2).Value
& && &&&Myfhr = Worksheets(&Sheet1&).Cells(2, 4).Value
& && &&&For Counter = 1 To Range(&f17&).Value
& && &&&Sheets(&Sheet2&).Select
& && &&&Worksheets(&Sheet2&).Cells(2, 1).Select
& && &&&Selection.Cut
& && &&&Sheets(&Sheet3&).Select
& && &&&Worksheets(&Sheet3&).Cells(2, 1).Select
& && &&&Selection.Insert Shift:=xlDown
& && &&&Worksheets(&Sheet3&).Cells(2, 2).Select
& && &&&Selection.Insert Shift:=xlDown
& && &&&Worksheets(&Sheet3&).Cells(2, 2).Value = MyName
& && &&&Worksheets(&Sheet3&).Cells(2, 3).Select
& && &&&Selection.Insert Shift:=xlDown
& && &&&Worksheets(&Sheet3&).Cells(2, 3).Value = Mykpr
& && &&&Worksheets(&Sheet3&).Cells(2, 4).Select
& && &&&Selection.Insert Shift:=xlDown
& && &&&Worksheets(&Sheet3&).Cells(2, 4).Value = Myfhr
& && &&&Sheets(&Sheet2&).Select
& && &&&Worksheets(&Sheet2&).Cells(2, 1).Select
& && &&&Selection.Delete Shift:=xlUp
& && &&&Next Counter
& && &&&CommandButton2.Enabled = False
& & Range(&f3:f12&).Select
& & Selection.ClearContents
& & End If
& & Sheets(&Sheet1&).Select
& & If Range(&f15&).Value = &毫秒& Then
& && && &Dim Counter1, Jishu, Ji, Quzhi As Integer
& && && &Quzhi = Range(&f17&).Value / 5
& && && &Ji = 3
& && && &For Counter1 = 1 To Quzhi
& && && &For Jishu = 1 To 5
& && && && &Sheets(&Sheet2&).Select
& && && && &Worksheets(&Sheet2&).Cells(Counter1 + 1, Jishu + 2).Select
& && && && &Selection.Copy
& && && && &Sheets(&Sheet1&).Select
& && && && &Worksheets(&Sheet1&).Cells(Ji, 6).Select
& && && && &Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
& && &&&:=False, Transpose:=False
& && &&&Ji = Ji + 1
& && &&&Next Jishu
& && &&&Next Counter1
& && &&&response = MsgBox(&数据将转移，确认操作？&, 1, &提示&)
& & If response = 1 Then
& && &&&MyName = Worksheets(&Sheet1&).Cells(3, 2).Value
& && &&&Mykpr = Worksheets(&Sheet1&).Cells(2, 2).Value
& && &&&Myfhr = Worksheets(&Sheet1&).Cells(2, 4).Value
& && &&&Quzhi = Range(&f17&).Value / 5
& && &&&For Counter1 = 1 To Quzhi
& && &&&For Jishu = 1 To 5
& && && && &Sheets(&Sheet2&).Select
& && && && &Worksheets(&Sheet2&).Cells(2, Jishu + 2).Select
& && && && &Selection.Cut
& && && && &Sheets(&Sheet4&).Select
& && && && &Worksheets(&Sheet4&).Cells(2, Jishu).Select
& && && && &Selection.Insert Shift:=xlDown
& && && && &
& && && && &Sheets(&Sheet2&).Select
& && && && &Worksheets(&Sheet2&).Cells(2, Jishu + 2).Select
& && && &&&
& && && && &Selection.Delete Shift:=xlUp
& && && &&&
& && &&&Next Jishu
& && &&&Sheets(&Sheet4&).Select
& && &&&Worksheets(&Sheet4&).Cells(2, 6).Select
& && &&&Selection.Insert Shift:=xlDown
& && &&&Worksheets(&Sheet4&).Cells(2, 6).Value = MyName
& && &&&Worksheets(&Sheet4&).Cells(2, 7).Select
& && &&&Selection.Insert Shift:=xlDown
& && &&&Worksheets(&Sheet4&).Cells(2, 7).Value = Mykpr
& && &&&Worksheets(&Sheet4&).Cells(2, 8).Select
& && &&&Selection.Insert Shift:=xlDown
& && &&&Worksheets(&Sheet4&).Cells(2, 8).Value = Myfhr
& && &&&Next Counter1
& && &&&CommandButton2.Enabled = False
& & Range(&f3:f12&).Select
& & Selection.ClearContents
& && &End If
& && & Sheets(&Sheet1&).Select
& &&&If Range(&f15&).Value = &电管& Then
& && &&&Dim Counter2 As Integer
& && &&&For Counter2 = 1 To Range(&f17&).Value
& && &&&Sheets(&Sheet2&).Select
& && &&&Worksheets(&Sheet2&).Cells(Counter2 + 1, 2).Select
& && &&&Selection.Copy
& && &&&Sheets(&Sheet1&).Select
& && &&&Worksheets(&Sheet1&).Cells(Counter2 + 2, 6).Select
& && &&&Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
& && &&&:=False, Transpose:=False
& && &&&Next Counter2
& && &&&response = MsgBox(&数据将转移，确认操作？&, 1, &提示&)
& & If response = 1 Then
& && &&&MyName = Worksheets(&Sheet1&).Cells(3, 2).Value
& && &&&Mykpr = Worksheets(&Sheet1&).Cells(2, 2).Value
& && &&&Myfhr = Worksheets(&Sheet1&).Cells(2, 4).Value
& && &&&For Counter2 = 1 To Range(&f17&).Value
& && &&&Sheets(&Sheet2&).Select
& && &&&Worksheets(&Sheet2&).Cells(2, 2).Select
& && &&&Selection.Cut
& && &&&Sheets(&Sheet5&).Select
& && &&&Worksheets(&Sheet5&).Cells(2, 1).Select
& && &&&Selection.Insert Shift:=xlDown
& && &&&Worksheets(&Sheet5&).Cells(2, 2).Select
& && &&&Selection.Insert Shift:=xlDown
& && &&&Worksheets(&Sheet5&).Cells(2, 2).Value = MyName
& && &&&Worksheets(&Sheet5&).Cells(2, 3).Select
& && &&&Selection.Insert Shift:=xlDown
& && &&&Worksheets(&Sheet5&).Cells(2, 3).Value = Mykpr
& && &&&Worksheets(&Sheet5&).Cells(2, 4).Select
& && &&&Selection.Insert Shift:=xlDown
& && &&&Worksheets(&Sheet5&).Cells(2, 4).Value = Myfhr
& && &&&Sheets(&Sheet2&).Select
& && &&&Worksheets(&Sheet2&).Cells(2, 2).Select
& && &&&Selection.Delete Shift:=xlUp
& && &&&Next Counter2
& && &&&CommandButton2.Enabled = False
& & Range(&f3:f12&).Select
& & Selection.ClearContents
& & End If
& & Sheets(&Sheet1&).Select
& &&&If Range(&f15&).Value = &火管& Then
& && &&&Dim Counter3 As Integer
& && &&&For Counter3 = 1 To Range(&f17&).Value
& && &&&Sheets(&Sheet2&).Select
& && &&&Worksheets(&Sheet2&).Cells(Counter3 + 1, 8).Select
& && &&&Selection.Copy
& && &&&Sheets(&Sheet1&).Select
& && &&&Worksheets(&Sheet1&).Cells(Counter3 + 2, 6).Select
& && &&&Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
& && &&&:=False, Transpose:=False
& && &&&Next Counter3
& && &&&response = MsgBox(&数据将转移，确认操作？&, 1, &提示&)
& & If response = 1 Then
& && &&&MyName = Worksheets(&Sheet1&).Cells(3, 2).Value
& && &&&Mykpr = Worksheets(&Sheet1&).Cells(2, 2).Value
& && &&&Myfhr = Worksheets(&Sheet1&).Cells(2, 4).Value
& && &&&For Counter3 = 1 To Range(&f17&).Value
& && &&&Sheets(&Sheet2&).Select
& && &&&Worksheets(&Sheet2&).Cells(2, 8).Select
& && &&&Selection.Cut
& && &&&Sheets(&Sheet6&).Select
& && &&&Worksheets(&Sheet6&).Cells(2, 1).Select
& && &&&Selection.Insert Shift:=xlDown
& && &&&Worksheets(&Sheet6&).Cells(2, 2).Select
& && &&&Selection.Insert Shift:=xlDown
& && &&&Worksheets(&Sheet6&).Cells(2, 2).Value = MyName
& && &&&Worksheets(&Sheet6&).Cells(2, 3).Select
& && &&&Selection.Insert Shift:=xlDown
& && &&&Worksheets(&Sheet6&).Cells(2, 3).Value = Mykpr
& && &&&Worksheets(&Sheet6&).Cells(2, 4).Select
& && &&&Selection.Insert Shift:=xlDown
& && &&&Worksheets(&Sheet6&).Cells(2, 4).Value = Myfhr
& && &&&Sheets(&Sheet2&).Select
& && &&&Worksheets(&Sheet2&).Cells(2, 8).Select
& && &&&Selection.Delete Shift:=xlUp
& && &&&Next Counter3
& && &&&CommandButton2.Enabled = False
& & Range(&f3:f12&).Select
& & Selection.ClearContents
& & End If
& & Sheets(&Sheet1&).Select
& && &End If
& && &End If
& && &End If
& && &End If
& && &Sheets(&Sheet1&).Select
Private Sub CommandButton2_GotFocus()
If Range(&f15&) = &毫秒& Then
If Range(&f17&).Value && 5 Then
If Range(&f17&).Value && 10 Then
response = MsgBox(&数据有误，重新操作&, 0, &提示&)
& & End If
& & End If
& & End If
Private Sub CommandButton3_Click()
If Range(&g15&).Value = &铜管& Then
& && &&&Dim Counter As Integer
& && &&&For Counter = 1 To Range(&g17&).Value
& && &&&Sheets(&Sheet2&).Select
& && &&&Worksheets(&Sheet2&).Cells(Counter + 1, 1).Select
& && &&&Selection.Copy
& && &&&Sheets(&Sheet1&).Select
& && &&&Worksheets(&Sheet1&).Cells(Counter + 2, 7).Select
& && &&&Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
& && &&&:=False, Transpose:=False
& && &&&Next Counter
& && &&&response = MsgBox(&数据将转移，确认操作？&, 1, &提示&)
& & If response = 1 Then
& && &&&MyName = Worksheets(&Sheet1&).Cells(3, 2).Value
& && &&&Mykpr = Worksheets(&Sheet1&).Cells(2, 2).Value
& && &&&Myfhr = Worksheets(&Sheet1&).Cells(2, 4).Value
& && &&&For Counter = 1 To Range(&g17&).Value
& && &&&Sheets(&Sheet2&).Select
& && &&&Worksheets(&Sheet2&).Cells(2, 1).Select
& && &&&Selection.Cut
& && &&&Sheets(&Sheet3&).Select
& && &&&Worksheets(&Sheet3&).Cells(2, 1).Select
& && &&&Selection.Insert Shift:=xlDown
& && &&&Worksheets(&Sheet3&).Cells(2, 2).Select
& && &&&Selection.Insert Shift:=xlDown
& && &&&Worksheets(&Sheet3&).Cells(2, 2).Value = MyName
& && &&&Worksheets(&Sheet3&).Cells(2, 3).Select
& && &&&Selection.Insert Shift:=xlDown
& && &&&Worksheets(&Sheet3&).Cells(2, 3).Value = Mykpr
& && &&&Worksheets(&Sheet3&).Cells(2, 4).Select
& && &&&Selection.Insert Shift:=xlDown
& && &&&Worksheets(&Sheet3&).Cells(2, 4).Value = Myfhr
& && &&&Sheets(&Sheet2&).Select
& && &&&Worksheets(&Sheet2&).Cells(2, 1).Select
& && &&&Selection.Delete Shift:=xlUp
& && &&&Next Counter
& && &&&CommandButton3.Enabled = False
& & Range(&g3:g12&).Select
& & Selection.ClearContents
& & End If
& & Sheets(&Sheet1&).Select
& & If Range(&g15&).Value = &毫秒& Then
& && && &Dim Counter1, Jishu, Ji, Quzhi As Integer
& && && &Quzhi = Range(&g17&).Value / 5
& && && &Ji = 3
& && && &For Counter1 = 1 To Quzhi
& && && &For Jishu = 1 To 5
& && && && &Sheets(&Sheet2&).Select
& && && && &Worksheets(&Sheet2&).Cells(Counter1 + 1, Jishu + 2).Select
& && && && &Selection.Copy
& && && && &Sheets(&Sheet1&).Select
& && && && &Worksheets(&Sheet1&).Cells(Ji, 7).Select
& && && && &Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
& && &&&:=False, Transpose:=False
& && &&&Ji = Ji + 1
& && &&&Next Jishu
& && &&&Next Counter1
& && &&&response = MsgBox(&数据将转移，确认操作？&, 1, &提示&)
& & If response = 1 Then
& && &&&MyName = Worksheets(&Sheet1&).Cells(3, 2).Value
& && &&&Mykpr = Worksheets(&Sheet1&).Cells(2, 2).Value
& && &&&Myfhr = Worksheets(&Sheet1&).Cells(2, 4).Value
& && &&&Quzhi = Range(&g17&).Value / 5
& && &&&For Counter1 = 1 To Quzhi
& && &&&For Jishu = 1 To 5
& && && && &Sheets(&Sheet2&).Select
& && && && &Worksheets(&Sheet2&).Cells(2, Jishu + 2).Select
& && && && &Selection.Cut
& && && && &Sheets(&Sheet4&).Select
& && && && &Worksheets(&Sheet4&).Cells(2, Jishu).Select
& && && && &Selection.Insert Shift:=xlDown
& && && && &
& && && && &Sheets(&Sheet2&).Select
& && && && &Worksheets(&Sheet2&).Cells(2, Jishu + 2).Select
& && && &&&
& && && && &Selection.Delete Shift:=xlUp
& && && &&&
& && &&&Next Jishu
& && &&&Sheets(&Sheet4&).Select
& && &&&Worksheets(&Sheet4&).Cells(2, 6).Select
& && &&&Selection.Insert Shift:=xlDown
& && &&&Worksheets(&Sheet4&).Cells(2, 6).Value = MyName
& && &&&Worksheets(&Sheet4&).Cells(2, 7).Select
& && &&&Selection.Insert Shift:=xlDown
& && &&&Worksheets(&Sheet4&).Cells(2, 7).Value = Mykpr
& && &&&Worksheets(&Sheet4&).Cells(2, 8).Select
& && &&&Selection.Insert Shift:=xlDown
& && &&&Worksheets(&Sheet4&).Cells(2, 8).Value = Myfhr
& && &&&Next Counter1
& && &&&CommandButton3.Enabled = False
& & Range(&g3:g12&).Select
& & Selection.ClearContents
& && &End If
& && & Sheets(&Sheet1&).Select
& &&&If Range(&g15&).Value = &电管& Then
& && &&&Dim Counter2 As Integer
& && &&&For Counter2 = 1 To Range(&g17&).Value
& && &&&Sheets(&Sheet2&).Select
& && &&&Worksheets(&Sheet2&).Cells(Counter2 + 1, 2).Select
& && &&&Selection.Copy
& && &&&Sheets(&Sheet1&).Select
& && &&&Worksheets(&Sheet1&).Cells(Counter2 + 2, 7).Select
& && &&&Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
& && &&&:=False, Transpose:=False
& && &&&Next Counter2
& && &&&response = MsgBox(&数据将转移，确认操作？&, 1, &提示&)
& & If response = 1 Then
& && &&&MyName = Worksheets(&Sheet1&).Cells(3, 2).Value
& && &&&Mykpr = Worksheets(&Sheet1&).Cells(2, 2).Value
& && &&&Myfhr = Worksheets(&Sheet1&).Cells(2, 4).Value
& && &&&For Counter2 = 1 To Range(&g17&).Value
& && &&&Sheets(&Sheet2&).Select
& && &&&Worksheets(&Sheet2&).Cells(2, 2).Select
& && &&&Selection.Cut
& && &&&Sheets(&Sheet5&).Select
& && &&&Worksheets(&Sheet5&).Cells(2, 1).Select
& && &&&Selection.Insert Shift:=xlDown
& && &&&Worksheets(&Sheet5&).Cells(2, 2).Select
& && &&&Selection.Insert Shift:=xlDown
& && &&&Worksheets(&Sheet5&).Cells(2, 2).Value = MyName
& && &&&Worksheets(&Sheet5&).Cells(2, 3).Select
& && &&&Selection.Insert Shift:=xlDown
& && &&&Worksheets(&Sheet5&).Cells(2, 3).Value = Mykpr
& && &&&Worksheets(&Sheet5&).Cells(2, 4).Select
& && &&&Selection.Insert Shift:=xlDown
& && &&&Worksheets(&Sheet5&).Cells(2, 4).Value = Myfhr
& && &&&Sheets(&Sheet2&).Select
& && &&&Worksheets(&Sheet2&).Cells(2, 2).Select
& && &&&Selection.Delete Shift:=xlUp
& && &&&Next Counter2
& && &&&CommandButton3.Enabled = False
& & Range(&g3:g12&).Select
& & Selection.ClearContents
& & End If
& & Sheets(&Sheet1&).Select
& &&&If Range(&g15&).Value = &火管& Then
& && &&&Dim Counter3 As Integer
& && &&&For Counter3 = 1 To Range(&g17&).Value
& && &&&Sheets(&Sheet2&).Select
& && &&&Worksheets(&Sheet2&).Cells(Counter3 + 1, 8).Select
& && &&&Selection.Copy
& && &&&Sheets(&Sheet1&).Select
& && &&&Worksheets(&Sheet1&).Cells(Counter3 + 2, 7).Select
& && &&&Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
& && &&&:=False, Transpose:=False
& && &&&Next Counter3
& && &&&response = MsgBox(&数据将转移，确认操作？&, 1, &提示&)
& & If response = 1 Then
& && &&&MyName = Worksheets(&Sheet1&).Cells(3, 2).Value
& && &&&Mykpr = Worksheets(&Sheet1&).Cells(2, 2).Value
& && &&&Myfhr = Worksheets(&Sheet1&).Cells(2, 4).Value
& && &&&For Counter3 = 1 To Range(&g17&).Value
& && &&&Sheets(&Sheet2&).Select
& && &&&Worksheets(&Sheet2&).Cells(2, 8).Select
& && &&&Selection.Cut
& && &&&Sheets(&Sheet6&).Select
& && &&&Worksheets(&Sheet6&).Cells(2, 1).Select
& && &&&Selection.Insert Shift:=xlDown
& && &&&Worksheets(&Sheet6&).Cells(2, 2).Select
& && &&&Selection.Insert Shift:=xlDown
& && &&&Worksheets(&Sheet6&).Cells(2, 2).Value = MyName
& && &&&Worksheets(&Sheet6&).Cells(2, 3).Select
& && &&&Selection.Insert Shift:=xlDown
& && &&&Worksheets(&Sheet6&).Cells(2, 3).Value = Mykpr
& && &&&Worksheets(&Sheet6&).Cells(2, 4).Select
& && &&&Selection.Insert Shift:=xlDown
& && &&&Worksheets(&Sheet6&).Cells(2, 4).Value = Myfhr
& && &&&Sheets(&Sheet2&).Select
& && &&&Worksheets(&Sheet2&).Cells(2, 8).Select
& && &&&Selection.Delete Shift:=xlUp
& && &&&Next Counter3
& && &&&CommandButton3.Enabled = False
& & Range(&g3:g12&).Select
& & Selection.ClearContents
& & End If
& & Sheets(&Sheet1&).Select
& && &End If
& && &End If
& && &End If
& && &End If
& && &Sheets(&Sheet1&).Select
Private Sub CommandButton3_GotFocus()
If Range(&g15&) = &毫秒& Then
If Range(&g17&).Value && 5 Then
If Range(&g17&).Value && 10 Then
response = MsgBox(&数据有误，重新操作&, 0, &提示&)
& & End If
& & End If
& & End If
Private Sub CommandButton4_Click()
Range(&e3:g12&).Select
Selection.ClearContents
CommandButton1.Enabled = True
CommandButton2.Enabled = True
CommandButton3.Enabled = True
学office，哪能不关注全网最大的Office类微博（新浪）
初级二, 积分 105, 距离下一级还需 145 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
学office，哪能不关注全网最大的Office类微博（新浪）
中级二, 积分 929, 距离下一级还需 121 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
好长的代码，正确安装office就应该没问题，这个代码用到的是 commandbutton1_click，你看下你插入的控件是不是activex命令按钮？然后把sub和end sub中间的代码放进去
学office，哪能不关注全网最大的Office类微博（新浪）
中级三, 积分 1096, 距离下一级还需 354 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
可以看看工具中的引用是不是没有打个勾，缺少某个控件之类的
学office，哪能不关注全网最大的Office类微博（新浪）
Excel技巧网的会员探讨问题仅代表其个人意见，与网站的立场无关。任何违反国家和地方相关法律法规的言论，本站有义务协助政府相关部门追究发言者的责任！
本站中非注明转载文章与案例的版权为作者与Excel技巧网共有。若非原文作者，本站之外任何单位或个人未经允许，不得将其用于商业用途。
若非原文作者，任何形式的非商业性转载必须获得Excel技巧网或作者允许，并注明作者和出处。
会员发表的帖子如涉及版权纠纷，须自行负责。详情请参考注册时的网站服务条款。
本站特聘法律顾问：沈学律师
Powered by