Excel Forum

ฟอรัม Excel, VBA และอื่นๆ ของคนไทยเพื่อประโยชน์ของทุกคนในจักรวาล (Forum Excel, VBA and others of Thai people for everyone in the universe.)
http://snasui.com/

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

http://snasui.com/viewtopic.php?t=509

Page 1 of 3

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

Posted: Sat Nov 20, 2010 6:15 pm
by palmy
เรียนอาจารย์คนควนครับ
ต้องแก้ไขโปรแกรมเพิ่มเติมน่ะครับ รบกวนอาจารย์ช่วยแนะนำด้วยครับ
รายละเอียดอยู่ใน Sheet ครับ เขียนอธิบายไว้ รบกวนด้วยครับ

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

Posted: Sun Nov 21, 2010 7:31 am
by snasui
:D ลองดูตามไฟล์แนบครับ

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

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

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

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

Posted: Mon Nov 22, 2010 6:13 pm
by snasui
:D ลองดูตามไฟล์แนบครับ

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

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

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

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

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

Posted: Mon Nov 22, 2010 11:00 pm
by palmy
โหลด file ไม่ได้ครับ

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

Posted: Mon Nov 22, 2010 11:03 pm
by snasui
:o ผมโหลดได้ปกติครับ :mrgreen:

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

Posted: Mon Nov 22, 2010 11:05 pm
by palmy
โหลดได้แล้วครับ เดี๋ยวลองทำใช้งานดูอีกทีครับ
ขอบคุณอาจารย์ครับ

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

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

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

Posted: Mon Nov 22, 2010 11:50 pm
by snasui
:D ลองปรับสูตรที่ J14 ตามนี้ครับ

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

Enter :mrgreen:

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

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

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

Posted: Tue Nov 23, 2010 5:48 pm
by snasui
:D ที่ทำมานั้นแสดงเป็นวันที่อย่างเดียวครับ หากต้องการให้ให้แสดงวันเดือนปี ให้เข้าไปกำหนด Code ในชีทหน้าหลักเป็นด้านล่างครับ :mrgreen:

Code: Select all

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

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

Posted: Tue Nov 23, 2010 11:24 pm
by palmy
แก้ไขได้แล้วครับ
ตอนนี้นำไปใช้ทุกวัน ก็จะเจอปัญหาบ้าง
แล้วก็นำมาถามอาจารย์
ได้ความรู้มากเลย
ขอบคุณที่ช่วยแนะนำครับ

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

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

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

Posted: Wed Nov 24, 2010 6:43 pm
by snasui
:D สามารถใช้สูตรนี้ได้ครับ

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

Enter :mrgreen:

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

Posted: Wed Nov 24, 2010 7:50 pm
by palmy
ลองใส่สูตรแล้วมันขึ้น FALSE ครับ
และขอเพิ่มอีกสูตรด้วยครับเช่นให้แสดงข้อความที่ต้องการ เช่น "ไม่พบข้อมูล"
จะได้ลองอีกแบบนอกเหนือจากแสดง cell ว่างครับ

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

Posted: Wed Nov 24, 2010 7:58 pm
by snasui
palmy wrote:ลองใส่สูตรแล้วมันขึ้น FALSE ครับ
และขอเพิ่มอีกสูตรด้วยครับเช่นให้แสดงข้อความที่ต้องการ เช่น "ไม่พบข้อมูล"
จะได้ลองอีกแบบนอกเหนือจากแสดง cell ว่างครับ
:o ผมเขียนตกไปครับ จาก
snasui wrote::D สามารถใช้สูตรนี้ได้ครับ

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

Enter :mrgreen:
เปลี่ยนเป็น

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

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

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

Posted: Wed Nov 24, 2010 10:41 pm
by palmy
จากโปรแกรมที่ให้อาจารย์ช่วยดู
ในส่วนของsheetฐานข้อมูล จะทำไอคอนไว้สร้างลำดับที่จะใช้เป็น INDEX
แต่พอมีข้อมูลเยอะมากขึ้น การสร้างลำดับก็จะต้องใช้เวลานานมาก
มีวิธีใดที่พอจะช่วยลดระยะเวลาในการสร้างลำดับตรงนี้ได้บ้างครับ

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

Posted: Wed Nov 24, 2010 11:13 pm
by snasui
:D ลองปรับ 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
:mrgreen:

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

Posted: Thu Nov 25, 2010 5:41 pm
by palmy
เรียนอาจารย์คนควน
ช่วยดูPrograme ให้ด้วยครับ
ในSheetหน้าหลัก ช่วงเลขที่ใบรับรอง
F7ถึง F11 ที่อาจารย์ทำให้เป็น List รายการลงมาให้เลือก
พอดีวันนี้นำออกไปใช้ มันไม่ดึงรายการมา
มันแสดงรายการเดียว ก็เลยปรับแก้ไขให้ใช้งานได้ก่อน
รบกวนอาจารย์ช่วยแก้ไขสูตรให้ด้วยครับ ดึงเลขที่ใบรับรอง
ของลูกค้าคนนี้มาทั้งหมดให้คลิ๊กเลือกน่ะครับ

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

Posted: Thu Nov 25, 2010 5:54 pm
by snasui
:D เป็นการทำ Validation ครับ

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

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

Powered by phpBB® Forum Software © phpBB Limited