Excel Forum

ได้ตามคำแนะนำ
ขอบพรัคุณอย่างสูงครับ

ขอบคุณครับ

จากไฟล์ที่แนบมา ต้องการแยกข้อความในคลอลัมน์ B ออกเป็นสองคลอลัมน์
ไปไว้ที่คลอลัมน์ C และ D ใน โดย คลอลัมน์ C แยกเอาเฉพาะรหัส ส่วนคลอลัมน์ D เอาข้อความหลังรหัสทั้งหมด
ตอนนี้แยกไปไว้คลอลัมน์ C แล้ว เหลือแต่ในคลอลัมน์ D จะต้องเขียนสูตรในคลอลัมน์ D อย่างไรครับ

ทดสอบตามแนะนำแล้วครับพบว่าเป็นดังภาพ
เราจะรู้ได้อย่างไรว่า ปัญหานี้เกิดจากอะไร

ขึ้น Msgbox แจ้งครับ

ปรับตามคำแนะนำแล้วยังไม่ได้ครับ
พิมพ์ลงใน Textbox1 เป็นรูปแบบวันเดือนปี 2/3/2566 ไม่ผ่าน
แต่พิมพ์ เป็นตัวเลขธรรมดา ผ่าน

ขอบคุณครับ

จากไฟล์ที่แนบ ที่ฟอร์ม FrmEdit ต้องการเช็คว่า ผู้ใช้งาน กรอกข้อมูลลงใน textbox1 เป็น วันเดือนปี ในรูปแบบ พ.ศ. เท่านั้น หากไม่ใช่รูปแบบ พ.ศ. ให้แจ้งเตือน เพื่อให้กรอกให้ถูกต้อง จึงสามารถไปกรอกที่ textbox2ได้ จากโค๊ดที่มีตอนนี้ เช็คได้แต่กรณีที่ผู้ใช้งานกรอกข้อมูลที่ไม่ใช่รูปแบบวันที่ แต่หากเป็นวันที่...

จากไฟลที่แนบมา ต้องการส่งข้อมูลจาก sheet12 ไป sheet1 โดยให้เซล B6 เป็นตันไป เป็นตัวเลข เรียงลำดับลงมา (โดยไม่ต้องใส่สูตร ใน B6) ต้องปรับโค๊ดอย่างไรครับ Sub RecordCheck() Dim mylastrow As Long Application.ScreenUpdating = False If Range("B3").Value = "" Then MsgBox ("คุณยังไม...

ขอบคุณครับ

จากไฟล์ที่แนบมา 1. ที่ textbox1 คีย์ข้อมูลเป็นวัน เดือน ่ปี แล้วคลิกปุ่ม add ส่งข้อมูลไปไว้ที่ชีท Data ต้องเขียนโค๊ดอย่างไรให้ข้อมูลที่ส่งไปนั้นแสดงผลเป็วันเดือนปี ในแบบ วัน เดือน ปี พ.ศ. Private Sub CommandButton1_Click() Dim sh As Worksheet Set sh = ThisWorkbook.Sheets("Data") Dim last_r...

ขอบคุณครับ ได้ตามต้องการครับผม

จากไฟล์ที่แนบมาต้องการหาผลรวมของภาษี ณ ที่จ่ายที่หักไว้ในแต่ละเดือน
โดยคีย์วันที่ในเซล L4 แล้ว ให้ดึงข้อมูลผลรวมของเดือนนั้นมาแสดงที่เซล L5
ต้องปรับสูตรอย่างไรครับ

คำตอบนั้นควรเป็นเท่าใดครับ ? และในการสอบถาม ควรระบุว่า ให้เขียนสูตร ที่ตำแหน่งใด เช่น A1, A8, B20, C25, Z800 เป็นต้นครับ ๑.ที่ K2 ต้องการหาผลรวมของ C2:J2 โดยมีเงื่อนไขว่า หากในแถวที่ ๓ เซลใด เป็น ร หรือ มส ไม่ต้องนำมารวม (คำตอบควรเป็น ๑๐) ๒.ที่ K3 ต้องการหาผลรวมของเซลในแถวที่ ๓ คูณ เซลในแถวที่ ๒ โด...

จากไฟล์ที่แนบมา
๑. ต้องการหาเกรดเฉลี่ยจาก ๘ วิชา โดยเอาเกรดที่ได้ของแต่ละวิชา คูณจำนวนหน่วยกิต แล้วนำมาบวกกันทั้ง ๘ วิชา แล้วหารด้วย หน่วยกิตรวม
๒. กรณีที่บางรายวิชา มีเกรดเป็น ร กับ มส ไม่ต้องนำมาคำนวณ (หน่วยกิตรวมก็หักออก)
จะต้องปรับสูตรอย่างไรครับ

ขอบคุณครับ ปรับได้แล้วครับ

ขอบคุณครับ
แล้วหากว่าไม่มี โฟลเดอร์ teacher
จะต้องเพิ่มโค๊ดอย่างไรให้เปลี่ยนเส้นทางไปที่ C:\

จากไฟล์ที่แนบมา ต้องการไปยังโฟลเดอร์ที่เก็บไฟล์ไว้ (โฟล์เดอร์อยู่ใน Drive C: ชื่อว่า Teacher)เพื่อเลือกไฟล์มาใช้งาน จะต้องปรับโค๊ดอย่างไรครับ Sub openFolder() Dim fileToOpen As Variant Dim fileFilterPattern As String Application.ScreenUpdating = False fileFilterPattern = "Excel Files (*.xls; *....

ขอบคุณครับ

จากไฟล์ที่แนบมาต้องการ ดึงข้อมูลที่มีเงื่อนไขตรงกับ เซล B3 และ B4 มาแสดง โดยจะให้เช็คว่าตรงกันในคลอลัมน์ F และ G หรือไม่ ถ้าตรง ให้นับว่า มีกี่แถว โดยใช้สูตร =IF(AND(F3=$B$3,G3=$B$4),LOOKUP(9.99999999999999E+307,$M$2:M2)+1,"") ปัญหาคือในคลอลัมน์ G บางครั้งผู้ใช้งานไปก็อปปี้ข้อมูลมาจากไฟล์อ...