รบกวนสอบถาม code vba "If and"
Posted: Mon May 20, 2013 12:58 pm
ดิฉันได้เขียน code ที่มี If และ And พยายามปรับ code อย่างไรก็ยัง error อยู่คะ โดย code ดังนี้คะ
ความหมายก็คือ ถ้าข้อมูล (ในที่นี้แสดงเป็นเดือน เช่น Jan, Feb, Mar) ที่ F4 ของ sheet นี้ ตรงกับข้อมูลที่อยู่ใน sheet A cell B3 และ sheet B cell B3 ให้ ที่ B6:F20 ของ sheet นี้ เป็นสูตร Formula
ดิฉ้นลอง run ด้วยเงื่อนไขเดียว(บรรทัดแรก) สามารถ run ได้ แต่พอเพิ่มเงื่อนไขที่ 2 (บรรทัดที่2) โดยใช้ And มาเชื่อม ปรากฎว่าติด error ดิฉันลองปรับอยู่นานมากแล้วแต่ก็ไม่ได้ จึงต้องขอรบกวนท่านผู้รู้แนะนำด้วยคะ
ขอบคุณคะ
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
ดิฉ้นลอง run ด้วยเงื่อนไขเดียว(บรรทัดแรก) สามารถ run ได้ แต่พอเพิ่มเงื่อนไขที่ 2 (บรรทัดที่2) โดยใช้ And มาเชื่อม ปรากฎว่าติด error ดิฉันลองปรับอยู่นานมากแล้วแต่ก็ไม่ได้ จึงต้องขอรบกวนท่านผู้รู้แนะนำด้วยคะ
ขอบคุณคะ
จาก Code