Excel Forum

Bo_ry wrote: Thu Dec 26, 2019 12:17 pm I3
=COUNTIFS(Num_Date,">="&I$2,Num_Date,"<"&EDATE(I$2,1),Num_List,$H3)

ถ้าใช้ Sumifs หรือ Countifs ได้ ให้ใช้ sumifs,countifs เพราะคำนวณเร็วกว่า Sumproduct เยอะมาก
https://youtu.be/hjpFIIy5Vpw

ขอบคุณครับ

Supachok wrote: Thu Dec 26, 2019 11:07 am =SUMPRODUCT((Num_List=$H3)*(MONTH(Num_Date)=MONTH(I$2)),--(YEAR(I$2)=YEAR(Num_Date)))

ขอบคุณมากๆครับ

เรียนสอบถาม อาจารย์และผู้รู้ทุกท่าน

ผมสร้างสูตรที่นับในแต่ละเดือนได้ แต่ไม่สามารถแยกปีได้ ต้องแก้ไขอย่างไรครับ

ขอบคุณมากครับ

ขอบคุณอาจารย์ที่ให้แนวทางครับตอนนี้จะสร้างกี่ level ก็ได้แล้วครับ

มาขอความรู้อาจารย์ครับ code เดิม กับ code ที่อาจารย์ปรับแก้ให้ เมื่อนำไปใส่ แมโคร เช่น แมโคร เรียก userform แล้ว เกิดมีอาการช้าของ excel จนถึง error นั้น เกิดจาก code ตัวไหนครับ
ปัจจุบัน ผมใช้ code ตามลิงค์ที่แนบครับ
https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2010 ...

อาจารย์ตอบเร็วมาก กำลังแก้ไขโพสต์ครับ

Level 4 ยังอยู่ใน Level 3 ครับ

ไฟลน์นี้ครับ

เท่าที่ผมแกะได้คือ select case case2 if next level = 3 then
Sub WBCreatePopUp()
' NOTE: There is no error handling in this subroutine

Dim MenuSheet As Worksheet
Dim MenuItem As Object
Dim SubMenuItem As CommandBarButton
Dim Row As Integer
Dim MenuLevel, NextLevel, MacroName, Caption, Divider ...

ตามนี้ครับอาจารย์

ขออนุญาติผู้มีความรู้ ช่วยแนะนำ ถ้าผมจะเพิ่ม level ต่อไป จะต้องเขียน code อย่างไรครับ พยายามแกะแล้ว แต่ไม่เข้าใจ code ครับ

ได้ตามที่ต้องการครับ ขอบคุณอาจารย์เป็นอย่างสูงครับ

ไฟล์ตัวอย่างครับอาจารย์

ขออนุญาตสอบถามอาจารย์ครับ ผมใช้โค๊ดนี้ในการอิมพอร์ต utf-8 text file ปรากฎว่าภาษาที่ออกมาเป็นภาษาต่างดาว จะเขียนโค๊ดอย่างไรให้สามารถเป็นภาษาไทยได้ครับ อีก 1 ประการ คือต้องการ import เฉพาะบรรทัดสุดท้าย ครับ ขอบคุณครับ

Sub test()
Dim myfilepath As String
myfilepath = "C:\Users\Administrator\Desktop ...

ทำได้แล้วครับอาจารย์ต้องเข้าไปแก้ไขใน registry editor ครับ
https://support.microsoft.com/th-th/hel ... and-messag

ขอบคุณครับอาจารย์

ไฟล์ที่เป็นตัวฐานข้อมูล ปิดตลอดครับ เพราะ เวลา จะเพิ่มข้อมูล สั่งเปิด สั่งเซฟ สั่งปิดครับ
ขออนุญาติไม่แนบไฟล์ เนื่องจาก มีฐานข้อมูล พวก เลข 13 ครับ

excel ตัวที่ใช้รันคำสั่ง ไม่ใช่ excel ฐานข้อมูลครับ มี 3 ไฟล์ครับ
1.excel ตัวรันคำสั่ง
2.excel ตัวฐานข้อมูล
3.word ซึ่งเป็นจดหมายเวียน ใช้ฐานข้อมูล จากข้อ 2

การทำงานที่ผมเขียนไว้คือ excel ไฟล์ที่ 1 เป็น userform บันทึกข้อมูล ไปยัง excel ไฟล์ที่ 2
แล้ว run เปิด word จากไฟล์ที่ 1 โดยใช้ข้อมูล excel ...

เปิดจาก word คลิกใช่ ข้อมูล จะใช้ได้ครับ
แต่ถ้าสั่งเปิดจาก excel จดหมายเวียนจะใช้ไม่ได้ครับ

Private Sub CommandButton6_Click()
Dim WordDoc As Object
Set WordDoc = CreateObject("Word.Application")
WordDoc.Documents.Open "D:\MyFile\Indict25.docx"
WordDoc.Visible = True
End Sub

เวลาเปิด word แล้วข้อมูลไม่อัพเดท ครับ
เพราะเวลาเปิดไฟล์ปกติจะมีข้อความขึ้นตามไฟล์แนบ
ิอยากให้อาจารย์แนะนำ code ...