: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 ที่ซ่อน 000000 ไม่ต้องพิมรหัสในคอลัม C ครับ

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 ที่ซ่อน 000000 ไม่ต้องพิมรหัสในคอลัม C ครับ

Re: ติดปัญหา vba ที่ซ่อน 000000 ไม่ต้องพิมรหัสในคอลัม C ครับ

#7

by nutpochan » Sun Nov 23, 2014 2:09 am

สูตรเคลียร fiter ขอฝากครับ

If ActiveSheet.AutoFilterMode Then ActiveSheet.ShowAllData

Re: ติดปัญหา vba ที่ซ่อน 000000 ไม่ต้องพิมรหัสในคอลัม C ครับ

#6

by nutpochan » Sun Nov 23, 2014 2:05 am

Code: Select all

   ActiveSheet.Range("$A$1:$J$407").AutoFilter Field:=10, Criteria1:="<>#N/A", Operator:=xlAnd
ขอฝากโค๊ดในเว็บไว้ดูเผอลืมครับ

Re: ติดปัญหา vba ที่ซ่อน 000000 ไม่ต้องพิมรหัสในคอลัม C ครับ

#5

by nutpochan » Wed May 07, 2014 10:34 pm

ใช้การได้แล้วครับขอบคุณครับ

Re: ติดปัญหา vba ที่ซ่อน 000000 ไม่ต้องพิมรหัสในคอลัม C ครับ

#4

by snasui » Wed May 07, 2014 8:20 pm

:D ลองปรับเป็นด้านล่างครับ

Code: Select all

Sub Macro3()
    ActiveSheet.Range("$A$1:$D$555").AutoFilter Field:=3, Criteria1:= _
        "<>*0000000*", Operator:=xlAnd
End Sub

Re: ติดปัญหา vba ที่ซ่อน 000000 ไม่ต้องพิมรหัสในคอลัม C ครับ

#3

by nutpochan » Wed May 07, 2014 7:58 pm

bank9597 เข้าใจผิด ข้อมูลรหัสตามนั้นครับแต่ในแต่ละวัน รหัสมันไม่ได้เหมือนตามนั้นทุกกกวัน อาจมีรหัสเพิ่ม หรือ ลดลง หรือมีรหัสใหม่เพิ่มเข้ามา รหัส XXXX ทั้ง 4 ทั้ง 4 ตัวนั้นมันไม่ได้ ต้องรหัสนี้ทุกๆวัน
แต่ filter รหัส 000000 มันจะมีมาทุกวัน แล้วผมไม่ต้องการเลยจะให้มันซ่อน มันจะได้แสดงรหัสที่ไม่แน่นอนทุกวัน ผมเลยจะถามว่า มีวิธีเลือก รหัส 000000 ให้ซ่อนไปไหม แค่ให้ 0000000ซ่อนไปเท่านั้น

Re: ติดปัญหา vba ที่ซ่อน 000000 ไม่ต้องพิมรหัสในคอลัม C ครับ

#2

by bank9597 » Wed May 07, 2014 1:44 pm

:D ถ้าแค่ต้องการฟิลเตอร์ ก็ใช้โค๊ดตามนี้ได้ครับ บันทึกมาโครได้เลย

Code: Select all

Sub Macro1()
'
' Macro1 Macro
'

'
    ActiveSheet.Range("$A$1:$D$555").AutoFilter Field:=3, Criteria1:=Array( _
        "0773", "0776", "0778", "0898", "0912", "0921", "0945", "0997", "1015", "1076", "1101", _
        "1105", "1111", "1155", "1158", "1161", "1163", "1166", "1167", "1168", "1171", "1351", _
        "1379", "1555", "1607", "1626", "1678", "1749", "1798", "1799", "1889", "1938", "2099", _
        "2109", "2166", "2222", "2239", "2266", "2417", "2569", "2588", "2649", "2650", "2682", _
        "2754", "2782", "2827", "2866", "2867", "2920", "2922", "2999", "3010", "3039", "3058", _
        "3209", "3253", "3266", "3299", "3333", "3379", "3401", "3449", "3516", "3517", "3548", _
        "3565", "3659", "3679", "3682", "3686", "3769", "3804", "3810", "3850", "3880", "3899", _
        "3900", "3990", "4029", "4059", "4095", "4109", "4135", "4137", "4187", "4189", "4229", _
        "4296", "4301", "4423", "4438", "4471", "4491", "4539", "4541", "4542", "4543", "4614", _
        "4645", "4646", "4653", "4695", "4765", "4769", "4789", "4832", "4855", "4856", "4911", _
        "4915", "4927", "4948", "4965", "4988", "4989", "6396", "6418", "6419", "6434", "6462", _
        "6491", "6558", "6560", "6661", "6670", "6692", "6738", "6740", "6829", "6877", "6920", _
        "6927", "6928", "6942", "6973", "6976", "6977", "7047", "7123", "7192", "7195", "7206", _
        "7306", "7348", "7349", "7360", "7457", "7470", "7487", "7493", "7497", "7542", "7619", _
        "7752", "7766", "7816", "7817", "7819", "7840", "7843", "7857", "7931", "8017", "8018", _
        "8062", "8069", "8083", "8093", "8095", "8098", "8151", "8162", "8216", "8282", "8409", _
        "8461", "8468", "8490", "8570", "8584", "8597", "8598", "8613", "8710", "8792", "8795", _
        "8857", "8958", "8961", "8962", "9022", "9160", "9161", "9162", "9175", "9180", "9209", _
        "9219", "9277", "9279", "9284", "9307", "9308", "9350", "9359", "9384", "9468", "9537", _
        "9546", "9634", "9636", "9637", "9672", "9673", "9674", "9675", "9722", "9751", "9771", _
        "9813", "9852", "9861"), Operator:=xlFilterValues
End Sub

ติดปัญหา vba ที่ซ่อน 000000 ไม่ต้องพิมรหัสในคอลัม C ครับ

#1

by nutpochan » Tue May 06, 2014 11:06 pm

ติดปัญหา vba ที่ซ่อน 000000 ไม่ต้องพิมรหัสในคอลัม C ทุกร้านครับ ผมแนบไฟล์ไว้ กับรหัสให้ให้ในกระทู้นะครับ เผอไม่เจ้าใจที่ผมพูด

Sub Macro3()
'
' Macro3 แมโคร
'
' Keyboard Shortcut: Ctrl+x
'
Range("A1:D1").Select
Range("D1").Activate
Selection.AutoFilter
ActiveSheet.Range("$A$1:$D$548").AutoFilter Field:=3, Criteria1:=Array( _
"0773", "0776", "0778", "0898", "0912", "0921", "0945", "0997", "1015", "1076", "1101", _
"1105", "1155", "1158", "1161", "1163", "1166", "1167", "1168", "1171", "1351", "1379", _
"1555", "1607", "1626", "1678", "1749", "1798", "1799", "1889", "1938", "2099", "2109", _
"2166", "2239", "2266", "2417", "2569", "2588", "2649", "2650", "2682", "2754", "2782", _
"2827", "2866", "2867", "2920", "2922", "2999", "3010", "3039", "3058", "3209", "3253", _
"3266", "3299", "3379", "3401", "3449", "3516", "3517", "3548", "3565", "3659", "3679", _
"3682", "3686", "3769", "3804", "3810", "3850", "3880", "3899", "3900", "3990", "4029", _
"4059", "4095", "4109", "4135", "4137", "4187", "4189", "4229", "4296", "4301", "4423", _
"4438", "4471", "4491", "4539", "4541", "4542", "4543", "4614", "4645", "4646", "4653", _
"4695", "4765", "4769", "4789", "4832", "4855", "4856", "4911", "4915", "4927", "4948", _
"4965", "4988", "4989", "6396", "6418", "6419", "6434", "6462", "6491", "6558", "6560", _
"6661", "6670", "6692", "6738", "6740", "6829", "6877", "6920", "6927", "6928", "6942", _
"6973", "6976", "6977", "7047", "7123", "7192", "7195", "7206", "7306", "7348", "7349", _
"7360", "7457", "7470", "7487", "7493", "7497", "7542", "7619", "7752", "7766", "7816", _
"7817", "7819", "7840", "7843", "7857", "7931", "8017", "8018", "8062", "8069", "8083", _
"8093", "8095", "8098", "8151", "8162", "8216", "8282", "8409", "8461", "8468", "8490", _
"8570", "8584", "8597", "8598", "8613", "8710", "8792", "8795", "8857", "8958", "8961", _
"8962", "9022", "9160", "9161", "9162", "9175", "9180", "9209", "9219", "9277", "9279", _
"9284", "9307", "9308", "9350", "9359", "9384", "9468", "9537", "9546", "9634", "9636", _
"9637", "9672", "9673", "9674", "9675", "9722", "9751", "9771", "9813", "9852", "9861"), _
Operator:=xlFilterValues
Range("A2:D7").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
End Sub

จากสูตรจะมี รหัส 4 หลักอยู่ละลานตา ซึ่งรหัส 4 หลักนั้นแต่ละวันจะไม่เหมือนกัน ผมจึงหาทางออกโดยการเลือกfiter ซ่อนเฉพาะ 000000 แทน อาจารย์พอมีวิธีไหมครับ
Attachments
เอาแค่00000 ออกไป.xlsm
(45.04 KiB) Downloaded 18 times

Top