華閱文章網
求VBA三個條件選擇的語句
Sub Macro1()
Dim i As Integer
Dim j As Integer
For j = 3 To 12
If j = 3 Or j = 5 Or j = 8 Then
For i = 9 To 13
Call Judg(i, j)
Next i
End If
i = 14
If j = 4 Or j = 6 Or j = 8 Or j = 10 Or j = 12 Then Call Judg(i, j)
i = 15
If j = 4 Or j = 8 Or j = 11 Then Call Judg(i, j)
Next j
End Sub
Sub Judg(i As Integer, j As Integer)
If Trim(Cells(i, j)) = "" Or Trim(Cells(i, j)) = 0 Then
Cells(i, j) = "/"
Else
If Trim(Cells(i, j)) < 0.01 Then Cells(i, j) = "微量"
End If
End Sub
VBA中的WITH 語句用法 及含義
通俗點講with的作用就是簡化代碼，讓代碼簡潔易懂
讓你不需要輸入重復的內容
例如：
With [A1]
.RowHeight = 10
.ColumnWidth = 15
End With
相當于
[A1].RowHeight = 10
[A1].ColumnWidth = 15
省去了輸入很多[A1]
也就是說with中以 . 開頭的就相當于
WITH后的對象 .什么什么什么
