Excel Forum

สูตรที่อาจารย์ให้มาใช้ได้ ไม่มีปัญหานี่ครับ หากคุณ hakinhua ยังไม่ได้ผลลัพธ์ตามต้องการ รบกวนแนบภาพการแจ้งเตือนข้อผิดพลาด และแนบไฟล์ที่ได้ลองทำดูเองแล้วมาในบอร์ด อาจารย์และเพื่อนๆ จะได้ช่วยแนะนำให้ได้ครับ

ได้แบบอ้อมครับ เอามาทำเป็นตารางใหม่ เผื่อเป็นทางเลือกครับ 1. เซลล์ V4, W4, X4 คีย์ Plan , Start , End ตามลำดับ 2. V5 =INDEX($D$6:$T$6,SMALL(IF($D$6:$T$6>0,COLUMN($D$6:$T$6)-COLUMN($D$6)+1),ROWS(V$5:V5))) กด Ctrl+Shift ค้างแล้ว Enter 3. W5 =INDEX($D$5:$T$5,SMALL(IF($D$6:$T$6>0,COLUMN($D$6:$T$6)-COLUM...

ลองแบบนี้ครับ C2 คีย์ =IF(B2<>"","-",IF(ISBLANK(B2),"",DATEDIF(D2,TODAY()+1,"Y")&"."&TEXT(DATEDIF(D2,TODAY()+1,"YM"),"00")&"."&TEXT(DATEDIF(D2,TODAY()+1,"MD"),"00"))) Enter >> คัดลอกลง...

เกือบเข้าใจแล้วครับ แต่ติดตรงข้อมูลในชีท data คอลัมน์ J เลยขอถามเพิ่ม 2 ข้อครับ
1. สิ่งที่แสดงในชีท show คือคำตอบที่ต้องการใช่หรือไม่ครับ
2. คอลัมน์ J ในชีท data มีไว้ทำไมครับ ต้องเอามาตรวจสอบยังไง เห็นในโค้ดก็มีเขียนเอาไว้ด้วย

รบกวนแนบภาพลงมาในกระทู้ได้ไหมครับ เพราะการฝากไว้ที่อื่นอาจหายได้เมื่อเวลาผ่านไป ขนาดไฟล์ไม่เกิน 500Kb ขนาดภาพไม่เกิน 800*600 Pixel ครับ ส่วนลิ้งค์ของทางไมโครซอฟท์ ที่แนะนำวิธีแก้ไขที่เป็นไปได้ด้านล่างคือ 1. ถ้าคุณสามารถเข้าไปดูโค้ด vba ได้ ให้ปลดล็อกโปรเจ็คก่อน (เพื่อให้เข้าไปดูโค้ดได้) แล้วรันโค้ดอ...

ลองปรับโค้ดแบบนี้ดูครับ Private Sub CommandButton1_Click() Dim CopyRange As Range Set CopyRange = Selection If Len(Trim(Cells(CopyRange.Row, "a"))) > 0 Then Set CopyRange = Cells(CopyRange.Row, "e") Else Set CopyRange = Cells(CopyRange.Row - 1, "e") End If CopyRange.Sel...

สอบถามเพิ่มครับ

ใน decision tree ไม่มีกรณีที่มีการเลือกร่วมกันระหว่าง humidity และ windy ถ้าหากผู้ใช้งานใส่ตัวเลือกทั้งสองนี้ร่วมกัน สูตรจะต้องคำนวณไปทาง humidity หรือว่า windy ครับ

สูตร​นั้น​เป็น​การ​ประยุกต์​สูตร​อ้างอิง​แบบ​วงกลม​มา​ใช้​เป็น​การ​บันทึก​เวลา​ครับ ส่วน​เรื่อง​การ​แจ้ง​เตือน คิดว่า​เรา​สามารถเข้าไปตั้งค่าใน option ของ​โปรแกรม excel ได้ครับ ลองดูข้อมูลเพิ่มเติมที่ลิ้งค์ด้านล่างครับ

https://chandoo.org/wp/2009/01/08/times ... mula-help/

จากโค้ดเดิม
If Left(shp.Name, 3) = "pic"

ลองปรับเป็นแบบนี้ดูครับ
If Ucase(Left(shp.Name, 3)) = "PIC"

ลองแบบนี้ครับ B1 =TRIM(MID(A1,MIN(FIND(CHAR(ROW(INDIRECT("A65:A90"))),UPPER(A1)&CHAR(ROW(INDIRECT("A65:A90")))),FIND(CHAR(ROW(INDIRECT("A161:A206"))),UPPER(A1)&CHAR(ROW(INDIRECT("A161:A206")))),FIND(CHAR(ROW(INDIRECT("A224:A228"))),UPPER(A1)&...

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

ใน ThisWorkbook มีโพรซีเยอร์ชื่อซ้ำกันครับ คือ Workbook_SheetChange ให้ลบอันที่ไม่ต้องการทิ้งก่อน แล้วค่อยทดสอบใหม่ครับ

1 ลองแบบนี้ครับ ปรับสูตรใน AM5 เป็น =IF(AL5=" "," ",IF(MONTH(AL5+1)=MONTH(AL5),AL5+1," ")) Enter >> คัดลอกไป AN5 แก้แค่ 2 เซลล์เพราะอย่างมากสุดก็คงจะมีเว้นว่าง ไม่มีวันที่แค่ 3 เซลล์ 2 ไม่แน่ใจว่าผมเข้าใจถูกหรือไม่ คุณ duean1983 ไม่จำเป็นต้องสร้างกฎใหม่ทุกชีทครับ เพียงแ...

ลองแบบนี้ครับ ผมปรับการใส่รายการในคอมโบบ๊อกซ์ให้ใหม่ ควรใส่จากหัวคอลัมน์จริงๆ ในชีทครับ เพราะถ้าหากเราเขียนไปในโค้ดเองอาจมีปัญหาได้เวลามีใครไปเปลี่ยนหัวคอลัมน์โดยไม่ตั้งใจ Private Sub UserForm_Initialize() Dim r As Range, rTarget As Range Call ClearData With Sheets("data") Set rTarget = .R...

ต้องแก้ไขตรงไหนค่ะ ลองศึกษาคำสั่ง AddItem เข้าคอมโบบ๊อกซ์จากลิ้งค์ด้านล่างครับ http://www.ozgrid.com/Excel/add-values-combobox-excel.htm https://msdn.microsoft.com/en-us/vba/access-vba/articles/combobox-additem-method-access โดยเขียนคำสั่งไว้ในโพรซีเยอร์ Userform_Initialize ของ UserForm2 ถัดจากบรรท...

ลองแบบนี้ครับ If Target.Address = Range("a1").Address Then If Range("a1").Value <> 0.07 Then msg1 = InputBox(Message, Title) Application.EnableEvents = False If msg1 = 1234 Then msg2 = InputBox(Message1, Title1) Range("a1").Value = msg2 / 100 Else MsgBox "คุณใส่ Pa...

แถมอีกสูตรหนึ่งครับ

หาคอลัมน์ว่าง หรือถ้าไม่มีก็แทรกคอลัมน์ A หนึ่งคอลัมน์
A2
=SUBSTITUTE(H2,"GMT","")+7/24
Enter > คัดลอกลงล่าง > คัดลอกวันที่ในคอลัมน์ A > วางแบบพิเศษ (วางเฉพาะค่า) ในคอลัมน์วันที่เดิมครับ

ลองแบบนี้ครับ ที่ชีท report เซลล์ Z12 คีย์ =SMALL(IF(TEXT($T$2,"00000")=TEXT('Traning Rec'!$B$3:$B$38,"00000"),ROW('Traning Rec'!$B$3:$B$38)-ROW('Traning Rec'!$B$3)+1),ROWS(B$12:B12)) กด Ctrl+Shift ค้างแล้ว Enter > คัดลอกลงล่าง ฺB12 คีย์ =IF(ISNUMBER($Z12),INDEX('Traning Rec'! D$...

แล้วถ้ามีรหัสนักเรียน และกรอกคะแนนครบทุกคอลัมน์ที่มีคะแนนในหัวตาราง จะต้องแสดงค่าเฉลี่ยยังไงครับ เบื้องต้น ที่ S8 ลองใส่สูตรนี้ครับ =IF(B8=0,"",IF(SUMPRODUCT(--(G$7:Q$7+0>0),--(G8:Q8="")),"ร")) Enter ส่วนเงื่อนไขที่จะให้แสดงค่าเฉลี่ย เมื่อมีรหัสนักเรียนและมีการกรอกคะแนน...

ยินดีที่ช่วยได้ครับ ผมก็เป็นเพื่อนสมาชิกเหมือนกันครับ