Excel Forum

logic wrote: Fri Jul 06, 2018 4:34 pm

Tanasan wrote: Fri Jul 06, 2018 10:45 am

snasui wrote: Wed Jul 04, 2018 8:13 pm ช่วยกรอกค่าที่ถูกต้องลงมาในไฟล์แนบด้วยจะได้สะดวกต่อการทำความเข้าใจครับ

New report.xlsx
ผมลองใส่ค่ามาให้แล้วครับ

ไม่เห็นมีตัวอย่างคำตอบในชีต format ครับ

ขอโทษด้วยครับ พอดีไม่ได้ใส่ใน format

snasui wrote: Wed Jul 04, 2018 8:13 pm ช่วยกรอกค่าที่ถูกต้องลงมาในไฟล์แนบด้วยจะได้สะดวกต่อการทำความเข้าใจครับ

ผมลองใส่ค่ามาให้แล้วครับ

:D สูตรที่เขียนมาเป็นการคลุมแบบตาราง คือ base!C$26:KP$26

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


ต้องการให้แสดงค่าในคอลัมน์ D26:Q26 จะแสดงใน Sheet"Format" ที่คอลัมน์ AM12:BA12
โดยตามลำดับ R26 ...

เงื่อนไข
มีคะแนน 1 วิชา หรือ หลายกว่า 1 วิชา<3 ถือว่าได้ F
มีคะแนน 4 จำนวน 1 หา 2 วิชาได้ C
ได้คะแนน 5 ขื้นหมด ถือว่าได้ A
จะใช้สูตรอย่างไรครับ
รบกวนครับ
ผ่านมาผมเขียนแบบ column J ให้เขา เขาว่ายาว
มาก ทำสูตรสั้นกว่านี้ได้เปล่า ผมเลยทำให้เขาไม่ได้
ครับ


ถ้าคุณเขียน สูตรมาคร่าวๆ และอธิบายรายละเอ ...

=IFERROR(INDEX(base!C$26:KP$26,SMALL(IF(base!$A$26:$A$1000=$AP$3,ROW(base!$A$26:$A$1000)-ROW(base!$A$26)+1),ROWS(AM$12:AM12))),"")

จาก Sheet "Format" จะเป็นฟอร์มที่ให้ แสดงค่าตามเงื่อนไข
คือนำข้อมูลจาก Sheet "base" มากำหนดเงื่อนไข ลงใน Sheet "Format"

โดยเงื่อนไขจะอ้างอิงจาก คอลัมน์ AP3 และ AP5 ถ ...

:D ปรับสูตรใหม่เป็นตามด้านล่างครับ

=IFERROR(INDEX(INDEX(data!$BK5:$BL$1000,0,MATCH($U$2,data!$BK$4:$BL$4,0)),SMALL(IF(data!$B$5:$B$1000=$R$2,ROW(data!$B$5:$B$1000)-ROW(data!$B$5)+1),ROWS(O$9:O9))),"")

Ctrl+Shift+Enter > Copy ลงด้านล่าง

ได้แล้วครับ
ขอบพระคุณมากๆครับอาจารย์

ผมยังเหลืออีกหลาย ...

:D สูตรควรเป็นตามด้านล่างครับ

=IFERROR(INDEX(data!BK$5:BK$1000,SMALL(IF(data!$B$5:$B$1000=$R$2,ROW(data!$B$5:$B$1000)-ROW(data!$B$5)+1),ROWS(O$9:O9))),"")

Ctrl+Shift+Enter > Copy ลงด้านล่าง

หรือหากต้องการคำตอบเป็นอื่นใด กรุณาแจ้งรายละเอียดมาใหม่ครับ

ขอบคุณมากครับ สำหรับคำตอบ
แต่คำตอบค ...

:D กรุณาแนบไฟล์ที่ทำเองแล้วมาด้วยจะได้ช่วยดูได้ครับ

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

การแนบไฟล์ แนบภาพ กรุณาอ่านกฎการใช้บอร์ดข้อ 4 ด้านบนครับ :roll:

ขอโทษด้วยครับ สำหรับการแนบไฟล์

คือผมลองทำกับ Cell อื่นๆ ที่ใช ...

ลองดูครับ

B9 =IFERROR(INDEX(data!AX$5:AX$100,SMALL(IF(data!$B$5:$B$100=$R$2,ROW(data!$B$5:$B$100)-ROW(data!$B$5)+1),ROWS(B$9:B9))),"")

เป็นสูตรอาร์เรย์ต้องกดแป้น ctrl+shift+enter แทนการกด enter ถ้าไม่เห็นปีกกาครอบสูตรแสดงว่ากดแป้นไม่ถูกต้อง สูตรจะใช้ไม่ได้ แล้วค่อยคัดลอกสูตรไปขวาและลงล่างครับ ...

ขอดูไฟล์ที่คีย์สูตรด้วยจะได้เห็นวา่คีย์ถูกต้องหรือไม่ อย่างไรครับ :)

ตอนนี้แสดงผลได้แล้วครับ ผมได้ปรับเปลียนสูตรในการคำนวนหน่อยครับ
เพราะตอนที่ผมนำมาใส่นั้น จำกัดได้แค่ 100 row ซึ่งผมไม่ได้ตรวจทานก่อน
อันนี้ผิดที่ผมจริงๆ ครับ ต้องขอโทษด้วย

=IFERROR(INDEX(data!BI$5:BI$1000,SMALL(IF(data!$B$5:$B ...

ลองดูครับ

B9 =IFERROR(INDEX(data!AX$5:AX$100,SMALL(IF(data!$B$5:$B$100=$R$2,ROW(data!$B$5:$B$100)-ROW(data!$B$5)+1),ROWS(B$9:B9))),"")

เป็นสูตรอาร์เรย์ต้องกดแป้น ctrl+shift+enter แทนการกด enter ถ้าไม่เห็นปีกกาครอบสูตรแสดงว่ากดแป้นไม่ถูกต้อง สูตรจะใช้ไม่ได้ แล้วค่อยคัดลอกสูตรไปขวาและลงล่างครับ ...

สวัสดีครับ ท่านอาจารย์และเพื่อนๆ
ผมติดปัญหาการใช้สูตร หรือ code VBA ในการเขียนออกมาให้ใช้งานได้ตามที่ต้องการ
ผมอยากจะสอบถามเกี่ยวกับสูตรครับ ว่าไฟล์ที่แนบมานี้ผมควรจะใช้สูตรอะไรครับ

ปัญหา ณ ปัจจุบัน
ผมมี Sheet "data" ที่เป็นข้อมูลเปรียบเป็น Database และผมต้องการดึงข้อมูลจาก Sheet "data" ไปใส่ไว ...

If Sheet3.ComboBox4 = "1" And Sheet5.Range("D4").Value = 7 And Sheet5.Range("E4").Value = 30 Then
Sheet3.ComboBox4 = ("2")
End If

If Sheet3.ComboBox4 = "2" And Sheet5.Range("D4").Value = 7 And Sheet5.Range("E4").Value = 30 Then
Sheet3.ComboBox4 = ("3")
End If

If Sheet3.ComboBox4 = "3" And ...

snasui wrote: กรณีต้องการส่งค่ามาเพื่อเปลี่ยนค่าในเซลล์ แสดงว่าควรดักด้วย Worksheets_Change ไม่ใช่ WorkSheet_SelectionChange ครับ

ครับ ขอบคุณมากครับ
เดี๋ยวผมจะลองดูครับ

:D การใช้เวลามาเป็น Event ในการเปลี่ยนค่าใน ComboBox จะมี 2 ลักษณะเป็นอย่างน้อยครับ

แบบแรกเปลี่ยนค่าใน ComboBox เมื่อถึงกำหนดเวลานั้นและต้องเปิดไฟล์อยู่ตลอดเวลา Code ที่ใช้จะเป็นการ Code ลักษณะการจับเวลา

แบบที่สองคือ เมื่อเปิดไฟล์ค่อยตรวจสอบแล้วเปลี่ยนค่าใน ComboBox

การเขียน Code จะยากง่ายต่างก ...

:D การใช้เวลามาเป็น Event ในการเปลี่ยนค่าใน ComboBox จะมี 2 ลักษณะเป็นอย่างน้อยครับ

แบบแรกเปลี่ยนค่าใน ComboBox เมื่อถึงกำหนดเวลานั้นและต้องเปิดไฟล์อยู่ตลอดเวลา Code ที่ใช้จะเป็นการ Code ลักษณะการจับเวลา

แบบที่สองคือ เมื่อเปิดไฟล์ค่อยตรวจสอบแล้วเปลี่ยนค่าใน ComboBox

การเขียน Code จะยากง่ายต่างก ...

ใน Sheet"record process" Combobox4 ผมต้องการให้ค่าเปลี่ยนจาก 1 เป็น 2 , จาก2 เป็น 3 , จาก 3 เป็น 4
ตามเวลาที่รับค่าเข้ามาจาก PLC ซึ่งจะอยู่ใน Sheet"DATA IO" Cell D4:E4

ตัวอย่างเช่น ปัจจุบัน Sheet"DATA IO" Cell D4:E4 อยู่ในช่วงเวลา 03:00 พอครบเวลาที่กำหนดคือ 7:30 จะให้ ComboBox4 ใน Sheet "record ...

:D การจะวางไว้ที่บรรทัดใดแล้วได้หรือไม่ได้ผมไม่ได้ทดสอบโดยละเอียดครับ เพียงแต่เห็นว่าความต้องการหลักคือต้องการที่จะกำหนดการจับเวลาหรือหยุดจับเวลา ดังนั้น จึงยกมาให้ทำงานเสียก่อน

โค้ดที่แนบมาเป็นการจัดการกับ Object ของ Worksheet อีกหลาย ๆ อย่างอาจจะกระทบกับการ Start และ Stop Timer ได้ หากไว้บรรทัดท ...

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

ใน Module2 ปรับ Code ให้เป็น Public โดยลบ Private ออก ตามด้านล่าง

Sub Start_Timer()
'TimerActive = True
Application.OnTime Now() + TimeValue("00:00:01"), "Timer"
End Sub

Sub Stop_Timer()
'TimerActive = False
On Error Resume Next
Application.OnTime Now ...

:D ต้องแยกปุ่มกัน Start กับ Stop จะเรียกพร้อมกันไม่ได้ครับ

หากต้องการจะเรียกจากปุ่มเดียวก็จะต้องเขียนให้โปรแกรมทราบว่า เมื่อไดจะ Call Start เมื่อใดจะ Call Stop ครับ


คือผมก็ใช่ปุ่มเดียวกัน
ใน Sheet ที่ชื่อว่า "CL-MONITOR(1)"
Private Sub CommandButton1_Click()

With CommandButton1
If ...