Excel Forum

:D ตัวอย่าง Code ครับ Sub GetFile() Dim sFullPath As String Dim tFolderPath As String tFolderPath = Range("A9").Value ChDir (tFolderPath) sFullPath = Application.GetOpenFilename(FileFilter:="Excel Files (*.xlsx),*.xlsx", _ Title:="Please select an Excel file") End Sub

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

คำว่า หน้า 1 หน้า 2 มีลักษณะเป็นอย่างไรกรุณาอธิบายมาอีกรอบจะได้เข้าใจตรงกันครับ

ลอง Convert to range แล้วสร้าง Table ขึ้นมาใหม่ ผมลองทดสอบแล้วพบว่าสูตรในคอลัมน์ P กลับแสดงได้เมื่อเพิ่มข้อมูลในบรรทัดใหม่ครับ

:D ตัวอย่าง Code ตามด้านล่าง ลองไปปรับใช้ดูครับ Sub MergeSheets() Dim mainSheet As Worksheet Dim ws As Worksheet Dim lastRow As Long Dim targetRow As Long Dim i As Long, l As Long Dim arr(99999, 20) As Variant On Error Resume Next Set mainSheet = ThisWorkbook.Worksheets("MainSheet") On Err...

:D ตัวอย่างสูตรตามด้านล่างครับ ที่ C1 คีย์ =input!A1 Enter ที่ C2 คีย์ =INDEX(input!$A$2:$A$394,MATCH(A2&"*",input!$A$2:$A$394,0)) Enter > Copy ลงด้านล่าง ที่ B2 คีย์ =SUMPRODUCT(--(INDEX(--MID($C$1,ROW(INDIRECT("7:"&LEN($C$1)-7)),1),0)=INDEX(--MID(C2,ROW(INDIRECT("7...

:D คำอธิบาย โค้ดนี้เริ่มต้นด้วยการกำหนดชื่อตารางงานและพนักงาน กำหนดจำนวนวันในเดือน June สร้าง pattern การทำงาน 4 วัน และหยุด 2 วัน สร้างตารางการทำงานโดยการวนลูปตามพนักงานและวันในเดือน เขียนตารางการทำงานลงในชีทที่กำหนด โปรดแก้ไขชื่อชีทและจำนวนพนักงานตามที่ต้องการ และทำการเรียกใช้งานฟังก์ชันนี้ใน Exce...

ดูแล้วมันเป็นเชิงโปรแกรมและมีความซับซ้อนเพิ่มขึ้นเมื่อนำไปใช้จริง จำเป็นต้องเขียนโปรแกรมมาเองก่อน ติดปัญหาตรงไหนค่อยถามกันต่อดูตัวอย่าง Code ได้ที่นี่ครับ https://snasui.com/viewtopic.php?t=20570#p119271

อ่านจากกระทู้ที่เคยถามไว้ก่อนหน้านี้ประกอบครับ https://snasui.com/viewtopic.php?p=119103#p119103

seeed-sexy wrote: ↑Fri May 31, 2024 5:00 am 1. F2 เป็นช่วงเวลาแรกที่มีการบันทึกเวลา ปัจจุบันเวลาหนูดูด้วยสายตาออกค่ะ

ข้อนี้ไม่สามารถเขียนสูตรให้ได้เพราะต้องใช้คนคีย์เข้าไปเองครับ

ส่วนที่เหลือไม่ได้ตอบในสิ่งที่ถามจึงไม่สามารถใช้เป็นเงื่อนไขในการเขียนสูตรได้ครับ

ต้องการคำตอบในเซลล์ที่ตีกรอบไว้ใช่หรือไม่ครับ

หากใช่กรุณาตอบคำถามตามด้านล่าง

1. เซลล์ F2 มีค่า 07:43 มีวิธีคำนวณอย่างไรจึงได้ค่านั้น
2. โปรแกรมทราบได้อย่างไรว่า MR.A อยู่กะไหน ดูได้จากข้อมูลใด
3. โปรแกรมทราบได้อย่างไรว่า MR.A อยู่กลุ่มไหน ดูได้จากข้อมูลใด

ตัวอย่างการปรับ Code ครับ

ช่วยปลด Password ของ VBA แล้วแนบไฟล์มาอีกรอบครับ

ในตอนป้องกันสามารถเลือกเพิ่มเติมได้ว่าให้ทำอะไรได้บ้าง สามารถอนุญาตให้ลบบรรทัดได้ด้วย ดูภาพประกอบครับ

ยกเลิกการป้องกันแล้วค่อยลบ ถ้าไม่ทราบรหัสก็ควรจะทำไฟล์ใหม่ครับ

ที่นี่ไม่รับถอดรหัสครับ

:D ตัวอย่างการปรับ Code ครับ Sub DeleteNewSheet() Dim wsc As Integer, i As Long wsc = ThisWorkbook.Worksheets.Count Application.DisplayAlerts = False For i = wsc To Worksheets("Time").Index + 1 Step -1 ThisWorkbook.Worksheets(i).Delete Next i Application.DisplayAlerts = True End Sub

=INDEX(input!K$4:K$19,LOOKUP(9^9,MATCH({9,10},MMULT(--($A4:$J4=input!$A$4:$J$19),ROW($Z$1:$Z$10)^0),))) :D ตัวอย่างคำอธิบายครับ input!K$4:K$19: นี่คือช่วงข้อมูลในแผ่นงานชื่อ input คอลัมน์ K ตั้งแต่แถวที่ 4 ถึงแถวที่ 19 ที่เราจะดึงค่าจากสูตร INDEX มาแสดงผล LOOKUP(9^9, ... ): ฟังก์ชัน LOOKUP ใช้ในการ...

:D ตัวอย่างการปรับ Code ครับ Sub Test0() Dim rall As Range, r As Range, strVal As String Dim d As Object, x As Long, itm As Variant, stra As String Application.ScreenUpdating = False Set d = CreateObject("Scripting.Dictionary") x = 100000 With Worksheets(1) Set rall = .Range("E2:E1000...

:D ตัวอย่าง Code ครับ Sub Test0() Dim rall As Range, r As Range, strVal As String Dim d As Object, x As Long Application.ScreenUpdating = False Set d = CreateObject("Scripting.Dictionary") x = 100000 With Worksheets(1) Set rall = .Range("a2:q30,a32:q59") rall.Interior.Color = xlN...

กรุณาแนบไฟล์ที่มี Code มาด้วยครับ

ไฟล์ที่จะแนบ Code ได้จะต้องมีนามสกุลเป็น .xlsm, .xlsb เป็นต้น ไม่ใช่ .xlsx ครับ