:D snasui.com ยินดีต้อนรับ :D
ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย :thup: สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ :arrow: ระบุ Version ของ Excel
:!: โปรดทราบ :!:
  1. กรุณาอ่านกฎการใช้บอร์ด (Forum rules) ในตำแหน่งด้านบนของแต่ละบอร์ด
  2. การสมัครสมาชิก การ Login การกู้คืนรหัสผ่าน
    1. สมัครสมาชิกดูขั้นตอนได้ที่ :arrow: สมัครสมาชิก
    2. Login เข้าระบบโดยคลิกปุ่ม Login ตรงมุมขวาบนของหน้านี้ :roll:
    3. การ Login ผ่าน Facebook ดูวิธีที่ :arrow: Login ผ่าน Facebook
    4. ลืมรหัสผ่านสามารถรับรหัสใหม่ได้ที่ :arrow: Reset รหัสผ่าน
  3. มีปัญหาการใช้งาน แจ้งผู้ดูแลระบบได้ที่ :arrow: ติดต่อผู้ดูแลระบบ
  4. กำหนดการตั้งค่าส่วนตัว เช่นตั้งค่าภาษาเป็นไทยหรืออังกฤษดูได้ที่ :arrow: ตั้งค่าส่วนตัว
  5. การตั้งและตอบกระทู้ดูได้ที่ :arrow: วิธีการตั้งและตอบกระทู้
  6. การจัดรูปแบบตัวอักษรด้วย bbcode ในช่องแสดงความคิดเห็นดูได้ที่ :arrow: จัดรูปแบบตัวอักษร
  7. กำหนดขนาดตัวอักษรใน Browser ดูได้ที่ :arrow: กำหนดขนาดตัวอักษรใน Browser

VBA ดึงข้อมูลตามวันที่ ต้องการให้ดึงเลขที่เอกสารด้วยค่ะ

Forum rules
  1. ไม่อนุญาตให้ใช้ภาษาแชทในการถามและตอบปัญหา ไม่ใช้คำว่า "คับ" หรือ "อ่ะครับ" แทนคำว่า "ครับ" ไม่ใช้คำว่า "เด๋ว" แทนคำว่า "เดี๋ยว" เป็นต้น เนื่องจากเมื่อแปลเป็นภาษาต่างประเทศแล้วจะให้ความหมายผิดไปจากที่ควรจะเป็น
  2. ห้ามถามโดยระบุชื่อผู้ตอบและต้องตั้งชื่อกระทู้ให้สื่อถึงปัญหาที่จะถาม ไม่ตั้งชื่อว่า ช่วยด้วยครับ, มีปัญหามาปรึกษาครับ เป็นต้น
  3. กรุณาอธิบายปัญหาและระบุคำตอบที่ต้องการมาในกระทู้ด้วยเสมอถึงแม้จะอธิบายไว้ในไฟล์แนบแล้วก็ตาม ทั้งนี้เพื่ออำนวยความสะดวกแก่เพื่อนสมาชิกในการค้นหาข้อมูล
  4. กรุณาแนบไฟล์ตัวอย่างพร้อมแสดงคำตอบที่ถูกต้องมาในไฟล์ด้วยเพื่อให้ง่ายต่อการทำความเข้าใจและสะดวกต่อการตอบคำถาม (ขนาดไฟล์ไม่เกิน 500Kb ขนาดภาพไม่เกิน 800*600 Pixel) ไม่แนบเป็น Link มาจากแหล่งอื่นที่อาจจะถูกลบทิ้งไปโดยต้นทางในภายหลัง นอกจากนี้ไม่ควรแนบไฟล์ที่มีข้อมูลสำคัญอันก่อให้เกิดความเสียหายกับตนเองและผู้อื่น
  5. กรณีเป็นคำถามเกี่ยวกับ Programming เช่น VBA, VB.Net, C#, SQL ฯลฯ ต้องลองเขียนมาเองก่อนเสมอ ถามเฉพาะที่ติดปัญหา ระบุ Module, Procedure ที่ติดปัญหาให้ชัดเจน กรุณาโพสต์ Code ให้แสดงเป็น Code คือเปิดด้วย [code] และปิดด้วย [/code] ตัวอย่างเช่น [code]dim r as range[/code] เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)
  6. กรุณาแจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่

Post a reply


This question is a means of preventing automated form submissions by spambots.
Smilies
:D :thup: :cp: :flw: :rz: :sg: :tt: :) ;) :( :o :shock: :? 8-) :lol: :x :P :oops: :cry: :evil: :twisted: :roll: :!: :?: :idea: :arrow: :ard: :arl: :aru: :| :mrgreen: :geek: :ugeek:
BBCode is ON
[img] is ON
[url] is ON
Smilies are ON
Topic review
   

Expand view Topic review: VBA ดึงข้อมูลตามวันที่ ต้องการให้ดึงเลขที่เอกสารด้วยค่ะ

Re: VBA ดึงข้อมูลตามวันที่ ต้องการให้ดึงเลขที่เอกสารด้วยค่ะ

#26

by suka » Wed Oct 07, 2015 2:44 pm

เข้าใจถูกต้องค่ะ ได้ตรงตามต้องการแล้วค่ะ ขอบคุณคุณ DhitiBank มากเลยค่ะ

Re: VBA ดึงข้อมูลตามวันที่ ต้องการให้ดึงเลขที่เอกสารด้วยค่ะ

#25

by DhitiBank » Wed Oct 07, 2015 2:09 pm

ไม่แน่ใจว่าเข้าใจถูกไหม ที่ D4 ลองคีย์แบบนี้ครับ
=">="&(IF($E$5<>"",$E$5,"")&IF($F$5<>"","/"&$F$5,"")&IF($G$5<>"","/"&$G$5,""))+0
Enter

Re: VBA ดึงข้อมูลตามวันที่ ต้องการให้ดึงเลขที่เอกสารด้วยค่ะ

#24

by suka » Wed Oct 07, 2015 1:38 pm

ขอรบกวนช่วยปรับสูตรค่ะ
ตัวอย่างไฟล์แนบชีท Report เซลล์ D4 สูตร

Code: Select all

=">="&$F$4+0
ชีท Report เซลล์ F4 สูตร

Code: Select all

=IF($E$5<>"",$E$5,"")&IF($F$5<>"","/"&$F$5,"")&IF($G$5<>"","/"&$G$5,"")
ต้องการนำสูตรในเซลล์ F4 มาใส่ในสูตรเซลล์ D4 แทนทีตรงระบายสีแดงไว้ =">="&$F$4+0 ไม่ทราบว่าควรปรับสูตรที่เซลล์ D4 อย่างไรคะ
Attachments
5.VBA REPORT_Code.xlsm
(32.06 KiB) Downloaded 19 times

Re: VBA ดึงข้อมูลตามวันที่ ต้องการให้ดึงเลขที่เอกสารด้วยค่ะ

#23

by suka » Mon Sep 28, 2015 8:39 pm

:thup: ขอบคุณอาจารย์มากๆเลยค่ะ ปัญหายากๆ อาจารย์แก้ให้ดูเป็นสิ่งง่ายๆเลยค่ะ ได้ตรงตามต้องการทุกเงื่อนไขแล้วค่ะ

Re: VBA ดึงข้อมูลตามวันที่ ต้องการให้ดึงเลขที่เอกสารด้วยค่ะ

#22

by snasui » Mon Sep 28, 2015 8:22 pm

:D ปรับ Code เป็นแบบเดิมแล้วเปลี่ยนค่าใน B4:C4 เป็นสูตรตามด้านล่างครับ

B4

Code: Select all

=">="&"18/9/2015"+0
C4

Code: Select all

="<="&"21/9/2015"+0

Re: VBA ดึงข้อมูลตามวันที่ ต้องการให้ดึงเลขที่เอกสารด้วยค่ะ

#21

by suka » Mon Sep 28, 2015 8:10 pm

ขอบคุณค่ะคุณ niwat2811 ยังไม่ได้ค่ะ

ความต้องการยังคงเงื่อนไข Code เดิมค่ะ เซลล์ A3:G4 เซลล์มีใดมีค่าเข้าเงื่อนไขให้ดึงข้อมูลมาค่ะ
ยังคง Code ด้านล่างนี้ไว้ค่ะ

Code: Select all

Sheets("Report").Range("A10:Q1000").ClearContents
Sheets("Database").Columns("A:Q").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("A3:F4"), CopyToRange:=Range("A10"), Unique:=False
สิ่งที่ต้องการเพิ่มคือเลือกวันใดๆที่ระบุที่เซลล์ B4 ถึงวันใดๆที่ระบุที่เซลล์ C4 ตัวอย่างตามไฟล์แนบชีท Report ค่ะ

ยังติดปัญหาตามรูปแนบค่ะ
Attachments
4.VBA REPORT.xlsm
(30.89 KiB) Downloaded 16 times
start (Small).JPG
start (Small).JPG (28.53 KiB) Viewed 158 times

Re: VBA ดึงข้อมูลตามวันที่ ต้องการให้ดึงเลขที่เอกสารด้วยค่ะ

#20

by niwat2811 » Mon Sep 28, 2015 5:12 pm

ลองแบบนี้ว่าใช้ได้ตามต้องการไหมครับ

Code: Select all

Sub InvNo()
Dim lngStart As Long, lngEnd As Long, lr As Long
    If Range("B4") = "" Or Range("C4") = "" Then
        Exit Sub
        Else
            Range("A10:Q1000").ClearContents
            lngStart = Range("B4").Value
            lngEnd = Range("C4").Value
            With Sheets("Database")
            lr = .Range("A" & Rows.Count).End(xlUp).Row
                .Range("A1:A" & lr).AutoFilter field:=1, _
                    Criteria1:=">=" & lngStart, _
                    Operator:=xlAnd, _
                    Criteria2:="<=" & lngEnd
                .Range("A1:Q" & lr).SpecialCells(xlCellTypeVisible).Copy
                Sheets("Report").Range("A10").PasteSpecial
                .AutoFilterMode = False
                .Application.CutCopyMode = False
            End With
    End If
End Sub

Re: VBA ดึงข้อมูลตามวันที่ ต้องการให้ดึงเลขที่เอกสารด้วยค่ะ

#19

by suka » Mon Sep 28, 2015 2:50 pm

ขอเรียนถามเพิ่มเงื่อนไข การดึงข้อมูลตามวันที่ ที่ระบุวันเริ่มต้นที่เซลล์ B4 จนถึงวันที่ตามเซลล์ C4
ตัวอย่างไฟล์แนบชีท Report B4:C4 ใส่วัน 18/9/2015 - 21/9/2015 ค่าที่ต้องการที่เซลล์ A10:Q27 ค่ะ

Code Run แล้วฟ้องตามรูปค่ะ Code ด้านล่างนี้ควรปรับอย่างไรคะ

Code: Select all

Sub InvNo()
    Set i = (Sheets("Report").Range("B4") = "Start" + .Range("C4") = "End")
    If Sheets("Report").Range(i) = "" Then Exit Sub
    Sheets("Report").Range("A10:Q1000").ClearContents
    Sheets("Database").Columns("A:Q").AdvancedFilter Action:=xlFilterCopy, _
    CriteriaRange:=Range("A3:F4"), CopyToRange:=Range("A10"), Unique:=False
End Sub
Attachments
4.VBA REPORT_Code.xlsm
(30.89 KiB) Downloaded 35 times
start.JPG
start.JPG (33.03 KiB) Viewed 464 times

Re: VBA ดึงข้อมูลตามวันที่ ต้องการให้ดึงเลขที่เอกสารด้วยค่ะ

#18

by suka » Thu Sep 24, 2015 7:27 pm

:thup: ขอบพระคุณอาจารย์มากๆเลยค่ะ ปรับค่าเดือนและปีที่ชีท Database แล้วใช้ Code ด้านล่างนี้ สามารถดึงข้อมูลมาได้ตรงตามต้องการทุกเงื่อนไขแล้วค่ะ

Code: Select all

Sub InvNo()
    Sheets("Report").Range("A10:Q1000").ClearContents
    Sheets("Database").Columns("A:Q").AdvancedFilter Action:=xlFilterCopy, _
    CriteriaRange:=Range("A3:F4"), CopyToRange:=Range("A10"), Unique:=False
End Sub

Re: VBA ดึงข้อมูลตามวันที่ ต้องการให้ดึงเลขที่เอกสารด้วยค่ะ

#17

by snasui » Thu Sep 24, 2015 6:41 pm

:D ผมคิดว่ากำลังจะเขียน Code ให้ซับซ้อนโดยไม่จำเป็น เพื่อให้ง่าย ปรับ Database ให้แสดงเดือน และ ปี ออกมาเลย Code ทั้งหมดควรจะเหลือแค่ Code เดียวเท่านั้นและทำงานได้ทุกเงื่อนไข ไม่จำเป็นต้องแยกออกเป็นหลาย Code เช่นที่ถามมานี้

ในชีท Database คอลัมน์ P หาค่าเดือนจากคอลัมน์ A เช่น

P2 เขียนสูตรเป็น

=Month(A2)

คิดว่าคอลัมน์ Q คงจะหาค่าปีออกมาได้เองโดยใช้ฟังก์ชั่น Year

ในชีท Report เซลล์ E4:F5 ปรับกลับมาให้เหมือนเดิม คือมีหัว Field ให้เรียบร้อย จากนั้นปรับ Code เหลือ Code เดียว

Re: VBA ดึงข้อมูลตามวันที่ ต้องการให้ดึงเลขที่เอกสารด้วยค่ะ

#16

by suka » Thu Sep 24, 2015 6:27 pm

อาจารย์คะ ลองปรับ Code แบบนี้ดึงได้แต่ Code MMM ข้อมูลของเดือนมา ยังไม่ได้ที่ต้องการค่ะ

Code: Select all

Sub MainCode()
    Application.ScreenUpdating = False
    With Sheets("Report")
        If .Range("A4") <> "" Then
            Call InvNo
        End If
        If .Range("B4") <> "" Then
            Call DD
        End If
        If .Range("C4") <> "" Then
            Call SupplierID
        End If
        If .Range("E4") <> "" Then
            Call MMM
        End If
        If .Range("F4") <> "" Then
            Call YY
        End If
    End With
    Application.ScreenUpdating = True
End Sub

Re: VBA ดึงข้อมูลตามวันที่ ต้องการให้ดึงเลขที่เอกสารด้วยค่ะ

#15

by snasui » Thu Sep 24, 2015 6:01 pm

:D เขียนมาเองก่อน ติดแล้วค่อยถามกัน

การปรับ Code ไม่จำเพาะว่าปรับเฉพาะที่ MainCode หรือที่หนึ่งที่ใด เพราะสามารถที่จะปรับที่ใดก็ได้ทั้งนั้น ขอทำงานได้ตามต้องการครับ

Re: VBA ดึงข้อมูลตามวันที่ ต้องการให้ดึงเลขที่เอกสารด้วยค่ะ

#14

by suka » Thu Sep 24, 2015 4:43 pm

snasui wrote::D ตัวอย่างการปรับ Code ครับ

Code: Select all

Sub SupplierID()
If Sheets("Report").Range("c4") = "" Then Exit Sub
Sheets("Report").Range("A10:Q1000").ClearContents
Sheets("Database").Columns("A:Q").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("C3:C4"), CopyToRange:=Range("A10"), Unique:=False
End Sub
ขอบคุณค่ะอาจารย์ ปรับครบทุก Code แล้วค่ะ

Code: Select all

Sub MainCode()
    Application.ScreenUpdating = False
        Call InvNo
        Call DD
        Call SupplierID
        Call MMM
        Call YY
    Application.ScreenUpdating = True
End Sub
อาจารย์คะ ต้องการปรับ MainCode เมื่อ Run Code แล้วให้ Code MMM และ Code YY
ใช้ร่วมกับ Code InvNo , Code DD , Code SupplierID โค๊ดใดๆที่ตรงกับเซลล์ A3:C4 ชีท Report ไม่เป็นค่าว่างให้ดึงข้อมูลที่ค่าในชีท Database ตรงกันมาวางที่ชีท Report เซลล์ A10:Q1000 ค่ะ

MainCode ตัวอย่างด้านบนควรปรับอย่างไรคะ
Attachments
VBA REPORT.2.xlsm
(33.87 KiB) Downloaded 20 times

Re: VBA ดึงข้อมูลตามวันที่ ต้องการให้ดึงเลขที่เอกสารด้วยค่ะ

#13

by snasui » Thu Sep 24, 2015 2:41 pm

:D ตัวอย่างการปรับ Code ครับ

Code: Select all

Sub SupplierID()
    If Sheets("Report").Range("c4") = "" Then Exit Sub
    Sheets("Report").Range("A10:Q1000").ClearContents
    Sheets("Database").Columns("A:Q").AdvancedFilter Action:=xlFilterCopy, _
    CriteriaRange:=Range("C3:C4"), CopyToRange:=Range("A10"), Unique:=False
End Sub

Re: VBA ดึงข้อมูลตามวันที่ ต้องการให้ดึงเลขที่เอกสารด้วยค่ะ

#12

by suka » Thu Sep 24, 2015 11:24 am

snasui wrote: :D จะ True หรือ False ไม่ใช่ปัญหาครับ ปัญหาคือมีเดือน ก.ย. อยู่หรือไม่เท่านั้นครับ
:thup: ขอบคุณค่ะอาจารย์ เห็นเป็น False ยังไม่ทันได้ลอง Run Code ค่ะ Run แล้วได้ตรงตามต้อการค่ะ

ขออนุญาตถามต่อค่ะ
ต้องการปรับ MainCode ตัวอย่างไฟล์แนบ ถ้าเซลล์ A4:D4 เซลล์ใดมีค่าก็ให้ดึงข้อมูลตามเงื่อนไขมา หากเซลล์ใดว่างให้ข้าม และที่เซลล์ E4:F4 มีค่าให้ดึงข้อมูลตามเงื่อนไขเซลล์ E4:F4 มาด้วย ถ้าเซลล์ E4:F4 ว่างให้ข้ามค่ะ

ค่าที่ต้องการที่เซลล์ C4 ใส่ ส004 และเซลล์ E4:F4 ใส่ ก.ย.58 ตัวอย่างที่ต้องการตามเซลล์ A10:Q15 ค่ะ

Code ด้านล่างนี้ควรปรับอย่างไรดีคะ

Code: Select all

Sub MainCode()
    Application.ScreenUpdating = False
        Call InvNo
        Call DD
        Call SupplierID
        Call MMM
        Call YY
    Application.ScreenUpdating = True
End Sub
Attachments
VBA REPORT.xlsm
(95.86 KiB) Downloaded 22 times

Re: VBA ดึงข้อมูลตามวันที่ ต้องการให้ดึงเลขที่เอกสารด้วยค่ะ

#11

by snasui » Wed Sep 23, 2015 9:49 pm

suka wrote:ใช้ไม่ได้ค่ะค่าเป็น FALSE ไม่ใช่ TRUE ค่ะ ควรปรับอย่างไรดีคะ
:D จะ True หรือ False ไม่ใช่ปัญหาครับ ปัญหาคือมีเดือน ก.ย. อยู่หรือไม่เท่านั้นครับ

Re: VBA ดึงข้อมูลตามวันที่ ต้องการให้ดึงเลขที่เอกสารด้วยค่ะ

#10

by suka » Wed Sep 23, 2015 8:19 pm

snasui wrote::D ดึงมาไม่ได้ก็เป็นปกติแล้ว ถ้าดึงมาได้จึงจะผิดปกติครับ

การใช้ Advanced Filter โดยกำหนด Field ไว้เช่นนั้นจะต้องคีย์ค่าตรงตัวลงไปจึงจะ Filter มาได้

ตามที่อธิบายมานั้นหากจะใช้ Advanced Filter จะต้องใช้วิธีที่ซับซ้อนไปกว่าเดิม ให้ทำตามด้านล่างแล้วสังเกตดูผลครับ

ที่ชีท Report
  1. ลบ E3:F3 ทิ้งไป
  2. ที่ E4 คีย์
    =TEXT(Database!P2,"mmm")="ส.ค."
  3. ที่ F4 คีย์
    =TEXT(Database!Q2,"bb")+0=58
  4. Run Sub MMM
อาจารย์คะ พอมีวิธีอื่นที่ไม่ซับซ้อนไหมคะ
ที่ E4 คีย์
=TEXT(Database!P2,"mmm")="ก.ย."
ใช้ไม่ได้ค่ะค่าเป็น FALSE ไม่ใช่ TRUE ค่ะ ควรปรับอย่างไรดีคะ

Re: VBA ดึงข้อมูลตามวันที่ ต้องการให้ดึงเลขที่เอกสารด้วยค่ะ

#9

by suka » Wed Sep 23, 2015 7:48 pm

:thup: ขอบคุณอาจารย์มากค่ะ Code Run ได้ตรงตามต้องการแล้วค่ะ

Re: VBA ดึงข้อมูลตามวันที่ ต้องการให้ดึงเลขที่เอกสารด้วยค่ะ

#8

by snasui » Wed Sep 23, 2015 7:42 pm

:D ดึงมาไม่ได้ก็เป็นปกติแล้ว ถ้าดึงมาได้จึงจะผิดปกติครับ

การใช้ Advanced Filter โดยกำหนด Field ไว้เช่นนั้นจะต้องคีย์ค่าตรงตัวลงไปจึงจะ Filter มาได้

ตามที่อธิบายมานั้นหากจะใช้ Advanced Filter จะต้องใช้วิธีที่ซับซ้อนไปกว่าเดิม ให้ทำตามด้านล่างแล้วสังเกตดูผลครับ

ที่ชีท Report
  1. ลบ E3:F3 ทิ้งไป
  2. ที่ E4 คีย์
    =TEXT(Database!P2,"mmm")="ส.ค."
  3. ที่ F4 คีย์
    =TEXT(Database!Q2,"bb")+0=58
  4. Run Sub MMM

Re: VBA ดึงข้อมูลตามวันที่ ต้องการให้ดึงเลขที่เอกสารด้วยค่ะ

#7

by suka » Wed Sep 23, 2015 7:28 pm

อาจารย์คะไม่ได้ติดที่ Code ค่ะ

ติดปัญหาที่ชีท Database คอลัมน์ P:Q ค่ะ
ตัวอย่างไฟล์แนบขอวิธีปรับค่าในเซลล์ P2:Q2 จาก 31/8/2015 P2 เป็น ส.ค. และ Q2 เป็น 58 ค่ะ

ปรับเพื่อให้ Code สามารถดึงข้อมูลมาทั้งเดือน ที่ชีท Report ตามเงือนไขค่าในเซลล์ E3:E4 เลือก ส.ค.ไม่สามารถดึงข้อมูลเดือน ส.ค.มาได้หากใส่ค่าที่เซลล์ E3:E4 เป็น 31/8/2015 ก็ดึงข้อมูลมาได้เฉพาะวันที่ 31/8/2015 ค่ะ

ความต้องการคือต้องการดึงข้อมูลของเดือน ส.ค.58 มาทั้งหมดค่ะ

Top