เพื่อมุ่งให้เกิดคุณภาพจากการอบรมสูงสุด Excel Expert Training ให้การอบรม Excel กลุ่มเล็กๆ ไม่เกิน 6 คนทุกคนสามารถเรียนรู้ Excel อย่างใกล้ชิด จะมาคนเดียวหรือมาเป็นกลุ่มแล้วนัดวันอบรมแบบส่วนตัวก็ได้ ผู้เข้าอบรมทุกคนสามารถติดตามเนื้อหาที่อบรมได้อย่างชัดเจนจากจอภาพด้านหน้าของตัวเอง
Results 1 to 9 of 9

Thread: ต้องการเขียน Macro เพื่อการกรองข้อมูล

  1. #1
    yod001
    Guest

    ต้องการเขียน Macro เพื่อการกรองข้อมูล

    เมื่อเรามีข้อมูล (data) ต้องการจะกรองข้อมูล แล้วทำการแยกเป็น Sheet ทำอย่างไรจะสามารถ ใช้ Marco โดยทำการกดเพียงครั้งเดียวสามารถ กรองได้ทั้งหมด ครับ:hurray:

  2. #2
    excel_fever
    Guest
    ผมว่าชื่อไฟล์แนบผิดกฏนะครับ

  3. #3
    yod001
    Guest
    เป็นมือใหม่ครับ ขอโทษด้วยครับ:nonod:

  4. #4
    excel_fever
    Guest
    ผมมีคำตอบอีกแบบให้พิจารณาครับ
    แต่จะรอจนกว่าจะทำให้ถูกกฏซะก่อน เพราะผมก็ไม่อยากได้ใบเหลืองเหมือนกัน

  5. #5
    สมเกียรติ
    Guest
    ขอให้ตั้งชื่อแฟ้มที่ต้องการแนบให้ตรงกับปัญหา
    (อย่าตั้งชื่อแฟ้มว่า Book, Data, Sample, Problem, Test, Question, Ex, ตัวอย่าง, คำถาม, สอบถาม, ปัญหา หรือใช้ชื่อแฟ้มที่เห็นแล้วไม่รู้ว่าเป็นแฟ้มถามเรื่องใด)

  6. #6
    yod001
    Guest
    ขอบคุณ ครับ ผมได้ทำการตั้ง ชื่อ File ใหม่แล้วครับ

  7. #7
    excel_fever
    Guest
    ผมก็อ่อนหัดเรื่องVBAครับ
    ผมลองใช้ Macro บันทึกการทำงาน ปรากฏว่าใช้เวลาน้อยกว่าวิธีที่ผมบอกไปเมื่อวาน
    นี่คือ Code ที่บันทึกได้ครับ
    Sub Filter()
    '
    ' Filter Macro
    ' Macro recorded 19/8/2009 by PC-07
    '
    '
    Range("C1:F1").Select
    Selection.AutoFilter
    Selection.AutoFilter Field:=4, Criteria1:="Area 1"
    Range("C2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range("C2:E14").Select
    Selection.Copy
    Sheets("A").Select
    Range("B4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    Sheets("Data").Select
    Selection.AutoFilter Field:=4, Criteria1:="Area 2"
    Range("C1").Select
    Selection.End(xlDown).Select
    Selection.End(xlUp).Select
    Range("C4").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range("C4:E15").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("B").Select
    Range("B4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    Sheets("Data").Select
    Selection.AutoFilter Field:=4, Criteria1:="Area 3"
    Range("C6").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range("C6:E18").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("C").Select
    Range("B4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    Sheets("Data").Select
    Selection.AutoFilter Field:=4, Criteria1:="Area 4"
    Range("C8").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range("C8:E17").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("D").Select
    Range("B4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    Range("G8").Select
    Sheets("Data").Select
    Application.CutCopyMode = False
    Selection.AutoFilter
    Range("G12").Select
    End Sub

  8. #8
    vajra
    Guest
    ตัวอย่าง การ Filter แล้วย้ายข้อมูลไปใว้ใน new sheet
    Data Subtraction II.xls

  9. #9
    yod001
    Guest
    ขอบคุณมากๆๆครับ สำหรับการช่วยเหลือครับ
    สามารถนำไปประยุกต์ การใช้งานได้ครับ :great:

Similar Threads

  1. ต้องการเขียน VBA เซตค่า Macro Security
    By อนุชาติ อาจคำไพ in forum Excel Expert Forum Library 2012 - 2007
    Replies: 5
    Last Post: 23 Oct 2009, 07:48
  2. ต้องการเขียน vba ซ่อน toolbar
    By nutthed in forum Excel Expert Forum Library 2012 - 2007
    Replies: 2
    Last Post: 9 Jun 2009, 17:32
  3. ต้องการเขียน Macro ให้ Unprotect
    By kobchoal in forum Excel Expert Forum Library 2012 - 2007
    Replies: 1
    Last Post: 25 Feb 2008, 12:41
  4. Replies: 1
    Last Post: 20 Jul 2007, 10:24
  5. ต้องการเขียน Code ควบคุมปุ่มกดครับ
    By boorapa in forum Excel Expert Forum Library 2012 - 2007
    Replies: 2
    Last Post: 15 Jul 2007, 21:59

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •