首頁(yè) 猿問(wèn) 為什么運(yùn)行會(huì)提示 end if...

為什么運(yùn)行會(huì)提示 end if 沒(méi)有 if 塊？

數(shù)據(jù)結(jié)構(gòu)

冉冉說(shuō) 2023-02-20 15:13:19

Private Sub CommandButton1_Click()Dim i As SingleFor i = 1 To 200If Cells(i, 1) = "城市" Then Cells(i, 2).Value = 2End IfNext iEnd Sub

查看完整描述

2 回答

慕娘9325324

TA貢獻(xiàn)1783條經(jīng)驗(yàn) 獲得超4個(gè)贊

呵呵，代碼有個(gè)小錯(cuò)誤
if 條件 then 代碼
如果寫(xiě)在一行，就不用end if了
如果代碼寫(xiě)到下一行，就需要用end if了

反對(duì) 回復(fù) 2023-02-20

阿晨1998

TA貢獻(xiàn)2037條經(jīng)驗(yàn) 獲得超6個(gè)贊

改成：
Private Sub CommandButton1_Click()
Dim i As Single
For i = 1 To 200
If Cells(i, 1) = "城市" Then Cells(i, 2).Value = 2
Next i
End Sub

或者：
Private Sub CommandButton1_Click()
Dim i As Single
For i = 1 To 200
If Cells(i, 1) = "城市" Then
Cells(i, 2).Value = 2
End If
Next i
End Sub