snasui.com

กรุณาอธิบายประกอบมาอย่างละเอียดถึงลำดับขันตอนการทำงานที่ทำเกิด Error นั้น เช่น

คลิกปุ่มใด กรอกข้อความทดสอบใด สังเกต Error ได้จากที่ใด ฯลฯ จะได้เข้าถึงปัญหาโดยไวครับ

:D ดูเหมือนจะเป็นแค่การทำงานข้ามไฟล์ ให้เปิดไฟล์ขึ้นมาพร้อมกันทั้งหมด ไปที่ไฟล์สรุป คลิกชีต คลิกเซลล์ที่ต้องการ > คีย์เครื่องหมาย = จากนั้นเข้าเมนู View เพื่อเลือกไปต้นทาง คลิกแถบชีตที่ต้องการ > คลิกเซลล์ที่ต้องการ > กดแป้น F4 ซ้ำ ๆ เพื่อเลือกรูปแบบการตรึงตำแหน่ง > Enter > คัดลอกไปใช้งานในตำแหน่งที่...

หากเป็นเช่นนั้นเข้าใจว่าเกี่ยวกับ Driver ของเครื่องพิมพ์ที่อาจจะไม่รองรับ Font ที่ใช้อยู่ครับ ลองตรวจสอบเพิ่มว่าหากพิมพ์จาก Word จะมีลักษณะเดียวกันหรือไม่ครับ

ตัวอย่างสูตรครับ

ที่ชีต Search เซลล์ A5 คีย์

=OFFSET(INDIRECT("'"&$B$1&"'!a5"),ROWS(A$5:A5)-1,COLUMNS($A5:A5)-1)

Enter > Copy ไปด้านขวาและลงด้านล่าง

กรุณาแนบไฟล์ตัวอย่างประกอบ ชี้ให้เห็นว่าข้อมูลเป็นอย่างไร ต้องการคำตอบเป็นอย่างไร จะได้สะดวกในการทำความเข้าใจครับ

:D ฟังก์ชั่น timeGetTime มี 3 Arguments คือ hKey , lpSubKey และ phkResult หากจะเรียกใช้ต้องส่งตัวแปรไปด้วย 3 ตัวจังจะทำงานได้ ยกเว้นจะกำหนดตัว Arguments ทั้งหมดเป็น Optional Function EndTimer ที่เขียนมา มีการเรียกใช้ timeGetTime() แต่ไม่ได้ส่ง Arguments ไปด้วย (Arguments อยู่ภายในวงเล็บ) โปรแกรมจึงฟ...

ต้องการ นำข้อมูลชีทที่ชื่อไฟล์ ไม่ได้ต่อท้ายด้วย A (คือ B,C,D,E เรียงตามลำดับ) Copy มาวางที่ ไฟล์ที่มีชื่อต่อท้ายด้วย A แล้วให้ทำการ เปลี่ยนชื่อชีทแลพ ชื่อไฟล์ โดยลบ _A ออกไป(รวมถึงชื่อไฟล์ด้วยครับ) แล้วเซพ :D อ่านแล้วยังไม่กระจ่างครับ เนื่องจากไม่พบไฟล์ที่ไม่มีต่อท้ายด้วยอักขระ A, B ไฟล์ที่ Zip มา...

:D ตัวอย่าง Code ครับ Sub Button2_Click() Dim sh As Worksheet Worksheets("รวมสรุปยอด").Range("a2:a1000").ClearContents For Each sh In Worksheets If sh.Name <> "รวมสรุปยอด" Then With Worksheets("รวมสรุปยอด") .Range("a" & .Rows.Count).End(xlUp).Off...

แนบไฟล์โปรแกรมล่าสุดมาด้วยจะได้เขียนต่อไปจากนั้นครับ

:D ในการทำงานเราควรเลือก Normal View ครับ การใช้มุมมอง Page Layout หรือ Page Break View มีวัตถุประสงค์เพื่อที่จะดูพื้นที่การพิมพ์เท่านั้น ไม่ได้มุ่งหมายเพื่อใช้ทำงานด้วยมุมมองนี้ จึงไม่มี Option สำหรับการทำหมายเลขหน้าให้จางลงหรือเอาออก ขนาดหมายเลขหน้าจะเล็กหรือใหญ่ขึ้นกับการ Zoom ไม่สามารถกำหนดได้เอ...

ได้กดแป้นให้รับสูตรตามที่ผมแนะนำไปแล้วหรือไม่ครับ

หากกดแป้นถูกต้องจะเห็นเครื่องหมายปีกกาครอบสูตร หากยังไม่เห็นเครื่องหมายปีกกา แสดงว่ากดแป้นให้รับสูตรไม่ถูกต้อง จะได้ #Value! ตามที่เห็นครับ

:D ตัวอย่างสูตรครับ เซลล์ A2 คีย์ =IF(SUM($B2:$M2)=0,"",INDEX($B2:$M2,SMALL(IF($B$1:$M$1=$M$1,COLUMN($B$1:$M$1)-COLUMN($B$1)+1),MATCH(MIN(IF(SUBTOTAL(9,OFFSET(B2,0,3*(ROW(INDIRECT("1:"&COUNTIF($B$...

ปรับสูตรเป็นด้านล่างครับ

=INDEX($B$6:$B$15,MATCH(1,INDEX(1/((I6>=$D$6:$D$15)*(I6<=$E$6:$E$15)),0),0))

:D ปรับสูตรใหม่เป็นตามด้านล่างครับ =IFERROR(INDEX(INDEX(data!$BK5:$BL$1000,0,MATCH($U$2,data!$BK$4:$BL$4,0)),SMALL(IF(data!$B$5:$B$1000=$R$2,ROW(data!$B$5:$B$1000)-ROW(data!$B$5)+1),ROWS(O$9:O9))),"") Ctrl+Shift+Enter ...

สามารถใช้ For...Each...Next เพื่อ Loop เข้าไปยังไฟล์แต่ละไฟล์ได้ครับ

ส่วน Code ที่ตรงตัวคงต้องลอง Search จากฟอรัมนี้หรือ Google ดูครับ

:D สามารถทำได้ครับ หากว่าไม่เปิดไฟล์ต้นทาง เปิดเฉพาะไฟล์ปลายทาง จำเป็นจะต้องระบุ Path ให้ถึงไฟล์ต้นทาง แต่หากเปิดอยู่ด้วยก็แค่ใช้ Code เช็คไฟล์ที่เปิดอยู่ว่ามีไฟล์ที่เป็นไฟล์ต้นทางหรือไม่ หากมีค่อยคัดลอก ซึ่งการทำงานลักษณะการทำงานเช่นนี้ Code จะอยู่ที่ไฟล์ปลายทาง เมื่อเปิดไฟล์ปลายทางแล้ว Code จะทำงา...

:D สูตรควรเป็นตามด้านล่างครับ =IFERROR(INDEX(data!BK$5:BK$1000,SMALL(IF(data!$B$5:$B$1000=$R$2,ROW(data!$B$5:$B$1000)-ROW(data!$B$5)+1),ROWS(O$9:O9))),"") Ctrl+Shift+Enter > Copy ลงด้านล่าง หรือหากต้องการคำตอบเป็นอื่นใด กรุณาแจ้งรายละ...

กรุณาแนบไฟล์ที่ทำเองแล้วมาด้วยจะได้ช่วยดูได้ครับ

สูตรที่คุณ logic ตอบไปนั้นสามารถคีย์ในเซลล์เดียวแล้ว Copy ไปใช้กับเซลล์อื่นได้เลย ไม่จำเป็นต้องคีย์สูตรใหม่ทุกเซลล์

การแนบไฟล์ แนบภาพ กรุณาอ่านกฎการใช้บอร์ดข้อ 4 ด้านบนครับ

:D ตัวอย่าง Code ครับ 'Past5 '...Other code Range("D5").Select Do Until InStr(Selection.Value, "รวม") > 0 Selection.Value = [Cut] Selection.Offset(1, 0).Select Loop Range("E5").Select Do Until Selection.Value = "" Selection.Value = [Cut] Selection.Offset(1, 0)...

ใช้ Excel ทำได้ครับ เข้าเมนู Insert > Smart Art ครับ