VBA对IF的困惑

时间:2017-12-10 12:06:08

标签: excel vba excel-vba if-statement

可能是简单的故障,但我找不到错误。下面的代码说我的“其他”之一没有“如果”。但是我找不到原因......

请帮助:)

我是否错过了添加import UIKit class CustomCell: UITableViewCell { // Outlets @IBOutlet weak var customCount: UIButton! @IBOutlet weak var customLabel: UILabel! // Call back function var readCount : ((CustomCell)->())? override func awakeFromNib() { super.awakeFromNib() // Initialization code } // Cell button action @IBAction func countTaps(_ sender: UIButton) { if let count = readCount{ count(self) } } override func setSelected(_ selected: Bool, animated: Bool) { super.setSelected(selected, animated: animated) // Configure the view for the selected state } } 或其他问题?

end if

我找不到任何帮助

1 个答案:

答案 0 :(得分:0)

你错过了Next I和一些End Ifs - 这可以编译,但可能不是你想要做的:

Sub In_knapp_Click()
    Dim i As Long
    Dim g As Long
    Dim a As Long
    Dim b As Long
    b = 3
    For a = 1 To 7 Step 1
        If Weekday(Now(), vbMonday) = a Then
            For g = 3 To 12 Step 2
                If g = 11 Then
                    MsgBox "Ingen Ut tid hittades"
                    Exit For
                Else
                    If IsEmpty(Worksheets("Pontevedra").Cells(b, g).Value) Then
                        For i = 2 To 10 Step 2
                            If IsEmpty(Worksheets("Pontevedra").Cells(b, i).Value) Then
                                Worksheets("Pontevedra").Cells(b, i).Value = Now
                                ButtonOneClick = True
                                Exit For
                            Else
                                MsgBox "Fel"
                            End If
                        Next i
                    Else
                        ' ?
                    End If
                    '?
                End If
            Next g
        Else
            b = b + 1
        End If
    Next a
End Sub