Snasui Excel Forum

อาจารย์คะ ขออนุญาตรบกวนหน่อยคะ

ที่worksheet ชื่อ dataorderdetail ที่ปุ่มกดเรียงลำดับที่ด้านขวาคะ

คือปุ่มนี้จะเรียงลำดับงานที่วันกำหนดส่งเร็วที่สุดก่อน(คอลัมน์ J) แต่ถ้าวันกำหนดส่งเดียวกัน จะไปเรียงลำดับความยาก/ง่ายต่อ ที่คอลัมน์K โดยลำดับ3 จะทำงานก่อนลำดับ2 และลำดับ ตามลำดับ แล้วถ้าวันกำหนดส ...

:D ที่ L2 ปรับสูตรเป็นด้านล่างครับ

=WORKDAY.INTL(J2+INT(H2),H2,11,$AE$3:$AE$21)+8/24+MOD(H2,1)

ดิฉันลองนำสูตรไปใส่ช่อง L2แล้วคะ
แต่ผลออกมาคือ วันที่ทำงานเสร็จ (L2) จะนำไปบวก 8ชม.คะ
ยกตัวอย่างเช่น วันที่เริ่มทำงาน J2 คือ 24/05/2015 เวลา 0:00 บวกเวลาที่ใช้ทำงาน H2 คือ 3:36น. วันที่ทำงานเสร็จต้องเป ...

ผมแก้แล้วนะครับ


ขออนุญาตสอบถามผู้รู้ครับ

คือผมอยากเปลี่ยนcode ของ vlookup ไปใช้ index และ match ครับ

พอผมใส่สูตรของ index และ match แล้วโปรแกรมไม่ทำงานครับ

อันนี้ vlookup ทำงานได้ครับ

Private Sub cbbEditProdID_Change()
With Worksheets("DataProd")
tbEditProdName.Value = Application.VLookup ...

:D ช่วยอธิบายคำว่าต้องการให้ทำงาน 24 ชม. มาอีกรอบ สามารถยกตัวอย่างประกอบได้เต็มที่ จะได้เข้าใจตรงกันครับ

คือตอนแรกคะ ที่ดิฉันถามอาจารย์ช่วยหาวันที่ทำงานเสร็จคะ โดย1วันทำงาน8.00นถึง17.00น คือ9ชม.คะ หลังจาก17:00น.จะไปทำงานวันถัดไปโดยเริ่มที่เวลา8.00 น โดยงานหยุดวันอาทิตย์ และวันหยุดนักขัตฤกษ์คะ ...

ploynattharat wrote:

snasui wrote: ตัวอย่างการปรับสูตรที่ L2 ครับ

=WORKDAY.INTL(J2+INT(H2/(9/24)),H2,11,$AE$3:$AE$21)+8/24+MOD(H2,9/24)

อาจารย์คะ ดิฉันขอถามอีกอีกคำถามคะ

แล้วถ้าดิฉันอยากให้โปรแกรมทำงาน24ชม. ตรงL2 ดิฉันต้องปรับสูตรอย่างไรคะ

ขอบคุณมากคะ

:D ลองปรับ Code มาเองก่อน ติดแล้วค่อยถามกันต่อครับ


ตามไฟล์ที่แนบให้นะคะ

ดิฉันลองใส่codeแล้วคะ พอเปิดฟอร์ม InputOrderItem ลองคลิกเลือกชื่อผลิตภัณฑ์ ที่ชื่อไม่ซ้ำกัน พอกดบันทึก msgbox เตือนขึ้นว่า "ชื่อผลิตภัณฑ์ซ้ำ" อยู่เลยคะ ลองคลิกเลือกผลิตภัณฑ์อีกครั้ง msgbox ยังขึ้นว่า "ชื่อผลิตภัณฑ์ซ้ำ" อย ...

:D ตัวอย่าง Code สำหรับการตรวจสอบ Control ว่าต้องไม่เป็นค่าว่างครับ

'Other code
If cbbName1 <> "" Then
If TextBoxSum1 = "" Or TextBoxDeli1 = "" Then
MsgBox "กรอกข้อมูลไม่ครบ"
Exit Sub
End If
End If

If cbbName2 <> "" Then
If TextBoxSum2 = "" Or TextBoxDeli2 = "" Then
MsgBox "กรอกข้อมูลไม ...

:D ตัวอย่าง Code สำหรับการตรวจสอบ Control ว่าต้องไม่เป็นค่าว่างครับ

'Other code
If cbbName1 <> "" Then
If TextBoxSum1 = "" Or TextBoxDeli1 = "" Then
MsgBox "กรอกข้อมูลไม่ครบ"
Exit Sub
End If
End If

If cbbName2 <> "" Then
If TextBoxSum2 = "" Or TextBoxDeli2 = "" Then
MsgBox "กรอกข้อมูลไม ...

ขออนุญาตสอบถามผู้รู้คะ

ที่userform ชื่อ InputOrderItem จะมีให้คลิกเลือกชื่อผลิตภัณฑ์ 5 ช่อง เมื่อคลิกเลือกแล้ว ราคาของผลิตภัณฑ์นั้นจะขึ้นมา แต่ปัญหาเกิดขึ้นที่ว่า หากแถวไหนเลือกชื่อผลิตภัณฑ์แล้ว ไม่ใส่จำนวน หรือวันกำหนดส่งด้วย ยังสามารถบันทึกข้อมูลไปsheet ชื่อ Orderได้ คืออยากให้ถ้าไม่ใส่จำนวน หร ...

ขออนุญาตสอบถามผู้รู้คะ

คือดิฉันอยากให้เมื่อเปิดโปรแกรมexcelขึ้นมา เมื่อหน้าHomeแสดงขึ้นมาแล้ว มี message box ขึ้นมาอัตโนมัติว่างานไหนเหลือเวลาทำงานอีกกี่วัน โดยจะขึ้นเตือนเฉพาะงานที่เหลือเวลาอีก 15วัน หรือเหลือเวลาน้อยกว่า15วัน จนถึงวันกำหนดส่งงาน โดยอิงข้อมูลวันกำหนดส่งจากหน้า plan ที่คอลัมน์ K ...

snasui wrote: ตัวอย่างการปรับ Code ครับ

Code: Select all

Sheet5.Activate
If Application.CountIf(Range("c:c"), InputProd.tbProdName.Text) > 0 Then
    MsgBox "ข้อมูลซ้ำ"
    Exit Sub
End If

ขอบคุณมากคะ

snasui wrote: ตัวอย่างการปรับ Code ครับ

จาก IIf(TextBox3.Text <> "", "ม." & TextBox3.Text, "") & ... ปรับเป็น IIf(TextBox3.Text <> "-", "ม." & TextBox3.Text, "") & ...

ขอบคุณมากคะ

ขออนุญาตสอบถามผู้รู้คะ

ที่userform ชื่อ InputProd ฟอร์มนี้ไว้สำหรับกรอกชื่อผลิตภัณฑ์ใหม่ เมื่อกรอกข้อมูลผลิตภัณฑ์ ในส่วนของ ชื่อผลิตภัณฑ์ หลังจากกดบันทึก ข้อมูลจะไปบันทึกที่worksheet ชื่อ DataProd

ปัญหาคือ เมื่อกรอกชื่อผลิตภัณฑ์แล้วกดบันทึก เมื่อชื่อผลิตภัณฑ์ที่กรอกถ้าซ้ำกับชื่อที่มีอยู่แล้วในคอล ...

:D Macro หรือ VBA เรียนว่า Code ไม่เรียกว่า สูตร ครับ

ให้ปรับ Code .SetRange Range("B2:K100") เป็น .SetRange Range("B1:K100") ครับ

ทำได้แล้วคะ

ขอโทษที่ดิฉันใช้คำผิดนะคะ

ขอบคุณมากคะ

:D การใช้คำผิดตามข้างตนยังพอสื่อสารเข้าใจได้ ผมแจ้งไปเพื่อเพื่อน ๆ ที่เข้ามาอ่านจะได้ทราบไปด้วยกันว่าสิ่งใดเร ...

snasui wrote: ตัวอย่างการปรับสูตรที่ L2 ครับ

=WORKDAY.INTL(J2+INT(H2/(9/24)),H2,11,$AE$3:$AE$21)+8/24+MOD(H2,9/24)

ทำได้แล้วคะ

ขอบคุณมากคะ

:D ตัวอย่างการปรับ Code ครับ

Worksheets("กรอกข้อมูล").Cells(erow, 2).Value = TextBox2.Text & IIf(TextBox3.Text <> "", "ม." & TextBox3.Text, "") & ...

ขอถามเพิ่มเติมอีกนิดคะ

ในUserform ถ้าช่องที่กรอกข้อมูล ลูกค้าใส่เครื่องหมาย -มา แล้วหลังกดบันทึก ช่องที่ลูกค้ากรอก - ไม่ต้องนำมาบันท ...

snasui wrote: Macro หรือ VBA เรียนว่า Code ไม่เรียกว่า สูตร ครับ

ให้ปรับ Code .SetRange Range("B2:K100")เป็น .SetRange Range("B1:K100") ครับ

ทำได้และคะ

ขอโทษที่ดิฉันใช้คำผิดนะคะ

ขอบคุณมากคะ

:D สูตรที่เขียนไม่ได้เกียวอะไรกับคอลัมน์ E ช่วยอธิบายมาใหม่ว่ามีการคำนวณอย่างไร ให้อธิบายด้วยการบรรยาย จะได้เข้าใจตรงกันครับ

ต้องขอโทษที่ตอนแรกอธิบายให้อาจารย์ไม่เข้าใจคะ

ในworksheet คะ ช่องคอลัมน์ E คือช่องใส่จำนวนของผลิตภัณฑ์คะ จะนำ E ไปคูณคอลัมน์G คือเวลาที่ใช้ จะได้เวลาทั้งหมดของผลิตภัณฑ์น ...

:D ตัวอย่าง Code ครับ
Sub EDD()
Range("B2:J100").Select
Range("J3").Activate
ActiveWorkbook.Worksheets("OrderData").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("OrderData").Sort.SortFields.Add Key:=Range( _
"J2:J100"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption ...

:D ตัวอย่างสูตรครับ

L2 คีย์

=WORKDAY.INTL(J2+(H2>9/24),H2,11,$AE$3:$AE$21)+8/24+MOD(H2,9/24)

Enter


อาจารย์คะ สรุปลองทำอีกทีทำไม่ได้คะ
คือดิฉันลองใส่ จำนวน ที่ช่อง E2 =6 และ ช่อง E3 =11 คะได้วันกำหนดส่งที่ช่องL2 และ L3 เท่ากันเลยคะ คือได้ 24/5/2015 9:48 คือจริงๆแล้วช่องL3 ควรจะได้วันกำหนดส่ง ค ...