Page 1 of 1

ใช้ range เช็คค่าในช่องต่างๆอย่างไรครับ

Posted: Fri Sep 06, 2013 9:09 am
by atomx999
ถ้ามีคนเคยถามแล้ว ขอโทษด้วยนะครับ
สมมุติ B1 = 20
B2 =
B3 =
B4 = 30
B5 = 20
ต้องการเขียนคำสั่งเช็คว่า If worksheets("test").range("B?").value <> ช่องว่าง
จะต้องเขียนอย่างไรครับ
ขอบคุณครับ

Re: ใช้ range เช็คค่าในช่องต่างๆอย่างไรครับ

Posted: Fri Sep 06, 2013 9:34 am
by bank9597
atomx999 wrote:ถ้ามีคนเคยถามแล้ว ขอโทษด้วยนะครับ
สมมุติ B1 = 20
B2 =
B3 =
B4 = 30
B5 = 20
ต้องการเขียนคำสั่งเช็คว่า If worksheets("test").range("B?").value <> ช่องว่าง
จะต้องเขียนอย่างไรครับ
ขอบคุณครับ
:D ไม่ค่อยเข้าใจคำถามครับ ลองตามนี้ก่อนครับ

If Sheets("test").Range("B2:B5") <> "" Then

Re: ใช้ range เช็คค่าในช่องต่างๆอย่างไรครับ

Posted: Fri Sep 06, 2013 10:03 pm
by snasui
:D ดูเหมือนจะต้องการ Loop ทีละค่า สามารถเขียนตามด้านล่างได้ครับ

Code: Select all

for each r in range("b2:b5")
    if r <> "" then
        msgbox r.address & " Not Blank"
    end if
next r

Re: ใช้ range เช็คค่าในช่องต่างๆอย่างไรครับ

Posted: Mon Sep 09, 2013 9:27 am
by atomx999
ขอบคุณครับ