Excel Forum

ในชีท Report2 เมื่อมีการเลือกข้อมูลในเซลล์ F2 ผมเขียน Code ให้ใส่สูตรในเซลล์ E9:K47
ซึ่งเป็นสูตร Array โปรแกรมรันได้ปกติครับ แต่การประมวลผลค่อนข้างช้า
เพื่อให้โปรแกรมประมวลผลเร็วขึ้น จะต้องปรับปรุงสูตร หรือแก้ไขส่วนใดเพิ่มเติมครับ
ขอบคุณครับ

ผมลองตรวจสอบแล้ว และลองเปลี่ยน code โดยไม่ใช้การอ้างอิงจากเซลล์ Workbooks.Open Filename:="E:\ExcelToSGS\DataPP5\DataBasePP5.xlsm" ก็ยังติด error พอลองกดเปิดไฟล์ DataBasePP5.xlsm ที่อยู่ใน E:\ExcelToSGS\DataPP5 โดยตรง ปรากฎว่าไฟล์โปรแกรมนั้นเป็นไฟล์ซ่อมแซมอัตโนมัติ ไม่ทราบว่าสาเหตุเกิดจากส่...

ผมลองปรับ code โดยเพิ่มนามสกุลไฟล์ เมื่อรัน code ครั้งแรกจะไม่ติดปัญหา แต่พอกดปุ่มนำ "นำเข้ารายชื่อนักเรียน" ซ้ำก็จะติดตรง code นี้อีก Workbooks.Open Filename:=Range("AA9").Value & "\ExcelToSGS\DataPP5\DataBasePP5.xlsm" เป็นเพราะ code ที่ผมเขียนให้บันทึกไฟล์ ก่อนปิด...

ขอสอบถามเพิ่มเติมเกี่ยวนามสกุลไฟล์ เมื่อมีการบันทึกแมโคร ระหว่าง .xlsb กับ .xlsm ควรบันทึกไฟล์นามสกุลไหน จึงจะเหมาะสมกับการใช้งานมากว่ากันครับ
ขอบคุณครับ

เมื่อเปิดไฟล์ pp5-v.4.65II แล้วกดปุ่ม "นำเข้ารายชื่อนักเรียน" และเลือกไฟล์ที่ต้องการนำเข้า ชื่อ "View_ClassStudents12566" โปรแกรมขึ้น Run-time error 1004 เมื่อกดปุ่ม Debug ขึ้น error ดังรูป error2.jpg error2.jpg เมื่อกดเข้าไปที่ไฟล์โดยตรง ชื่อไฟล์ "DataBasePP5" ในโฟอล์เ...

ที่ Userform1 เมื่อเลือกข้อมูลที่จะแก้ไขใน listbox หลังจากดำเนินการแก้ไขแล้ว code ที่ปุ่ม แก้ไขข้อมูล ไม่ทำงาน Private Sub CommandButton3_Click() Dim irow As Long, i As String i = Worksheets("DataStudent").Range("Z1").Value If Application.CountIf(Worksheets("DataStudent"...

ใน textbox1 จะต้องปรับ code อย่างไรครับ เมื่อพิมพ์วันที่เป็น 17/6/2022 แล้วให้แสดงผลเป็น 17/06/2565 ซึ่ง code ที่ผมลองใช้ คือ Private Sub TextBox1_AfterUpdate() Me.TextBox1 = Format(TextBox1, "[$-th-TH,107]d/mm/yyyy;@") End Sub ผลจาก code ที่ได้ คือ 17/06/2022 ขอบคุณสำหรับข้อแนะนำครับ

หากมีข้อมูล A1:A8 เป็น 2 2 3 3 2 3 1 1
ผมใช้สูตรที่ A9 เป็น = mode(A1:A8)
ค่าที่ได้ออกมา จะเท่ากับ 2

พอดูข้อมูล ค่า mode จะมี 2 ค่า คือ 2 กับ 3
จะแก้ไขหรือปรับสูตรอย่างไร หากมีค่า mode 2 ค่า ให้ได้ผลลัพธ์เป็นตัวมากเสมอ (ในที่นี้ คือ 3)

ขอบคุณสำหรับคำแนะนำครับ

ในเครื่องตั้งเป็นแบบ พ.ศ. ครับ ตอนนี้ผมแก้ไข คือ แก้ไขโค้ดแบบด้านล่าง คือ บวกด้วย 543 (+543) เพื่อเปลี่ยน ค.ศ. ให้เป็น พ.ศ. Private Sub UserForm_Initialize() Dim i As Integer Dim ii As Integer With Me.cmbMounth For i = 1 To 12 .AddItem VBA.Format(VBA.DateSerial(VBA.Year(Date), i, 1), "mmmm"...

ผมได้ฝึกสร้างปฏิทินโดยใช้ VBA โดยศึกษาจาก youtube ซึ่งโค้ดใช้งานได้ปกติครับ แต่มีประเด็นที่ติดขัด คือ บางเดือนวันที่ไม่ตรงกับวัน เช่น เดือนกุมภาพันธ์ 2019 ซึ่งมี 28 วัน แต่พอรันโค้ด กลับ ได้ 29 วัน , เดือนกันยายน 2019 วันที่ 1 ตรงกับวันอาทิตย์ แต่พอรันโค้ด วันที่ 1 กลับเป็นวันเสาร์ รบกวนทุกท่านช่วยแ...

ใช้งานได้แล้วครับ
ขอบคุณครับ

หากต้องการให้กด enter บนคีย์บอร์ด หลังจากใส่ข้อมูลใน textbox1 (ลำดับ) แล้วให้ SetFocus อยู่ที่ textbox1 เหมือนเดิม พร้อมกับให้เลือกข้อความใน textbox1 ด้วย เพื่อคีย์ข้อมูลใหม่ใน textbox1 ได้เลย จะต้องปรับ code อย่างไร ผมได้ใช้ code Textbox1.SetFocus เนื่องจากพอกด enter เคอร์เซอร์จะไปเลือกอยู่ที่ text...

เข้าใจแล้วครับ
ขอบคุณครับ

ใช้งานได้แล้วครับ
ขอบคุณครับ
แต่อยากจะทราบว่าเพราะเหตุใด code ดังกล่าว จึง error

เมื่อคีย์ 000002 ในช่องเลขทะเบียนใน userform1 เมื่อกดปุ่ม ตกลง เพื่อให้ค้นหาข้อมูลที่อยู่ในคอลัมน์ E ของ sheet1 มาแสดงในช่อง textbox2 ซึ่งเป็นชื่อหนังสือ พอกดปุ่ม ตกลง แล้ว ขึ้น error code ที่ผมเขียน คือ Private Sub CommandButton1_Click() TextBox2.Value = WorksheetFunction.Index(Worksheets("She...

ผมได้ทำการจัดเรียงข้อมูลจากน้อยไปมาก จากข้อมูลต่อไปนี้ ส1.1 ม.2/10 ส1.1 ม.2/9 ส1.2 ม.2/2 ส1.2 ม.2/1 ส1.1 ม.2/8 ส1.2 ม.2/11 แต่ผลที่ได้ ข้อมูลไม่ได้เรียงลำดับจากน้อยไปมาก ดังนี้ ส1.1 ม.2/10 ส1.1 ม.2/8 ส1.1 ม.2/9 ส1.2 ม.2/1 ส1.2 ม.2/11 ส1.2 ม.2/2 ซึ่งลำดับที่ควรจะเป็น คือ ส1.1 ม.2/8 ส1.1 ม.2/9 ส1.1 ม....

ขอสอบถามการแก้ไข code ในการเลือก Userform โดยยกเลิกคำสั่ง modeless โดยใน sheet2 จะมีปุ่ม Back Menu เมื่อกดแล้วจะกลับไปยัง Sheet1 จะมี UserForm แสดงซ้อนกัน คือ UserForm1 ,UserForm2 และ UserForm3 สิ่งที่ต้องการคือ เมื่อ UserForm3 อยู่บนสุด ไม่อยากให้คลิ๊ก UserForm2 หรือ UserForm1 ได้ ผมจะต้องปรับหรือแ...

ขอบคุณครับ
ใช้ได้ตามต้องการเลยครับ

ผมได้สร้างปุ่มสำหรับดูตัวอย่างก่อนพิมพ์ใน Sheet1 เพื่อเรียกใช้ UserForm เมื่อกดปุ่ม PrintPreview ใน UserForm code ก็ใช้งานได้ปกติ แต่พอจะออกจากหน้า Preview โดยกดปุ่ม ESC บนคีย์บอร์ด ซึ่งกดไม่ได้ ผมจะต้องแก้ไขหรือเพิ่มเติม Code อย่างไรครับ code ที่ผมใช้ใน UserForm1 Private Sub CommandButton1_Click() ...

ขอบคุณครับ จะได้ลองทำดูครับ