Excel Forum

เผอิญของผมลืมแจ้งว่าต้องเพิ่ม Column ช่วยที่ Sheet DATA ที่ J2 =month(B2) enter+copy ลงด้านล่าง
หรือ ใช้สูตรของคุณ knine2465 ก็ได้ครับ ผมลองเอามารวมร่างกันเป็น
ฺ=SUMPRODUCT(--($A7=Data!$D$2:$D$1199),--($A$4=Data!$G$2:$G$1199),--(B$6=Data!$C$2:$C$1199),--(SUBSTITUTE(INDEX($B$5:B$5,,AGGREGATE(14,6,IF ...

ลองแบบนี้ดูครับ
B7 =COUNTIFS(Data!$C:$C,B$6,Data!$G:$G,$A$4,Data!$D:$D,$A7,Data!$J:$J,--SUBSTITUTE(INDEX($B$5:B$5,,AGGREGATE(14,6,IF($B$5:B$5<>"",COLUMN($B$5:B$5)-COLUMN($B$5)+1),1)),"M",""))
Copy ไปทางขวาและลงด้านล่าง

:D ตัวอย่างการปรับ Code โดยใน Program ได้เพิ่ม Sheet1 เอาไว้รับข้อมูลและ Add Reference ชื่อ Microsoft ActiveX Data Objects 6.1 Library เข้ามาด้วย

Code นี้จะนำข้อมูลจากไฟล์และชีตต้นทางที่เข้าเงื่อนไขทุกบรรทัดมาแสดง หากต้องการจะตัดให้เหลือเท่าที่ต้องการสามารถเขียน Code สำหรับจัดการขึ้นมาต่างหากครับ ...

ลองแบบนี้ดูครับ
B4 =IF(B3="","",IF(MONTH(B3+1)<>$D$2,"",B3+1)) Copy Down

E2 =IFERROR(SMALL(IF($C$2:$C$8=MAX($C$2:$C$8,0),$C$2:$C$8),ROWS($E$2:$E2)),"") Copy down
D2 =IF(E2="","",INDEX($B$2:$B$8,SMALL(IF($C$2:$C$8=$E2,ROW($B$2:$B$8)-ROW($B$1)),ROWS($D$2:$D2)))) Copy down
G2 =IFERROR(SMALL(IF($C$2:$C$8=MIN(IF($C$2:$C$8<>0,$C$2:$C$8)),$C$2:$C$8),ROWS($G$2:$G2)),"") Copy ...

D2 =INDEX($B$2:$B$8,MATCH($E2,$C$2:$C$8,0))
F2 =INDEX($B$2:$B$8,MATCH($G2,$C$2:$C$8,0))

ได้ล่ะครับอาจารย์ รบกวนสอบถามต่อเลยนะครับ หากต้องการ Loop เข้าไปในแต่ล่ะชีท ของแต่ล่ะไฟล์ โดยไม่ต้องการเปิดไฟล์(ไฟล์มีจำนวนเยอะมากๆ) แล้ว Return Result ออกมาต้องปรับโค้ดประมาณไหนครับ
- ในแต่ล่ะไฟล์ ต้องการ Loop เฉพาะ Sheets ที่มีชื่อ 10ตัวแรก = "COST SHEET"
- ต้องการ Return ข้อมูลตั้งแต่ A10 ไปจนถึง ...

เรียนอาจารย์ครับ
ในโฟล์เดอร์สุดท้าย บางโฟล์เดอร์มี 2 โฟล์ที่ต้องการ แต่ตอนนี้มัน Return แค่ไฟล์เดียวครับ
ขอบคุณมากครับ
Sub sample2()
Dim FileSystem As Object
Dim HostFolder As String

HostFolder = "D:\Detail\wetransfer_2022-1-zip_2022-10-25_1306\"

Set FileSystem = CreateObject("Scripting ...

เรียนอาจารย์ และ เพื่อนๆในบอร์ดครับ

เนื่องจากผมต้องการ Loop เข้าไปใน Folder เรื่อยๆ จนกว่าจะเจอไฟล์ Excel ที่มีชื่อขึ้นต้นว่า "FINAL COST" แล้วทำการ Debug ทุกไฟล์ ซึ่งแต่ละ Folder ก็มี Folder ซ้อนเข้าไปเรื่อยๆ แต่ล่ะ Folder ก็มีจำนวนที่ซ้อนเข้าไปไม่เท่ากัน อยากทราบว่าต้องการแก้ไขโค้ดอย่างไรให ...

ลองดูตัวอย่างตาม Link นี้ครับ https://www.exceldemy.com/excel-vba-ins ... into-cell/

ปรับตามนี้ครับ

ผมลอง Run ที่เครื่องผมดูไม่ติดปัญหานะครับ
ถ้าดูจากภาพ Code ผ่านในส่วนที่ผมเขียนเพิ่มเติมไปแล้ว
ลองกด Ctrl+G เพื่อเปิดหน้าต่าง Immediate แล้วลอง Debug ด้วยการพิมพ์ ? ตามด้วยสิ่งที่จะลองเช็คดูครับ
เช่น ?wsMaster.name แล้วลองเช็คดูครับว่าตัวแปรนั้นๆ ยังเป็นสิ่งที่ถูกต้องหรือไม่

ตัวอย่างการปรับโค้ดครับ

Sub ImportCSV()
Dim fileToOpen As Variant
Dim fileFilterPattern As String
Dim wsMaster As Worksheet
Dim wbTextImport As Workbook
Dim Sum As Integer
Dim cHead As Integer, tHead As String
Dim rHead As Worksheet
' On Error Resume Next
Application.ScreenUpdating = False ...

ไม่แน่ใจว่าตอนนี้ทาง Google Block วิธีการส่ง Email ผ่าน VBA หรือยังนะครับ เนื่องจากประมาณเดือนก่อน มีช่องโหว่ Zero Day ที่ใช้ช่องทางในการแนบไฟล์ผ่านตระกูล Microsoft และเนื่องจากต้องใช้เวลา Patch สักพัก หลาย Platform จึงมีการ Block การใช้งาน VBA เพื่อเป็นการป้องกันเบื้องต้นครับ

อีกตัวอย่างครับ :D

Sub Order()
Dim nrow As Integer
Dim lastrow As Long
Dim cItem As Long
Dim myRange As Range
lastrow = Sheets("order").Range("C" & Rows.Count).End(xlUp).row + 1
Set myRange = Sheets("invoice").Range("B15:B24")
cItem = Application.WorksheetFunction.CountA(myRange)
Sheets ...

แนบเป็นไฟล์ Excel ตัวอย่างครับ ตัดมาแค่บางส่วนก็พอ
การ Coding มันมีตัวแปรหลายอย่าง อาทิเช่น บรรทัดสุดท้าย Column C อยู่ตรงไหน เป็นต้น
ผู้ที่เข้ามาตอบ หรือ ศึกษาต่อ จะได้โหลดไฟล์ Excel มาทดสอบได้โดยง่ายครับ

อีกวิธีครับ F2 =IFERROR(DAY(IF(VLOOKUP(WEEKDAY(Main!$D$11),{2,"จันทร์";3,"อังคาร";4,"พุธ";5,"พฤหัสบดี";6,"ศุกร์";7,"เสาร์";1,"อาทิตย์"},2,0)=Time!F$1,Main!$D$11,IF(E2=0,0,Time!E2+1))),0)

Enter+Copy ไปทางขวาจนถึง L2

ขอบคุณมากครับอาจารย์

เรียนทุกท่านครับ

เนื่องจากลองสร้างเกม Wordle(ทายคำศัพท์) ใน Excel
แล้วอยากให้ใน โซนที่ User ใส่อักษรเพื่อทายคำศัพท์(Sheet1 Cell H6 ถึง L11) active macro alway
โดยทุกครั้งที่ User กดใส่ตัวอักษร อยากให้ Application Auto Tab เพื่อขยับไป Cell
ทางขวาเพื่อจะได้ใส่ตัวอักษรต่อไปทันทีครับ ถ้าเป็นไปได ...

File > Option > Formulars > Working with formulars > เอาติ๊กตรง R1C1 Reference style ออกครับ