Excel Forum

คำตอบนั้นควรเป็นเท่าใดครับ ? และในการสอบถาม ควรระบุว่า ให้เขียนสูตร ที่ตำแหน่งใด เช่น 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 บางครั้งผู้ใช้งานไปก็อปปี้ข้อมูลมาจากไฟล์อ...

จากไฟล์ที่แนบมา
ต้องการดึงข้อมูลจาก ชีท Pratom1 Pratom2 Pratom3 Pratom4 Pratom5 หรือ Pratom6 (D6:G13)
ไปแสดงที่ชีท Subject ที่(D6:G13) เมื่อ เซล B2 มีค่าเปลี่ยนไป (เช่นค่าเป็น ป.1 ดึง จากชีท Pratom1 หรือ ป.2 ก็ดึงจากชีท Pratom2)
ต้องเขียนสูตรอย่างไร

จากไฟล์ที่แนบมา ต้องการ save ข้อมูลจากชีท Grade ไปสร้างไฟล์ใหม่ .xls โดยไปเก็บไว้ในชื่อและ โฟลเดอร์ที่กำหนดไว้ ปัญหาคือ เมื่อส่งออกไฟล์ไปแล้ว จะได้ไฟล์ที่มีไอคอน ที่ไม่ใช่ .xls จะต้องปรับโค๊ดอย่างไรครับ จึงจะได้ไฟล์ใหม่เป็น .xls Sub ExpGPA() Dim sFolderPath As String Dim wb1 As Workbook Dim ws1 As W...

จากไฟล์ที่แนบมา มีโค๊ดให้ Show ปฏิทิน (DatePickerForm) เพื่อเลือกคลิกวันที่แทนการคีย์วันที่ลงในเซล โดยได้ทดลอง 2 แบบ แบบที่ 1 ใช้ปุ่มจากแมโครชื่อ ShowDatePickerForm เรียกให้ datepickerform ให้แสดงขึ้นมาเพื่อให้ผู้ใช้เลือกวันที่ ที่ต้องการ Sub ShowDatePickerForm() dp_core.gridDP_Click With datepicker...

ขอบคุณครับ

จากไฟล์ที่แนบมา มีฟอร์มที่ใช้เรียกข้อมูลจากตารางในชีทขึ้น แล้วเลือกรหัสอ้างอิงเพื่อดึงข้อมูลมาแก้ไข แล้วบันทึกข้อมูลที่แก้ไขนั้นด้วยปุ่ม Update (CommandButton2) ในฟอร์มดังกล่าวนี้ที่ Textbox2 รับค่าวันเดือนปีเป็นรูปแบบ พ.ศ. (1/08/2566) ต้องการให้ตรวจสอบว่า หากผู้ใช้ คีย์ข้อมูลแก้ไขวันเดือนปีเป็นรูปแ...

จากไฟล์ที่แนบมาต้องการให้ แสดงปุ่ม Save ที่ถูกซ่อนไว้ เมื่อค่าใน H1 เปลี่ยนไป (ค่าที่เปลี่ยนไป ใน H1 เกิดจากการเชื่อมโยงเซลล์ของ DropDownList ไม่ใช่เปลี่ยนจากการคีย์ข้อมูลเอง) ต้องปรับโค๊ดอย่างไรครับ Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$H$1" Then Active...

ขอบคุณครับ

ขอบคุณครับ

ขอบพระคุณอย่างสูงครับ

จากไฟล์ที่แนบมา ต้องการลบข้อมูลในคลอลัมน์ H โดยตรวจสอบว่าในคลอลัมน์ F มีข้อมูลถึงแถวไหน หากมีข้อมูลในคลอลัมน์ H ที่เกินมาให้ลบทิ้ง โดยไม่ให้ลบเกินแถวที่ 34 จะต้องปรับโค๊ดอย่างไรครับ Sub ClsOverTime() Dim lastRow As Long Dim i As Long, r As Range, j As Long On Error Resume Next With ActiveSheet Set r...

สเป็คเครื่องที่นำไปเปิดแล้วเพี้ยน

สเป็คเครื่องต้นฉบับ

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