Excel Forum

:D ทำการกำหนดค่าตั้งต้นให้กับ j ใหม่ในแต่ละไฟล์ที่ Loop ครับ ตัวอย่างการปรับ Code 'Other code a = VBA.Split(Contents, Chr(7)) j = 0 For i = 0 To UBound(a) 'Other code ผมรบกวนแปะเลขที่บัญชีไว้ให้ผมด้วยครับมีค่ากาแฟให้ ขอบคุณสำหรับน้ำใจครับ :thup: การตอบในฟอรัมยินดีช่วยเหลือสมาชิกเพื่อการช่วยเหลือเผื่...

:D ตัวอย่างการปรับ Code ครับ Option Explicit Sub ImportDOCX() Dim FName As String, FullName As String Dim wdApp As Object 'Word.Application Dim wdDoc As Object 'Word.Document Dim Coordinates As String, Contents As String Dim Dest As Range, a As Variant, i As Integer, j As Integer 'Prepare Set Dest =...

: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 เข้าช่วยแล้วให้ดึงข้อมูลมาได้ ยกเว้นจะเปิดไฟล์นั้นเอาไว้เสมอครับ