snasui.com ยินดีต้อนรับ
ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ ระบุ Version ของ Excel
คำแสดงเจตนา
ขอผลแห่งการให้ความรู้นี้ จงกลับไปยังผู้ที่เป็นเจ้าของเดิม แม้ข้าพเจ้าจะไม่รู้จักท่านก็ตาม ขอให้แสงแห่งปัญญาที่ท่านเคยจุดไว้ ได้กลับไปเติมเต็มชีวิตของท่านอีกครั้ง และขอให้เจตนาของข้าพเจ้าเป็นการคืนความดีอย่างสงบ
ฟอรัมถาม-ตอบปัญหาการใช้งาน Macro และ VBA
Forum rules
ไม่อนุญาตให้ใช้ภาษาแชทในการถามและตอบปัญหา ไม่ใช้คำว่า "คับ" หรือ "อ่ะครับ" แทนคำว่า "ครับ" ไม่ใช้คำว่า "เด๋ว" แทนคำว่า "เดี๋ยว" เป็นต้น เนื่องจากเมื่อแปลเป็นภาษาต่างประเทศแล้วจะให้ความหมายผิดไปจากที่ควรจะเป็น
ห้ามถามโดยระบุชื่อผู้ตอบและต้องตั้งชื่อกระทู้ให้สื่อถึงปัญหาที่จะถาม ไม่ตั้งชื่อว่า ช่วยด้วยครับ, มีปัญหามาปรึกษาครับ เป็นต้น
กรุณาอธิบายปัญหาและระบุคำตอบที่ต้องการมาในกระทู้ด้วยเสมอถึงแม้จะอธิบายไว้ในไฟล์แนบแล้วก็ตาม ทั้งนี้เพื่ออำนวยความสะดวกแก่เพื่อนสมาชิกในการค้นหาข้อมูล
กรุณาแนบไฟล์ตัวอย่างพร้อมแสดงคำตอบที่ถูกต้องมาในไฟล์ด้วยเพื่อให้ง่ายต่อการทำความเข้าใจและสะดวกต่อการตอบคำถาม (ขนาดไฟล์ไม่เกิน 500Kb ขนาดภาพไม่เกิน 800*600 Pixel) ไม่แนบเป็น Link มาจากแหล่งอื่นที่อาจจะถูกลบทิ้งไปโดยต้นทางในภายหลัง นอกจากนี้ไม่ควรแนบไฟล์ที่มีข้อมูลสำคัญอันก่อให้เกิดความเสียหายกับตนเองและผู้อื่น
กรณีเป็นคำถามเกี่ยวกับ Programming เช่น VBA, VB.Net, C#, SQL ฯลฯ ต้องลองเขียนมาเองก่อนเสมอ ถามเฉพาะที่ติดปัญหา ระบุ Module, Procedure ที่ติดปัญหาให้ชัดเจน กรุณาโพสต์ Code ให้แสดงเป็น Code คือเปิดด้วย [code] และปิดด้วย [/code] ตัวอย่างเช่น [code]dim r as range[/code] เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)
กรุณาแจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่
Khamtun
Member
Posts: 73 Joined: Sat Dec 17, 2011 11:39 am
#1
Post
by Khamtun » Sat Jan 07, 2012 11:46 am
เรียน ท่านอาจารย์
ผมมีปัญหาในการค้นหาข้อมูล แต่ปัญหาคือ comment ที่ผมแทรกรายละเอียด
ไว้ไม่โชว์ใน Form ที่ใช้ในการค้นหา รบกวนอาจารย์แนะนำ หรือแก้ไขด้วยครับ
ขอแสดงความนับถือ
Attachments
ผ่านบัญชี 2010-2012.xlsx
(270.23 KiB) Downloaded 8 times
snasui
Site Admin
Posts: 31191 Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 2019
Contact:
#2
Post
by snasui » Sat Jan 07, 2012 12:04 pm
ไม่สามารถดึง Comment มาแสดงด้วยสูตรได้ครับ
ให้ทำช่องหมายเหตุไว้ช่องสุดท้ายแล้วค่อยดึงมาแสดงด้วยสูตรเหมือนช่องอื่นแทน ๆ ครับ
Khamtun
Member
Posts: 73 Joined: Sat Dec 17, 2011 11:39 am
#3
Post
by Khamtun » Sat Jan 07, 2012 1:00 pm
ขอบคุณมากครับ อาจารย์
Khamtun
Member
Posts: 73 Joined: Sat Dec 17, 2011 11:39 am
#4
Post
by Khamtun » Sun Jan 08, 2012 3:32 pm
เรียน ท่านอาจารย์
รายละเอียดใน comment มีเยอะครับ แต่ถ้าลองทำตามที่อาจารย์เคย
แนะนำใน บอร์ด ยังทำไม่ได้ยังไม่เข้าใจทั้ง marco และ vba อาจารย์แนะ
นำด้วยครับ
ขอแสดงความนับถือ
Khamtun
Member
Posts: 73 Joined: Sat Dec 17, 2011 11:39 am
#5
Post
by Khamtun » Sun Jan 08, 2012 3:35 pm
Khamtun wrote: เรียน ท่านอาจารย์
รายละเอียดใน comment มีเยอะครับ แต่ถ้าลองทำตามที่อาจารย์เคย
แนะนำใน บอร์ด ยังทำไม่ได้ยังไม่เข้าใจทั้ง marco และ vba อาจารย์แนะ
นำด้วยครับ
ขอแสดงความนับถือ
ผมลืมแนบไฟล์ที่อาจารย์เคยแนะนำกระทู้ ที่ผมต้องการจะทำครับ
Attachments
Test.rar
(105.46 KiB) Downloaded 5 times
snasui
Site Admin
Posts: 31191 Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 2019
Contact:
#6
Post
by snasui » Sun Jan 08, 2012 7:53 pm
ไฟล์ที่แนบมานั้นปัจจุบันปัญหาคืออะไร และต้องการคำตอบเป็นอย่างไรครับ
Khamtun
Member
Posts: 73 Joined: Sat Dec 17, 2011 11:39 am
#7
Post
by Khamtun » Mon Jan 09, 2012 10:10 am
snasui wrote: ไฟล์ที่แนบมานั้นปัจจุบันปัญหาคืออะไร และต้องการคำตอบเป็นอย่างไรครับ
เรียน ท่านอาจารย์
ไฟล์ปัจจุบันที่อาจารย์ถามคือ แบบอย่าง (อาจารย์เคยแนะนำกระทู้ที่ชื่อ ขอสูตรค้นหาและแสดงใน Sheet เดียวกัน) ผมต้องการทำแบบนี้ในการค้นหาในไฟล์ ผ่านบัญชี 2010-2012 ครับ
ขอแสดงความนับถือ
Attachments
ผ่านบัญชี 2010-2012.xlsx
(224.21 KiB) Downloaded 1 time
snasui
Site Admin
Posts: 31191 Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 2019
Contact:
#8
Post
by snasui » Mon Jan 09, 2012 11:07 am
กรณีต้องการค้นหาแบบเดียวกันให้นำข้อมูลใหม่มาเปลี่ยนแทนข้อมูลเดิมแล้ว Save เป็นไฟล์ใหม่ที่จะใช้ต่อไปครับ
Khamtun
Member
Posts: 73 Joined: Sat Dec 17, 2011 11:39 am
#9
Post
by Khamtun » Mon Jan 09, 2012 1:22 pm
เรียน ท่านอาจารย์
รบกวนอาจารย์ช่วยผมด้วยครับ ผมต้องการเปลี่ยนคีย์ค้นหาจาก คอลัมน์ B2 เป็น E2
และการค้นหาไม่ได้ ผมแก้ไขผิดตรงไหน ช่วยด้วยครับ
ขอแสดงความนับถือ
Attachments
ผ่านบัญชี.rar
(120.29 KiB) Downloaded 6 times
snasui
Site Admin
Posts: 31191 Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 2019
Contact:
#10
Post
by snasui » Mon Jan 09, 2012 2:06 pm
Code ที่ชีท Product ลองปรับเป็นตามด้านล่างครับ
Code: Select all
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Range("A1").Address = "$E$2" And Target.Range("A1") <> "" Then
AdvancedFilterData
ElseIf Target.Range("A1").Address = "$E$2" And Target.Range("A1") = "" Then
ShowDataAll
End If
End Sub
ส่วนที่ Module 2 ลองปรับเป็นตามด้านล่างครับ
Code: Select all
Sub AdvancedFilterData()
Range("$A$3:$k$300").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range("$L$2:$L$3"), Unique:=False
End Sub
Khamtun
Member
Posts: 73 Joined: Sat Dec 17, 2011 11:39 am
#11
Post
by Khamtun » Tue Jan 10, 2012 1:20 pm
ขอบคุณมากครับอาจารย์ ทำได้แล้วครับ และผมได้ Share Flie ให้ทุกหน่วยงาน
ดูแต่มีบางเครื่องที่ไม่สามารถค้นหาได้ excle 2003 เปิดการใช้งาน marco ยังไงครับ
ผมทำได้แต่ excle 2007
snasui
Site Admin
Posts: 31191 Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 2019
Contact:
#12
Post
by snasui » Tue Jan 10, 2012 1:27 pm
Khamtun wrote: excle 2003 เปิดการใช้งาน marco ยังไงครับ
เข้าเมนู Tools > Macro > Security > แล้วปรับเป็น Medium หรือ Low หากปรับเป็น Medium ต้องคลิกยอมรับการใช้งาน Macro ทุกครั้งที่เปิดไฟล์ที่มี Macro ครับ
Khamtun
Member
Posts: 73 Joined: Sat Dec 17, 2011 11:39 am
#13
Post
by Khamtun » Tue Jan 10, 2012 1:47 pm
snasui wrote: Khamtun wrote: excle 2003 เปิดการใช้งาน marco ยังไงครับ
เข้าเมนู Tools > Macro > Security > แล้วปรับเป็น Medium หรือ Low หากปรับเป็น Medium ต้องคลิกยอมรับการใช้งาน Macro ทุกครั้งที่เปิดไฟล์ที่มี Macro ครับ
ขอบคุณครับ