Excel Forum

:D ตัวอย่างการปรับ Code ครับ Sub CopyCDataToNextColumn() Dim ws As Worksheet Dim lastRow As Long Dim i As Long Dim value As String Dim data As Variant Set ws = ThisWorkbook.Sheets("Sheet1") With ws lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row data = .Range(.Cells(1, 1), .Cells(lastRow, 1...

กรุณาทำตัวอย่างคำตอบที่ถูกต้องมาด้วยจะได้สะดวกในการปรับปรุงสูตรของเพื่อนสมาชิกครับ

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

เซลล์ I4 คีย์

=COUNTIFS($B$4:$B$13,$H4,$C$4:$C$13,RIGHT(I$3),$A$4:$A$13,$G4)

Enter > Copy ไปทางขวาถึง K4 แล้ว Copy ลงด้านล่าง

กรุณาอธิบายว่าตัวเลขผลลัพธ์แต่ละช่องมีวิธีคำนวณมาอย่างไร เพื่อนสมาชิกจะได้ช่วยเหลือได้ครับ

กรุณาเขียน Code มาในไฟล์ Excel แล้วแนบไฟล์นั้นมาใหม่ อ่านกฎการใช้บอร์ดข้อ 4 และ 5 ด้านบนประกอบครับ

พวกที่เป็น LastRow ShRow ListRow FindRow หรือ ColHead เป็นตัวแปรหรือไม่ และต้องประกาศตัวแปรหรือเปล่า :D คำเหล่านั้นเป็นตัวแปรทั้งนั้นครับ ตัวแปรควรจะมีการประกาศเอาไว้ก่อนเสมอ เป็นการจัดสรร Memory ให้เหมาะสมกับประเภทของข้อมูล ทั้งจะได้ติดตาม แก้ไข เปลี่ยนแปลง ได้โดยง่าย การไม่ประกาศตัวแปรจะทำให้ชนิด...

สามารถใช้ข้ามไฟล์ได้แต่ต้องเปิดไฟล์ต้นทางไว้ด้วยเสมอครับ

ไม่สามารถตั้งค่าให้ทำเช่นนั้นได้ครับ

การทำเช่นนั้นต้องอาศัยการเขียนโปรแกรมเข้าไปจัดการ ลองเขียนมาเองหรือให้ผู้ที่มีความรู้เกีย่วกับการเขียนโปรแกรมเขียนมาก่อน ติดตรงไหนค่อยนำมาถามกันต่อครับ

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

1. เซลล์ F2:F8 คีย์ชื่อชีตที่ต้องการตรวจสอบข้อมูล
2. เซลล์ C2 คีย์สูตร
   =IFERROR(INDEX($F:$F,AGGREGATE(15,6,ROW($F$2:$F$8)/COUNTIFS(INDIRECT(INDEX("'"&$F$2:$F$8&"'!A2:J100",0)),B2),1)),"Not found")
   Enter > Copy ลงด้านล่าง

:D เหตุการณ์เช่นนี้เป็นปกติของ Excel ทั้งนี้เพราะ Excel ถือว่าหัวคอลัมน์ของ Table เป็น Text จึงมีการ Fill แบบ Text หากตัวเลขถูกเก็บเป็น Text มันก็จะเพิ่มที่ตัวท้ายเสมอ สำหรับ Header ของ Table นี้ Excel ไม่อนุญาตให้เขียนสูตรครับ หากต้องการทำในแนวคอลัมน์ ที่เซลล์ใด ๆ คีย์ '1/11/2023 แล้วลากลงจะเห็นว่า...

:D ตัวอย่าง Code ตามด้านล่าง ลองปรับใช้ดูครับ Dim isUpdated As Boolean Private Sub ComboBox7_Change() Dim iRow As Long Dim ws As Worksheet Set ws = Worksheets("Database") ws.Cells(127, 135).Value = Me.ComboBox7.Value isUpdated = True End Sub Private Sub CommandButton1_Click() Dim i As Inte...

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

ในไฟล์คอลัมน์ M ไม่มีคำว่าลาออกครับ

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

กรุณาแนบไฟล์ที่ได้ปรับปรุงล่าสุดประกอบคำถามมาด้วยและอย่าลืมแจ้งวิธีการทดสอบตามโพสต์ #2 ครับ

ในกรณีเปิดไฟล์นั้นเอาไว้สามารถใช้ อ้างอิงแบบ cells ได้ไหมครับ :D อ้างอิงได้ครับ เช่น Book เป็น ไฟล์ที่ต้องการดึงข้อมูล ดังนี้ \\SERVER\Folder\A\B\[Book.xlsx]Sheet1'!$B3 เมื่อใช้สูตร MATCH(A1,A2,0) A2= \\SERVER\Folder\A\B\[Book.xlsx]Sheet1'!$B3 A2 คีย์เป็น [Book.xlsx]Sheet1'!$B3 สูตรเขียนเป็น MATCH(...

เข้าเมนู View > ทำเครื่องหมายตรง Navigate Pane > ที่หน้าต่าง Navigate แถบ Heading (ด้านซ้าย) สามารถลากสลับหน้าได้ตามต้องการ

แต่หากไม่สร้าง Heading ก็ต้องใช้วิธี Cut และ Paste แทนครับ

Xcelvba wrote: ↑Tue Nov 21, 2023 3:25 pm คือ ต้องการ MATCH(A3,\\SERVER\Folder\A\B\[Book.xlsx]Sheet1'!$B3,0)

ให้เขียนตรง ๆ เข้าไปในสูตรเช่นนี้ครับ

การใช้เซลล์เพื่อกำหนดค่า Config แบบข้ามไฟล์ไม่สามารถใช้สูตรเช่น Indirect เข้าช่วยแล้วให้ดึงข้อมูลมาได้ ยกเว้นจะเปิดไฟล์นั้นเอาไว้เสมอครับ

กรุณาลำดับวิธีการทดสอบมาด้วยว่าต้องคลิกปุ่มไหน กรอกค่าไหน ตามลำดับอย่างไรเพื่อให้เกิดผลลัพธ์ตามที่แจ้งมา พร้อมอธิบายว่า หากถูกต้อ่งโปรแกรมจะต้องแสดงผลอย่างไร จะได้สะดวกในการทำความเข้าใจของเพื่อนสมาชิกครับ

ลองเพิ่มตัวหน่วงเวลาและตัวนับเข้าไปช่วยตามตัวอย่างด้านล่างครับ

Do Until .readyState = 4: DoEvents: Application.Wait Now() + TimeValue("0:00:10"): i = i + 1: If i > 1000 Then Exit Sub: Loop

Code ด้านบนหน่วง 10 วินาที หากครบ 1000 ครั้งจะออกจาก Procedure ครับ