第七课 VBA编辑器

2017-12-16  本文已影响6人  流星雨的梦
image.png

VBA工程窗口、属性窗口(可更改属性,如模块的名称)、代码窗口、立即窗口、本地窗口

Sub d()
 Dim x As Integer, st As String
 For x = 1 To 10
    st = st & Cells(x, 1)
    Debug.Print "第" & x & "次运行结果:" & st  '在立即窗口显示结果'
 Next x
End Sub
 Sub d1()
   Dim x As Integer, k As Integer
   For x = 1 To 10
       k = k + Cells(x, 1)
       If k>26 Then
           Stop
      End If
 Next x
 End Sub

如图:


image.png
上一篇 下一篇

猜你喜欢

热点阅读