刻章机运行错误9下标越界应该怎么解决
Sub E?子公司信息()
' 在初始化完成的基础上,进一步生成子公司申报表用
'
' 快捷键: Ctrl+e
Dim stn As Integer, dw As String, bb As Integer, bn As String, tb(81) As String, tr(81) As String, td(81) As String, tq(81) As String
' 对于合并报表的单位,将在子公司明细表第一条记录打印区左边加上其名称以便汇总用
dw = Trim(Sheets(1)。 Range("f1"))
For stn = 11 To 77
Sheets(表头信息)。...全部
Sub E?子公司信息()
' 在初始化完成的基础上,进一步生成子公司申报表用
'
' 快捷键: Ctrl+e
Dim stn As Integer, dw As String, bb As Integer, bn As String, tb(81) As String, tr(81) As String, td(81) As String, tq(81) As String
' 对于合并报表的单位,将在子公司明细表第一条记录打印区左边加上其名称以便汇总用
dw = Trim(Sheets(1)。
Range("f1"))
For stn = 11 To 77
Sheets(表头信息)。Activate
Set c = Worksheets(stn)。
Range("A4")
c。Value = dw
Next stn
'将单位名称、填表人姓名电话及填表日期等加入各表
dw = Trim(Sheets(1)。
Range("c1"))
For bb = 8 To 81
bn = "d" & CStr(bb)
tb(bb) = Trim(Sheets(1)。Range(bn))
bn = "e" & CStr(bb)
tr(bb) = Trim(Sheets(1)。
Range(bn))
bn = "f" & CStr(bb)
td(bb) = Trim(Sheets(1)。Range(bn))
Next bb
'表1表2单位独处理
For stn = 2 To 3
Sheets(stn)。
Activate
With ActiveSheet。PageSetup
。LeftHeader = "" & Chr(10) & "" & Chr(10) & "资产占有单位:" & dw
。
LeftFooter = ""
。RightFooter = ""
End With
Next stn
For stn = 4 To 77
Sheets(stn)。
Activate(此行显示错误)
With ActiveSheet。PageSetup
。LeftHeader = "" & Chr(10) & "" & Chr(10) & "资产占有单位:" & dw
。
LeftFooter = "资产占有单位填表人:" & tb(stn + 4) & Chr(10) & "填表日期:" & tr(stn + 4)
。CenterFooter = "填表人联系电话:" & td(stn + 4) & Chr(10) & tq(stn + 4)
End With
Next stn
Sheets(2)。
Activate
End Sub。收起