Snasui Excel Forum

ขอบคุณมากครับอาจาร ได้แล้ว

สวัสดีทุกท่าน ช่วยตรวจสอบโค้ดนี้หน่อยครับ มันทำงานช้ามาก
Sub FilterRows()
Dim ws As Worksheet
Dim lastRow As Long
Dim i As Long
Dim targetValue As Variant

' Set the worksheet (change "Report1" to your actual sheet name if needed)
Set ws = ThisWorkbook.ActiveSheet ' Or specify: Worksheets ...

สวัสดีครับ ผู้เชี่ยวชาญทุกท่าน ช่วยตรวจสอบโค้ดให้หน่อยครับ โค้ดนี้ทำงานช้ามาก
Sub FilterRows()
Dim ws As Worksheet
Dim lastRow As Long
Dim i As Long
Dim targetValue As Variant

' Set the worksheet (change "Sheet1" to your actual sheet name if needed)
Set ws = ThisWorkbook.ActiveSheet ' Or ...

ฉันต้องการแยกค่าเปอร์เซ็นต์จากข้อมูลต้นฉบับ จะใช้สูตรอย่างไร? โปรดช่วยด้วย

puriwutpokin wrote: Sat Aug 23, 2025 9:43 pm b1=COUNTA(UNIQUE(A1:A99))-1

ขอบคุณมากครับ

รบกวนท่านที่รู้ครับ
ผมต้องการสูตรนับจำนวนซ้ำกัน และ ไม่ซ้ำกัน
1. ซ้ำกันกี่ตัวก็อถือว่าคำตอบคือ 1
2. ไม่ญซ้ำกันก็อคือ 1
ตัวอย่าง
A
A
A
B
B
C
C
A
B
C
D
D
ทั้งหมดนี้ ตำตอบคือ 4 ครับ

รบกวนท่านที่รู้ครับ ในหน้างานเราเลือก Format Cells > Alignment > Horizontal: > Justify แต่หน้างานพิมพ์ออกมาไม่เหมือนคำสั่งที่เลือก จำทำอย่างไงครับ

norkaz wrote: Fri May 03, 2024 1:18 pm a) ROW(A97:A122) หมายถึง เลข 97,98,99,100,...,122

ืทำไม่เปลี่ยนเลขอื่นคำตอบไม่ถุกครับ
ตัวอย่างเราใช้ ROW(A97:A122) เป็น ROW(A1:A122) คำตอบไม่ถูกครับ

...

a) ROW(A97:A122) หมายถึง เลข 97,98,99,100,...,122

b) CHAR(ROW(A97:A122) หมายถึง a,b,c,d,...z

c) FIND(CHAR(ROW(A97:A122)),A1) หมายถึง ค้นว่ามี a,b,c,d...z ในเซลล์ A1 หรือไม่

d) AGGREGATE(15,6,FIND(CHAR(ROW(A97:A122)),A1),1) หมายถึง ถ้าพบ a,b,c,d...z จะแสดงตัวเลขขึ้นมา 1 ตัว เลขอะไรก็ได้ ถ ...

norkaz wrote: Fri May 03, 2024 12:42 pm ...

B1
=ISERROR(AGGREGATE(15,6,FIND(CHAR(ROW($A$97:$A$122)),A1),1))
Copy ลงไป


** สนับสนุนฟอรั่ม กรุณา คลิกโฆษณาที่หน้าเพจ***

แมวใหญ่ Bigcat9
RCA พระราม9 กรุงเทพฯ

...

ขอบคุณมากครับ แต่ไม่เข้าใจที่ ROW($A$97:$A$122) นี้ครับ ลบกวนแนะนำด้วยครับ เนื่องจากว่าเป็นเลขอื่นไม่ได้ครับ

สวัสดีครับ
ผมอยากใช้สูตร์ตรวจสอบตัวพิมพ์ใหญ่ และ ตัวพิมพ์เล็ก ใช้สูตรอย่างไรครับ

snasui wrote: Sat Jun 03, 2023 6:18 am ดูวิธีการได้ที่นี่ครับ Configure headers and footers for different sections of a document

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

อยการบกวนท่านที่รู้ครับ การทำ Header & Footer คือ
1. หน้าที่ 1 ไม่มี Header และ Footer ส่วนหน้าที 2 ไป ให้มี Header และ Footer ทำอย่างไรครับ ขอบคุณท่านล่วงหน้าครับ

รบกวนถามครับ
นอกจากขนาดกระดาษใน Excel แล้วเราปรับตามใจได้ หรือ เปล่า ถ้าได้ปรับอย่างไรครับ
ขอบคุณล่วงหน้าครับ

โดยรวมเป็นแบบนี้ครับ

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

snasui wrote: Fri Apr 01, 2022 7:43 am การดึงข้อมูลจาก File หลายไฟล์พร้อมกันในลักษณะของการอ้างอิงตำแหน่งจากเซลล์ใด ๆ ถ้าไม่ใช้แบบ Indirect ที่ต้องอาศัยการเปิดไฟล์ต้นทางเสมอก็ต้องพึ่งพา VBA ที่ไม่ต้องเปิดไฟล์ต้นทางด้วยคนแต่ใช้ Code ช่วยแทนครับ

โดย ขอบคุณมากครับอาจารย์ ลองทำ VBA ก่อนครับ

puriwutpokin wrote: Thu Mar 31, 2022 5:14 pm สูตรที่มี Function Indirect ต้องเปิดครั้งแรกก่อนครับ และจะไม่อัพเดตถ้าไม่ได้เปิดไว้ข้อมูลไว้ครับ

เนื่องจากไฟล์ที่เราต้องการดึงเข้ามามีหลายครับ จึ่งไม่ต้องการเปีดครับ มีวิธีแก้ไมครับ

puriwutpokin wrote: Thu Mar 31, 2022 4:37 pm B2=SUMPRODUCT(INDIRECT("["&A2&".xlsx]Sheet1!B2:B99")) Copy Down

ก็อโอเคอยู่ครับ แต่ถามต่อครับ สูตรนี้ต้องเปีดไฟล์ทั้งหมดค่อยทำงานได้ครับ แต่เกีดว่าผมไม่ต้องการเปีดไฟล์อื่นก็อทำงานได้ หรือ อาดจะ Update ก็อได้ครับ

Xcelvba wrote: Thu Mar 31, 2022 3:19 pm B2=[1.xlsx]Sheet1!$B$2
B3=[2.xlsx]Sheet1!$B$2
B4=[3.xlsx]Sheet1!$B$2
B5=[4.xlsx]Sheet1!$B$2

แบบนี้รึเปล่าครับที่ต้องการ

ไม่ครับท่าน เพราะนั้นเป็นตัวอย่างเท่านั้นครับ ที่จิงจำนวนไฟล์มีหลายครับ
ผมทำตามนี้ไม่ได้ครับ รบกวนครับ
https://www.youtube.com/watch?v=NpRW81CTO9o