Excel Forum

puriwutpokin wrote: ↑Mon Apr 12, 2021 12:25 pm ลอง เอาคำสั่งนี้ไว้ใต้ตัวแปรที่ประกาศดูครับ

Code: Select all

On Error Resume Next

ขอบคุณมากครับ
งานผมเร็วขึ้นมากเลยครับ
ปกติเหมือนเป็นบัคเลยติดลิ้งภายนอกงานเปิดช้ามาก ตอนนี้แก้ได้แล้วครับ

Sub BreakExternalLinks() Dim ExternalLinks As Variant Dim wb As Workbook Dim x As Long Set wb = ActiveWorkbook ExternalLinks = wb.LinkSources(Type:=xlLinkTypeExcelLinks) For x = 1 To UBound(ExternalLinks) 'error wb.BreakLink Name:=ExternalLinks(x), Type:=xlLinkTypeExcelLinks Next x End Sub รบกวนชี้...

ลบจากข้อมูลหรือครับ หรือ ไม่เอามาแสดงว่าคนไหนไม่มา มันจะไม่โชว์คนซ้ำอยู่แล้วครับ ลองแจ้งรายละเอียด และตัวอย่างที่ว่ามาดูครับ ตรงคอลัมน์​เลขที่และชั้นครับ​ ผมลองใช้วิธี​ลบแบบ​ซ้ำ​ สามารถทำได้แล้วครับ​ แล้วเอาไปทำเป็น vba.อีกที​ จากนั้นพอเราทดสอบก็กอปคอลัมน์​จากกูเกิ้ลฟอร์ม​ 2​คอลัมน์​ คือเลขที่และชั...

เพิ่มเติมครับ ถ้าเด็กมาครบ จะแสดงค่าเป็น #value! ครับ อยากให้ซ่อนไปเลยถ้ามาครบครับผม 2013 นะครับ F7=IFERROR(MID(CONCATENATE(K7,",",L7,",",M7,",",N7,",",O7,",",P7,",",Q7,",",R7,",",S7,",",T7,",",U7,&q...

เพิ่มเติมครับ ถ้าเด็กมาครบ จะแสดงค่าเป็น #value! ครับ อยากให้ซ่อนไปเลยถ้ามาครบครับผม 2013 นะครับ

แก้​ k7=IF($E7<>"เลขที่ขาด","",IFERROR(AGGREGATE(15,6,(ROW(INDIRECT("1:"&$F5+1))-1)/ISNA(MATCH(ROW(INDIRECT("1:"&$F5+1))-1,OFFSET($B$2,MATCH($D5,$C$2:$C$118,)-1,,COUNTIF($C$2:$C$118,$D5),1),0)),COLUMNS($K7:K7)+1),"")) คัดลอกทั่วตาราง ขอบคุณม...

ต้องใช้คอลัมน์ช่วยครับ ษ7=IF($E7<>"เลขที่ขาด","",IFERROR(AGGREGATE(15,6,(ROW(INDIRECT("1:"&$F5))-1)/ISNA(MATCH(ROW(INDIRECT("1:"&$F5))-1,OFFSET($B$2,MATCH($D5,$C$2:$C$118,)-1,,COUNTIF($C$2:$C$118,$D5),1),0)),COLUMNS($K7:K7)+1),"")) คัดลอกไปถ...

puriwutpokin wrote: ↑Mon Jan 18, 2021 9:28 pm แจ้ง Version Excel ด้วยครับ
https://snasui.com/viewtopic.php?f=6&t=17480

ตั้งค่าเรียบร้อยครับผม

จากภาพต้องการหาตัวเลขที่หายไปในแต่ละห้อง เช่น F7 ต้องได้คำตอบเป็น 10,15,20 แบบนี้ครับจะได้ไม่ต้องเสียเวลามาไล่หาตัวเลขที่หายไปเอง cell ที่ต้องการหาคำตอบ คือ F7,F10,F13,F16,F19 ขอบคุณมากครับ

:D ตัวอย่างสูตรตามด้านล่างครับ ที่ H11 คีย์ =INDEX($W$8:$W$23,MATCH(N5,$AA$8:$AA$23,0)) Enter > Copy ลงด้านล่าง ที่ L11 คีย์ =INDEX($X$8:$X$23,MATCH(N5,$AA$8:$AA$23,0)) Enter > Copy ลงด้านล่าง ที่ R11 คีย์ =INDEX($Y$8:$Y$23,MATCH(N5,$AA$8:$AA$23,0)) Enter > Copy ลงด้านล่าง ขอบคุณมากครับอาจารย์ ทำตา...

จากไฟล์งาน ช่องเซลล์ N5 ทำหน้าที่ เปลี่ยนวิชา แต่ต้องการให้เมื่อเปลี่ยนวิชาแล้ว ทำการ copy ค่า ไปด้วย เช่น ถ้าเป็นการงานอาชีพ ก็ให้ copy ค่า w19 ไปไว้ที่ H11 , X19 ไปไว้ที่ L11 , Y19 ไปไว้ที่ R11 แต่ถ้า เป็นวิชา วิทยาศาสตร์ (เพิ่มเติม) ก็ให้ copy ค่า W13 ไปไว้ที่ H11 , Y13 ไปไว้ที่ R11 Untitled.jpg ...

norkaz wrote: ↑Thu Apr 02, 2020 5:05 pm H1
=IFERROR(INDEX($C$1:$C$143,INDEX(MATCH(E1&F1,$A$1:$A$143&$B$1:$B$143,),)),"ไม่พบชื่อนี้")

Norkaz

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

จากไฟล์แนบ จะเห็นว่า มีข้อมูล 2 ส่วน ระหว่างก่อนปรับชั้น คือ พื้นที่สีเขียว และหลังปรับชั้นคือพื้นที่สีเหลือง ส่วนพื้นที่สีฟ้า H1 ถ้าสูตรถูกต้อง จะต้องแสดงข้อมูลเป็น ป.1/2 เพราะไปตรงกับพื้นสีเหลืองบรรทัดที่ 36 H2 จะแสดงเป็น ป.1/4 เพราะไปตรงกับพื้นสีเหลืองบรรทัดที่ 109 อยากได้สูตรคลุมครับ เพราะต้องทำ...

Bo_ry wrote: ↑Tue Mar 31, 2020 12:38 am A7
=IF(B7="","",SUM(A6,1))

B7:D7
=ฐานข้อมูล!A1&""

E7:T7
=IF(INDEX(ฐานข้อมูล!$D1:$K1,COLUMNS($D7:E7)/2)=E$6,E$6,"")

ตรงตามที่ต้องการ ขอบคุณมากครับ

จากไฟล์งาน จะมีแผ่นงาน อยู่ 2 แผ่นงาน
คือแผนงานฐานข้อมูลและแผ่นงานตาราง
ผมทำแบบสำรวจเด็กโดยใช้ Google From
ผมได้ข้อมูลมาแล้วแต่จะเอาข้อมูลไปใส่ในตารางได้อย่างไรครับ

snasui wrote: ↑Mon Nov 25, 2019 6:46 pm

yangkodza wrote: ↑Thu Nov 21, 2019 7:40 am อยากให้แผ่นงาน macro ดังกล่าว อ้างอิงแผนงานที่ 2 ถึง 7 ครับ

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

Code: Select all

'Other code
If sh.Index >= 2 and sh.Index <= 7 Then
'Other code

ขอบคุณมากครับ สามารถนำไปประยุกต์กับเทอม2 ได้แล้วครับ

Sub Macro1() Dim rsAll As Range, rs As Range Dim rtAll As Range, rt As Range Dim sh As Worksheet Application.ScreenUpdating = False Range("C4:F18").Select Selection.ClearContents Range("C4").Select With Worksheets("สรุปเทอม 1") Set rsAll = .Range("b4", .Range...

:D ตัวอย่าง Code ครับ Dim rsAll As Range, rs As Range Dim rtAll As Range, rt As Range Dim sh As Worksheet With Worksheets("สรุปเทอม 1") Set rsAll = .Range("b4", .Range("b" & .Rows.Count).End(xlUp)) For Each rs In rsAll For Each sh In Worksheets If sh.Name <> "...

ที่แผ่นงาน สรุปเทอม1 cell C4 อยากได้แบบ ค้นข้อมูลในแต่ละแผ่นงานของเดือน ที่มีชื่อ นางสาวศุภางค์ ถ้ามีชื่อนี้ก็ให้เอาผลมาสายของคนนี้มาบวกกันทั้ง 6 เดือน ประมาณนี้ครับ ที่แผ่นงานรายเดือนแต่ละแผ่น เรคคอดไม่เท่ากันเพราะว่า ผมจะตัดคนที่ ไม่มีขาดลามาสายออกไปครับ ช่วงข้อมูลจริงๆ สมมุติว่ามีแค่ 15 คนครับ ตา...

จากแผ่นงาน อยากทราบว่าที่แผ่นงานสรุปเทอม1
เราจะมีวิธีหา มาสาย ลากิจ ลาป่าว ลาคลอด ของแต่ละคนได้อย่างไรครับ