各位大侠,我编了几个VBA的程序,可是有几个执行不了啦,有那位可以帮忙找原因?谢谢
程序如下:
Sub order_sheet()
'
' format_sheet Macro
' Macro recorded 2009-8-19 by xsl
'' Dim Csheet_index As Integer
Dim shtSheet As Worksheet
Dim shttSheet As Worksheet
Dim b As Integer
Csheet_index = Sheets("format").cells(1, 21) + 1
For i = 2 To Csheet_index
For Each shtSheet In Sheets
'b = 0
If shtSheet.Name = Sheets("format").cells(i, 20) Then
shtSheet.Move before:=Sheets(i + 1)
Sheets("format").Select
Sheets("format").cells(3, 21) = shtSheet.Name
Sheets("format").cells(2, 21) = Sheets(i + 2).Name
Sheets("format").cells(5, 21) = i
Sheets("format").cells(6, 21) = b
End If
Next
Next
End Sub
程序如下:
Sub order_sheet()
'
' format_sheet Macro
' Macro recorded 2009-8-19 by xsl
'' Dim Csheet_index As Integer
Dim shtSheet As Worksheet
Dim shttSheet As Worksheet
Dim b As Integer
Csheet_index = Sheets("format").cells(1, 21) + 1
For i = 2 To Csheet_index
For Each shtSheet In Sheets
'b = 0
If shtSheet.Name = Sheets("format").cells(i, 20) Then
shtSheet.Move before:=Sheets(i + 1)
Sheets("format").Select
Sheets("format").cells(3, 21) = shtSheet.Name
Sheets("format").cells(2, 21) = Sheets(i + 2).Name
Sheets("format").cells(5, 21) = i
Sheets("format").cells(6, 21) = b
End If
Next
Next
End Sub
解决方案 »
- 如何用VB根据不同的登陆用户和密码,映射不同的文件夹?
- XSDA1 = "Instr(1," & Combo1.Text & ",'" & Trim(Text1.Text) & "')<>0 "的返回值是什么?
- 大家帮帮忙 会用 setup factory的看过来
- 小问题:关于鼠标事件
- 怎样使用cn.Execute str 修改一个字段名
- 如何获得局域网中的电脑并操作它的注册表?
- 那里有InstallShield 6.3的东方语言支持包?50分相送!
- 一个关于抓取网页内容的问题
- 画三角函数和反三角函数图象?
- CPU 利用率获取程序
- Format格式
- 怎么得到所有登陆WinXp的用户名、用户数?
cells(1,21) 的值为0,所以看不出已经执行了。鼠标点上去没有反映。
头一次进来,不知道如何给分。我是0分能给吗?谢谢