Excel Forum

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

จากไฟล์ที่แนบมา
ถ้า B2 ถึง B20 ว่างทั้งหมด ให้ B1 แสดงค่าว่าง
ถ้า B2 ถึง B20 มีค่าเป็น / ข ล หรือ ป ในเซลใดเซลหนึ่ง หรือทุกเซล ให้ B1 ดึงข้อมูลจาก B21 มาแสดงผล
จะต้องเขียนสูตรอย่างไรครับ

จากไฟล์ที่แนบมา ต้องการ save ไฟล์ให้เป็ PDF โดย เลือกหน้าที่เราต้องการ เช่นต้องการเฉพาะ หน้า 1 หน้า 4 และหน้า 5 ต้องปรับโค๊ดอย่างไรครับ Sub SaveAllPdf() Dim sFolderPath As String Dim Path As String Dim FName As String On Error Resume Next Application.ScreenUpdating = False sFolderPath = "C:\&qu...

ขอบคุณครับ

พอดีได้ DatePicker มาจากบอร์ดต่างประเทศเลยลองมาปรับใช้งานดู
พอนำเข้า ฟอร์ด โค๊ด แล้ว ปรากฎว่า มีไฟล์หนึ่งใช้งานได้ แต่อีกไฟล์ใช้งานไม่ได้
พยายามไล่ดูแล้วไม่ทราบว่ามันผิดพลาดตรงไหน จึงขอคำชี้แนะว่ามีเกิดจากสาเหตุใด
ไฟล์ที่ใช้งานได้คือไฟล์ TEST2 ไฟล์ที่ใช้งานไม่ได้คือไฟล์ TEST1

ปรับที่ L1=MATCH(K3,Data!A:A,0)-1

ขอบคุณครับ
ถ้าไม่ตรงวันจริงขึ้น #NA
ลองเปลี่ยนเป็น
=MATCH(K3,Data!A:A,1)-1
คิดว่าน่าจะได้ครับ

ขอบคุณครับ กรณีที่จำนวนแถวของข้อมูลเพิ่มขึ้นผมลองปรับให้ไว้รองรับประมาณ 1000 แถว ดังนี้ =IF(B6="","",IFERROR(INDEX(Data!$A:$G,AGGREGATE(15,6,ROW(Data!$A$2:$A$1000)/($K$3>=Data!$A$2:$A$1000),ROWS(C$6:C6)),MATCH(C$5,Data!$A$1:$H$1,0)),"")) พบว่ายังมีปัญหานิดหนึ่งที่ลำดับข...

ต้องขออภัย เริ่มเบลอแล้วดูบอลดึก
จากไฟล์ที่แนบมาครับ
ต้องการดึงข้อมูลจากชีท Data ที่คลอลัมน์ A ,B C,F และ G ตั้งแต่แถวที่ 2
มาวางที่ชีท All ในคลอลัมน์ C D E F และ G เริ่มตั้งแต่แถวที่ 6 ไล่ตามลำดับ
โดยดึงข้อมูลที่ไม่เกินวันที่ที่กำหนดไว้ ใน เซล K3