รบกวนสอบถาม code vba "If and"

[natthaporn]

ดิฉันได้เขียน code ที่มี If และ And พยายามปรับ code อย่างไรก็ยัง error อยู่คะ โดย code ดังนี้คะ

Code: Select all

Private Sub CommandButton3_Click()
If ActiveSheet.Range("F4") = Sheets("A").Range("B3") And
ActiveSheet.Range("F4") = Sheets("B").Range("B3") Then
 
ติด error อยู่ 2 บรรทัดบนนี้คะ

    ActiveSheet.Range("B6:F20") = "=Formula"
        
Else
MsgBox "Please check data."
End If
    

End Sub

ความหมายก็คือ ถ้าข้อมูล (ในที่นี้แสดงเป็นเดือน เช่น Jan, Feb, Mar) ที่ F4 ของ sheet นี้ ตรงกับข้อมูลที่อยู่ใน sheet A cell B3 และ sheet B cell B3 ให้ ที่ B6:F20 ของ sheet นี้ เป็นสูตร Formula
ดิฉ้นลอง run ด้วยเงื่อนไขเดียว(บรรทัดแรก) สามารถ run ได้ แต่พอเพิ่มเงื่อนไขที่ 2 (บรรทัดที่2) โดยใช้ And มาเชื่อม ปรากฎว่าติด error ดิฉันลองปรับอยู่นานมากแล้วแต่ก็ไม่ได้ จึงต้องขอรบกวนท่านผู้รู้แนะนำด้วยคะ

ขอบคุณคะ

[snasui]

จาก Code

Code: Select all

If ActiveSheet.Range("F4") = Sheets("A").Range("B3") And
ActiveSheet.Range("F4") = Sheets("B").Range("B3") Then

ต้องอยู่บรรทัดเดียวกัน หากอยู่คนละบรรทัดให้ใช้เครื่องหมาย_มาช่วย เพื่อบอกว่า 2 บรรทัดนั้นคือ Statement เดียวกันครับ

Code: Select all

If ActiveSheet.Range("F4") = Sheets("A").Range("B3") And _
ActiveSheet.Range("F4") = Sheets("B").Range("B3") Then

[natthaporn]

run ได้แล้วคะอาจารย์ ขอบคุณสำหรับคำแนะนำคะ