0
If ActiveSheet.Cells(myRow, 3).Value = "" Then
    APCtext = "" & APC = 2
ElseIf ActiveSheet.Cells(myRow, 3).Value = "?" Then
    APCtext = "Unknown" & APC = 3
Else
    APCtext = ActiveSheet.Cells(myRow, 3).Value & APC = 1
End If

これが取得する最初の値は空白でも疑問符でもありませんが、else セクションでこの値を返しません。誰でもこのコードの何が問題なのか指摘できますか?

4

1 に答える 1

0

これを試して:

If ActiveSheet.Cells(myRow, 3).Value = "" Then
    APCtext = ""
    APC = 2
ElseIf ActiveSheet.Cells(myRow, 3).Value = "?" Then
    APCtext = "Unknown"
    APC = 3
Else
    APCtext = ActiveSheet.Cells(myRow, 3).Value
    APC = 1
End If
于 2012-05-28T11:55:22.543 に答える