snasui.com ยินดีต้อนรับ
ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ ระบุ Version ของ Excel
ฟอรัมถาม-ตอบปัญหาการใช้งาน MS Excel and 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]
เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)
กรุณาแจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่
aommyp
Member
Posts: 14 Joined: Mon May 29, 2017 11:18 am
#1
Post
by aommyp » Wed May 31, 2017 10:18 pm
มีวิธีไหนคะ ที่จะสามารถแยกข้อมูลเฉพาะเวลาสแกนนิ้วมือ เข้าครั้งแรก และเวลาสแกนนิ้วมือ ออกครั้งสุดท้าย ใน 1 วันค่ะ
เนื่องจากTime Attendance ดึงข้อมูลมาจากเครื่องสแกนลายนิ้วมือของพนักงานซึ่งจะแสดงการรูดบัตรทุกครั้งที่สแกนเข้าออกประตูออฟฟิศค่ะ
ช่วยด้วยนะคะ แยกเวลาเองแล้วปวดตามาก และช้ามากด้วยค่ะ ขอบคุณล่วงหน้านะคะ
You do not have the required permissions to view the files attached to this post.
snasui
Site Admin
Posts: 30920 Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 365
Contact:
#2
Post
by snasui » Wed May 31, 2017 10:35 pm
ตัวอย่างสูตรที่เซลล์ F2 ครับ
=IF(B2=MIN(IF($A$2:$A$408=A2,IF($E$2:$E$408=E2,$B$2:$B$408))),"In",IF(B2=MAX(IF($A$2:$A$408=A2,IF($E$2:$E$408=E2,$B$2:$B$408))),"Out",""))
Ctrl+Shift+Enter > Copy ลงด้านล่าง กรุณาอ่าน Note ด้านล่างอย่างละเอียด ไม่เช่นนั้นจะไม่ได้คำตอบครับ
! Note: Ctrl+Shift+Enter เป็นการสร้างสูตร Array โดยสามารถเลือกดำเนินการตามข้อ 1 หรือ 2 ด้านล่าง
กรณีคีย์สูตรเอง เมื่อคีย์สูตรแล้ว แทนที่จะกด Enter ให้กดแป้น Ctrl และ Shift พร้อมกันค้างไว้แล้วกด Enter เพื่อสร้างเป็นสูตร Array
กรณี Copy สูตรไปวางให้กดแป้น F2 เพื่อทำการ Edit Cell นั้นก่อน จากนั้นกดแป้น Ctrl และ Shift พร้อมกันค้างไว้แล้วตามด้วย Enter เพื่อสร้างเป็นสูตร Array
หากกดแป้นถูกต้องสูตรนั้นจะมีเครื่องหมายปีกกาครอบ เช่น { =YourFormulas(...)} ปีกกานี้ไม่สามารถคีย์เข้าไปเอง จะต้องมาด้วยการกดแป้น Ctrl+Shift+Enter เท่านั้น ถ้ายังไม่เห็นปีกกาครอบสูตรแสดงว่ากดแป้นให้รับสูตรไม่ถูกต้อง
การแก้ไขเปลี่ยนแปลงสูตร Array จะต้องกดแป้นให้รับสูตรด้วย Ctrl+Shift+Enter ทุกครั้ง
menem
Silver
Posts: 549 Joined: Mon Jan 26, 2015 11:02 am
#3
Post
by menem » Thu Jun 01, 2017 11:15 am
ผมชอบใช้วิธีสร้าง Sheet ขึ้นมาเพิ่ม เพื่อสร้างเงื่อนไขสำหรับการดึงข้อมูล
ตามตัวอย่างในไฟล์ที่แนบมาครับ , แต่ที่สงสัยคือ ทำไม Format ของคอลัมน์ A
ตั้งแต่บรรทัดที่ 361 ถึงต่างกับส่วนก่อนหน้า ?
เพราะอันก่อนหน้า ข้อมูลเป็น Text และแสดงเป็น m/d/yyyy
แต่ตั้งแต่ A361 เป็นต้นไป ข้อมูลเป็น Date และแสดงเป็น dd mm yyyy
You do not have the required permissions to view the files attached to this post.
aommyp
Member
Posts: 14 Joined: Mon May 29, 2017 11:18 am
#4
Post
by aommyp » Thu Jun 01, 2017 7:45 pm
คือความจริงแล้วข้อมูลดิบที่ดึงมาจากเครื่องสแกนนิ้วมือเป็นแบบนี้ค่ะ ข้อมูลมาเป็น Notepad นำมาวางที่ Excel เองค่ะ ข้อมูลจะอยู่ที่ช่อง Columns A คอลัมน์เดียวค่ะ ลำบากในการแบ่งข้อความออกเป็นช่องๆ มากเลยค่ะ
1/23/2016 10:42:51 AM FL2 - Security Room (C3:D4) ACCESS GRANTED - CARD sawas
1/23/2016 10:48:01 AM FL1 - HPC (C1:D6) ACCESS GRANTED - CARD sawas
snasui
Site Admin
Posts: 30920 Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 365
Contact:
#5
Post
by snasui » Fri Jun 02, 2017 6:11 am
สามารถใช้เมนู Data > Text to columns ในการแบ่ง หากต้องการคำตอบโดยละเอียดให้แนบไฟล์ Excel ตัวอย่างที่ได้จากการนำข้อมูลมาวางครับ
menem
Silver
Posts: 549 Joined: Mon Jan 26, 2015 11:02 am
#6
Post
by menem » Fri Jun 02, 2017 7:37 am
ขอตัวอย่างที่มาแบบช่อง A สำหรับวันที่ 5-15 ครับ
aommyp
Member
Posts: 14 Joined: Mon May 29, 2017 11:18 am
#7
Post
by aommyp » Fri Jun 02, 2017 11:22 am
แนบไฟล์ ตัวอย่างที่ได้มาค่ะ
You do not have the required permissions to view the files attached to this post.
aommyp
Member
Posts: 14 Joined: Mon May 29, 2017 11:18 am
#8
Post
by aommyp » Fri Jun 02, 2017 2:08 pm
แนบไฟล์ ตัวอย่างแล้วค่ะ
snasui
Site Admin
Posts: 30920 Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 365
Contact:
#9
Post
by snasui » Sat Jun 03, 2017 8:00 am
ตัวอย่างสูตรในชีต "Timeที่ได้จากเครื่องแสกนนิ้วมือ" ครับ
แทรกบรรทัด 2 บรรทัด ข้อมูลจะเลื่อนไปอยู่บรรทัดที่ 3 หากต้องการนำข้อมูลต้นฉบับมาวางก็ให้เริ่มวาง ที่ A3 ลงไปด้านล่าง
D1:F1 คีย์ข้อความ ':
, 'ACCESS
, '- CARD
ตามลำดับ
B2:H2 คีย์หัวบรรทัดให้กับข้อมูล ได้แก่ Date, Date Time_Excel, Date_System, Place, Type, Name, In/Out ตามลำดับ
D3 คีย์สูตร
=LEFT($A3,FIND(D$1,$A3)+9)
Enter > Copy ลงด้านล่าง
E3 คีย์สูตร
=MID($A3,LEN($D3)+2,FIND(E$1,$A3)-LEN($D3)-2)
Enter > Copy ลงด้านล่าง
F3 คีย์สูตร
=MID($A3,FIND(E$1,$A3),FIND(F$1,$A3)+6-FIND(E$1,$A3))
Enter > Copy ลงด้านล่าง
G3 คีย์สูตร
=TRIM(MID($A3,FIND(F$1,$A3)+6,255))
Enter> Copy ลงด้านล่าง
C3 คีย์สูตร
=TEXT(RIGHT(SUBSTITUTE(LEFT(D3,FIND(" ",D3)-1),"/",REPT(" ",5)),4)&LEFT(TEXT(LEFT(SUBSTITUTE(LEFT(D3,FIND(" ",D3)-1),"/",REPT(" ",5)),2),"00"),2)&LEFT(TEXT(MID(SUBSTITUTE(LEFT(D3,FIND(" ",D3)-1),"/",REPT(" ",5)),3,8),"00"),2),"0000\/00\/00")+MID(D3,FIND(" ",D3)+1,255)
Enter > Copy ลงด้านล่าง
B3 คีย์สูตร
=INT(C3)
Enter > Copy ลงด้านล่าง
H3 คีย์สูตร
=IF(C3=MIN(IF($B$3:$B$408=B3,IF($G$3:$G$408=G3,$C$3:$C$408))),"In",IF(C3=MAX(IF($B$3:$B$408=B3,IF($G$3:$G$408=G3,$C$3:$C$408))),"Out",""))
Ctrl+Shift+Enter > Copy ลงด้านล่าง
กรองข้อมูลโดยใช้คอลัมน์ H เป็นหลักเพื่อนำไปใช้งานตามต้องการ
อย่าลืมปรับช่วงข้อมูลในสูตรด้านบนให้ตรงกับการใช้งานจริง
menem
Silver
Posts: 549 Joined: Mon Jan 26, 2015 11:02 am
#10
Post
by menem » Sat Jun 03, 2017 12:02 pm
ผมเห็นว่ามีการเริ่มงาน หลังเที่ยงคืนด้วย ถูกต้องไหมครับ ?
3/1/2017 0:04:xx
You do not have the required permissions to view the files attached to this post.
aommyp
Member
Posts: 14 Joined: Mon May 29, 2017 11:18 am
#11
Post
by aommyp » Sat Jun 03, 2017 3:59 pm
ใช่ค่ะ พนักงานทำงานเป็นกะด้วยค่ะ
aommyp
Member
Posts: 14 Joined: Mon May 29, 2017 11:18 am
#12
Post
by aommyp » Sat Jun 03, 2017 4:24 pm
ขอบคุณมากค่ะ จะลองนำไปทำนะคะ
aommyp
Member
Posts: 14 Joined: Mon May 29, 2017 11:18 am
#13
Post
by aommyp » Tue Jun 06, 2017 3:52 pm
ทำได้สำเร็จแล้วค่ะ ขอบคุณมากๆๆ นะคะ ช่วยได้เยอะมากๆๆๆ ค่ะ ^___^