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 โดยตามลำดั...

เงื่อนไข มีคะแนน 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" โดยเงื่อ...

: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$1000...

ลองดูครับ 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 "dat...

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 S...

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 จะให้ C...

: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 No...

:D ต้องแยกปุ่มกัน Start กับ Stop จะเรียกพร้อมกันไม่ได้ครับ หากต้องการจะเรียกจากปุ่มเดียวก็จะต้องเขียนให้โปรแกรมทราบว่า เมื่อไดจะ Call Start เมื่อใดจะ Call Stop ครับ คือผมก็ใช่ปุ่มเดียวกัน ใน Sheet ที่ชื่อว่า "CL-MONITOR(1)" Private Sub CommandButton1_Click() With CommandButton1 If .Captio...