[已解决]在VBA中求出全局变量，在表格中怎么用？

kmcla

Public 终点 As String, 起点 As Integer, 终起() As String
Sub 生成终起点()
   
   For i = 4 To 1000 Step 21
   If Workbooks("垫层分项工程质量检验评定表11.xls").Worksheets("垫原始").Cells(i, 14).Value <> "" Then
   
   T = Workbooks("垫层分项工程质量检验评定表11.xls").Worksheets("垫原始").Cells(i, 14).Value
   终点 = 提取数字(Right(T, 7))
   End If
     
    Next
   起点 = 提取数字(Left(Workbooks("垫层分项工程质量检验评定表11.xls").Worksheets("垫原始").Cells(4, 14).Value, 13))
   MsgBox 起点 & 终点
End Sub

求得 终点＝1200
在表格中输入＝终点-1000  错误？

最佳答案

月排行榜 / 总排行榜

zjdh

2013-3-21 10:11

添加一句
  .................
  MsgBox 起点 & 终点
  ActiveWorkbook.Names.Add Name:="终点", RefersToR1C1:=终点
End Sub

跳转到最佳答案楼层

zjdh

添加一句
  .................
  MsgBox 起点 & 终点
  ActiveWorkbook.Names.Add Name:="终点", RefersToR1C1:=终点
End Sub