Page 1 of 1

เลือกคอลัมน์โดยไม่ระบุ cell ด้วย VBA code

Posted: Mon Mar 09, 2015 5:45 pm
by wthn
สวัสดีครับ

จะรบกวนช่วยสร้าง code VBA เพื่อจะเลือกคอลัมน์ชื่อ address number ทั้งคอลัมน์ ไม่ว่าคอลัมน์ address number จะไปอยู่ในตำแหน่งไหนก็ตามบน worksheet ครับ

รบกวนด้วยครับ

Re: เลือกคอลัมน์โดยไม่ระบุ cell ด้วย VBA code

Posted: Mon Mar 09, 2015 6:03 pm
by wthn

Code: Select all

Cells.Find(What:="address number", After:=ActiveCell, LookIn:=xlFormulas _
        , LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
ผมใช้ code นี้ในการระบุว่าอยู่ตำแหน่งไหน แต่จะเลือกคอลัมน์นี้ยังไงครับ

Re: เลือกคอลัมน์โดยไม่ระบุ cell ด้วย VBA code

Posted: Mon Mar 09, 2015 6:40 pm
by snasui
:D ตัวอย่างการปรับ Code ครับ

Code: Select all

Cells.Find(What:="address number", After:=ActiveCell, LookIn:=xlFormulas _
        , LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).EntireColumn.Select

Re: เลือกคอลัมน์โดยไม่ระบุ cell ด้วย VBA code

Posted: Tue Mar 10, 2015 9:50 am
by wthn
ขอบคุณมากครับ ได้แบบที่ต้องการเลย