Excel Forum

ในไฟล์คอลัมน์ 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 ครับ

InStr(WS.Range("C6").Value, " ") :D แปลว่าให้หาว่าค่าวรรคอยู่ในลำดับที่เท่าไรของ WS.Range("C6").Value สมมุติว่าผลลัพธ์คือ 20 เมื่อแทนค่านี้ลงใน Code ที่ครอบอยู่ด้านนอกเป็น VBA.Left(WS.Range("C6").Value, 20) แปลว่าให้ตัดอักขระด้านซ้ายของ WS.Range("C6"...

:D ตัวอย่าง Code เฉพาะที่ต้องปรับครับ WS.Name = WS.Range("I6").Value & " " & VBA.Left(WS.Range("C6").Value, InStr(WS.Range("C6").Value, " ")) ในโอกาสถัดไปจำเป็นจะต้องปรับ Code ตามความต้องการมาเองก่อน ติดปัญหาแล้วค่อยถามกัน ปรับได้เท่าไรก็เท่า...

ถ้าในกรณีที่ชื่อชีทไม่ใช่ Sheet1 ตัวอย่างเช่นเดิมป็นชื่อ PV2312001 Social Security Office โค้ด If Sh.Name = Sheets(1).Name Then จะต้องเปลี่ยนเป็น If Sh.Name = " ".Name Then ถูกมั้ยคะ :D กรณีเช่นนี้ ไม่จำเป็นต้องมีบรรทัดนี้ สามารถลบทิ้งหรือทำให้เป็น Comment รวมถึงลบหรือทำ End If ที่สัมพันธ...

:D ปรับ Set x = Range("f9:ab18", "c7").SpecialCells(xlCellTypeBlanks) เป็น Set x = Range("f9:ab18, c7").SpecialCells(xlCellTypeBlanks) ครับ ส่วนหนึ่งของ Code ที่ให้ไปตามด้านล่าง j = 1 'Paste on row 9 c = 0 For Each r In .Range("J9, L9") For Each rng In r.Resiz...

:D ตัวอย่างการปรับ Code ครับ Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim WS As Worksheet Set WS = ActiveSheet If Sh.Name = Sheets(1).Name Then If Target.Address(0, 0) = "I6" Then WS.Name = VBA.Left(WS.Range("I6").Value & " " &...

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

แนบไฟล์หลังปรับ Code มาด้วยทุกครั้ง เพื่อนสมาชิกจะได้ช่วยดูให้ได้ครับ

9KiTTi wrote: ↑Thu Nov 09, 2023 2:09 pm หลังที่เลือกไฟล์ตามจำนวนที่ต้องการแล้ว ให้เคลียร์รูปแบบไฟล์ทั้งหมดของทุกชีท

ทำได้ครับ

:D ตัวอย่าง Code สั่งให้รันเมื่อคีย์ค่าลงในเซลล์ใด ๆ แล้ว Enter ครับ Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim WS As Worksheet Set WS = ActiveSheet WS.Name = WS.Range("I6").Value & " " & WS.Range("C6").Value End Sub ควรอธิบา...

กรุณาแนบไฟล์มาใหม่เป็นนามสกุล .xlsm โดยต้องมี Code ไว้ในไฟล์นั้นเรียบร้อยแล้วจะได้ตอบต่อไปจากนั้นครับ

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

:D ที่เขียนมาเองแล้วนั้นผิดพลาดตรงไหนอย่างไร หากทำงานถูกต้องก็ใช้งานได้ครับ ตัวอย่างการ Loop อีกแบบ ตามด้านล่างครับ Dim lstRng As Range Dim rng As Range, j As Integer Dim r As Range, c As Integer With Sheets("M1") With Sheets("ReportM1") Set lstRng = .Cells(8, .Columns.Count).End...