เลือกข้อมูลที่ระบุไว้แล้วและเลือกป้อนเองก็ได้

[palmy]

เรียนอาจารย์คนควนครับ
ต้องแก้ไขโปรแกรมเพิ่มเติมน่ะครับ รบกวนอาจารย์ช่วยแนะนำด้วยครับ
รายละเอียดอยู่ใน Sheet ครับ เขียนอธิบายไว้ รบกวนด้วยครับ

[snasui]

ลองดูตามไฟล์แนบครับ

การอธิบายทำได้ดีแล้วครับ ถ้าเพิ่มเติมตำแหน่งเซลล์หรือช่วงเซลล์มาด้วยจะยิ่งดีมากเพราะจะได้มองไปยังเซลล์ที่ต้องการเลย เช่น ต้องการให้เซลล์ A1:A3 เป็นเซลล์ที่เลือก Dropdown lils ได้ ต้องการให้ IV65536 เป็นปฏิทินแสดงขึ้นมาเมื่อเอาเมาส์ไปคลิก อย่างนี้เป็นต้นครับ

[palmy]

เรียนอาจารย์คนควนครับ
อยากให้ ใน Sheet หน้าหลัก cell u8, u9, u10, u11 เป็นปฏิทินด้วยครับ พอดีไม่ได้ผนวก cell ไว้น่ะครับ
และ cell I14 ผลผลิตเข้าร่วมโครงการ พอดีต้องตั้งเงื่อนไขเพิ่มเติมครับ ว่า หากผลผลิตทั้งหมดที่เลือก มีแต่พันธุ์ข้าวหอมมะลิ
จะสามารถใช้ผลผลิตเข้าร่วมโครงการได้ 14000 กก. แต่หากมีข้าวเหนียว เพียง 1 ใบรับรอง จะอยู่ลำดับที่เท่าไหร่ก็ได้ จะสามารถใช้
ผลผลิตเข้าร่วมโครงการได้ 16000 กก.ครับ

[snasui]

ลองดูตามไฟล์แนบครับ

สำหรับ J14 เงื่อนไขยังไม่ครบนะครับ ผมเขียนสูตรให้เป็นตัวอย่างไว้ก่อนเป็น

=IF(COUNTIF(Q7:S11,"*มะลิ")=SUMPRODUCT(--(Q7:S11<>"")),14000,IF(COUNTIF(Q7:S11,"ข้าวเหนียว")>0,16000,0))

เงื่อนไขคือ
ถ้าเป็นข้าวหอมมะลิทั้งหมดก็ให้คำตอบเป็น 14000
ถ้ามีข้าวเหนียวอยู่ในนั้นด้วยให้คำตอบเป็น 16000
ถ้าไม่มีข้าวเหนียวและข้าวหอมมะลีให้คำตอบเป็น 0

สำหรับเงื่อนไขล่าสุดคุณต้องเปลี่ยนให้เป็นตามที่เป็นจริงครับ

[palmy]

โหลด file ไม่ได้ครับ

[snasui]

ผมโหลดได้ปกติครับ

[palmy]

โหลดได้แล้วครับ เดี๋ยวลองทำใช้งานดูอีกทีครับ
ขอบคุณอาจารย์ครับ

[palmy]

ขอโทษครับอาจารย์คนควน
พอดีอธิบายเรื่องเงื่อนไข cell j14 ผิดครับ
คือ cell m14 จะคำนวณปริมาณผลผลิตที่ได้ทั้งหมดจากทั้ง 5 ใบรับรอง ทำสูตรคำนวณไว้แล้ว
แล้ว cell j14 จะตรวจสอบปริมาณน่ะครับ ว่าหากทั้ง 5 ใบรับรอง ไม่มีข้าวเหนียว
มีแต่ข้าวมะลิ จะมีผลผลิตเข้าร่วมโครงการได้ไม่เกิน 14000 กก. คือถ้าผลผลิตเกิน 14000 ก็เข้าร่วมได้แค่ 14000
แต่ถ้าไม่ถึง 14000 ก็เข้าร่วมได้แค่เท่าที่มี
หากมีข้าวเหนียว จะมีผลผลิตเข้าร่วมโครงการได้ไม่เกิน 16000 กก. คือถ้ารวมแล้วผลผลิตเกิน 16000 กก ก็เข้าร่วมได้แค่ 16000
แต่ถ้ารวมแล้วไม่ถึง 16000 ก็เข้าร่วมได้เท่าที่มีน่ะครับ
รบกวนอาจารย์แนะนำสูตรให้อีกทีครับ

[snasui]

ลองปรับสูตรที่ J14 ตามนี้ครับ

=IF(COUNTIF(Q7:S11,"*มะลิ")=SUMPRODUCT(--(Q7:S11<>"")),MIN(14000,M14),IF(COUNTIF(Q7:S11,"ข้าวเหนียว")>0,MIN(M14,16000),0))

Enter

[palmy]

อาจารย์ครับ ปฏิทินที่ตั้งในSheet หน้าหลัก cell u8, u9, u10, u11 พอเลือกวันที่แล้ว
ได้ พ.ศ. เป็น 2443 หรือตั้งค่า ค.ศ. ได้ค่า 1900
มันไม่เป็น 2553 หรือ 2010 น่ะครับ ต้องตั้งค่าอะไรเพิ่มเติมไหมครับ

[snasui]

ที่ทำมานั้นแสดงเป็นวันที่อย่างเดียวครับ หากต้องการให้ให้แสดงวันเดือนปี ให้เข้าไปกำหนด Code ในชีทหน้าหลักเป็นด้านล่างครับ

Code: Select all

Private Sub Calendar1_Click()
ActiveCell.Value = Calendar1.Value
End Sub

[palmy]

แก้ไขได้แล้วครับ
ตอนนี้นำไปใช้ทุกวัน ก็จะเจอปัญหาบ้าง
แล้วก็นำมาถามอาจารย์
ได้ความรู้มากเลย
ขอบคุณที่ช่วยแนะนำครับ

[palmy]

เรียนถามอาจารย์ครับ
จากสูตร
=INDEX(ฐานข้อมูล!$C$2:$C$35000,MATCH(F4,ฐานข้อมูล!$E$2:$E$35000,0))
หากเราป้อนค้าเพื่อให้ค้นหา ถ้าไม่พบข้อมูล หรือ cell ว่าง มันจะขึ้นสัญลักษณ์ #N/A
ที่นี้ผมอยากให้เมื่อป้อนข้อมูลต้นทางแล้วค้นหาไม่พบข้อมูล หรือ cell ว่างไม่ได้ป้อนข้อมูล
ก็ให้celll นี้แสดงผลเป็นว่าง น่ะครับ
เราจะเพิ่มเงื่อนไขในสูตรอย่างไรครับ

[snasui]

สามารถใช้สูตรนี้ได้ครับ

=If(Isna(MATCH(F4,ฐานข้อมูล!$E$2:$E$35000,0)),INDEX(ฐานข้อมูล!$C$2:$C$35000,MATCH(F4,ฐานข้อมูล!$E$2:$E$35000,0)))

Enter

[palmy]

ลองใส่สูตรแล้วมันขึ้น FALSE ครับ
และขอเพิ่มอีกสูตรด้วยครับเช่นให้แสดงข้อความที่ต้องการ เช่น "ไม่พบข้อมูล"
จะได้ลองอีกแบบนอกเหนือจากแสดง cell ว่างครับ

[snasui]

ลองใส่สูตรแล้วมันขึ้น FALSE ครับ
และขอเพิ่มอีกสูตรด้วยครับเช่นให้แสดงข้อความที่ต้องการ เช่น "ไม่พบข้อมูล"
จะได้ลองอีกแบบนอกเหนือจากแสดง cell ว่างครับ

ผมเขียนตกไปครับ จาก

สามารถใช้สูตรนี้ได้ครับ

=If(Isna(MATCH(F4,ฐานข้อมูล!$E$2:$E$35000,0)),INDEX(ฐานข้อมูล!$C$2:$C$35000,MATCH(F4,ฐานข้อมูล!$E$2:$E$35000,0)))

Enter

เปลี่ยนเป็น

=If(Isna(MATCH(F4,ฐานข้อมูล!$E$2:$E$35000,0)),"",INDEX(ฐานข้อมูล!$C$2:$C$35000,MATCH(F4,ฐานข้อมูล!$E$2:$E$35000,0)))

หากต้องการเปลี่ยนค่าว่างเป็นไม่พบข้อมูล แทนค่าเครื่องหมาย "" ด้วย "ไม่พบข้อมูล" ครับ

[palmy]

จากโปรแกรมที่ให้อาจารย์ช่วยดู
ในส่วนของsheetฐานข้อมูล จะทำไอคอนไว้สร้างลำดับที่จะใช้เป็น INDEX
แต่พอมีข้อมูลเยอะมากขึ้น การสร้างลำดับก็จะต้องใช้เวลานานมาก
มีวิธีใดที่พอจะช่วยลดระยะเวลาในการสร้างลำดับตรงนี้ได้บ้างครับ

[snasui]

ลองปรับ Code เป็นตามด้านล่างครับ

Code: Select all

Private Sub cmdINDEX_Click()
   Dim i As Long
   Application.Calculation = xlManual
        For i = 1 To Range("B65536").End(xlUp).Row - 1
            If Cells(i + 1, 2) = "" Then Exit For
            Cells(i + 1, 1) = i
        Next i
    Application.Calculation = xlAutomatic
End Sub

[palmy]

เรียนอาจารย์คนควน
ช่วยดูPrograme ให้ด้วยครับ
ในSheetหน้าหลัก ช่วงเลขที่ใบรับรอง
F7ถึง F11 ที่อาจารย์ทำให้เป็น List รายการลงมาให้เลือก
พอดีวันนี้นำออกไปใช้ มันไม่ดึงรายการมา
มันแสดงรายการเดียว ก็เลยปรับแก้ไขให้ใช้งานได้ก่อน
รบกวนอาจารย์ช่วยแก้ไขสูตรให้ด้วยครับ ดึงเลขที่ใบรับรอง
ของลูกค้าคนนี้มาทั้งหมดให้คลิ๊กเลือกน่ะครับ

[snasui]

เป็นการทำ Validation ครับ

การทำ Validation เข้าไปดูตัวอย่างในไฟล์ตาม Link http://www.snasui.com/viewtopic.php?p=2919#p2919 โดย

1. ดาวน์โหลดแล้วเปิดไฟล์
2. ที่ชีทหน้าหลักคลิกเซลล์ F7
3. เข้าเมนู Data > Validation > สังเกตการกำหนดค่า
4. ปรับใช้กับไฟล์ปัจจุบัน