Excel Forum

9KiTTi wrote: ↑Wed Nov 04, 2020 3:44 pm

parakorn wrote: ↑Wed Nov 04, 2020 10:54 am แนบไฟล์โค้ด Macro ที่ว่ามาด้วยครับ การ set ภาษาของแต่ล่ะเครื่องไม่เหมือนกัน วิธีแก้ปัญหาแต่ล่ะเครื่องก็อาจจะแตกต่างกันออกไป ต้องลองหลายๆวิธีครับ

ขอโทษครับ ผมใช้ VB ครับ เป็นคำสั่งนำเข้า ผมพิมพ์ผิดครับ

ลองแนบไฟล์มาดูตามกฎข้อ 5 ของบอร์ดครับ
เพื่อนๆจะได้ช่วยกันดูใด้ครับ

มีหลายวิธีครับ ส่วนตัวเคยเขียน VBA เพื่อแสดง Pop-up calendar เวลา user คลิ๊ก Cell พบว่าเวลาส่งไปให้เครื่องอื่นที่มี Version ต่ำกว่าจะใช้งานไม่ได้ แนะนำให้ลองหา Add-ins ที่ Support หลาย Version หรือ ลองศึกษา VBA ดูครับ
ลองค้น Keyword "add-ins calendar in excel" ใน Google ดูก็ได้ครับ

ลองแบบนี้ดูครับ
I4 =COUNT(SEARCH($A$4:$G$4,TRANSPOSE(INDEX(Sheet1!$C$2:$F$37,MATCH(I$2&I$3,Sheet1!$A$2:$A$37&Sheet1!$B$3:$B$37,0),{1,2,3,4}))))
ไม่แน่ใจว่า Version เก่าต้อง ctrl+shift+enter หรือเปล่านะครับ

ขอไฟล์แนบด้วยครับ

Try Solving
=IF(J3=0,"Close","Active")

แนบไฟล์โค้ด Macro ที่ว่ามาด้วยครับ การ set ภาษาของแต่ล่ะเครื่องไม่เหมือนกัน วิธีแก้ปัญหาแต่ล่ะเครื่องก็อาจจะแตกต่างกันออกไป ต้องลองหลายๆวิธีครับ

ตามปกติ คอลัมน์เดือน กับวันที่ ผมก็ใช้เครือ่งหมาย = แล้วไปอ้างอิงเซล แต่ว่าสีตัวอักษร กับสีพื้นมันไม่มาด้วยครับ ต้องทำเป็นแพลทฟอร์ม ครับ ข้อมูลภายใน แพลทฟอร์ม จะใช้สูตรในการดึงมา ดังนั้น เราเพียง Copy Sheet ไปเรื่อยๆ ตามจำนวนที่ต้องการครับ ข้อมูลที่มีเปลี่ยนเราจะใช้สูตรในการอ้างอิงมาทั้งหมด ลองแนบข...

หากเป็น excel2003 ใช้สูตรเช่นไรครับ AA1 =FIND(":",$Z2) AB1 =FIND(":",$Z2,AA1+1) Enter+Copy ไปทางขวาจนถึง AI1 AA2 =IF(MID($Z2,AA$1+1,1)="-","",MID($Z2,AA$1+1,1)) Enter + Copy ไปทางขวาและลงด้านล่าง AJ2 =AA2&AB2&AC2&AD2&AE2&AF2&AG2&AH...

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

ปรับตามนี้ครับ

AM164
=SUM(IF(IF(AC164:AK164<>"",COLUMN($AC$1:$AK$1)-COLUMN($AC$1)+1)=$AB164,1))

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

ลองตัดไฟล์เป็นตัวอย่างให้เพื่อนๆลองทดสอบดูครับ

เข้าไปกำหนด Conditional format โดยยึดจากตัวเลขใน Column D
=IF($D2<0,1,0) กำหนด Format ให้ตัวหนังสือเป็นสีแดง
=IF($D2>0,1,0) กำหนด Format ให้ตัวหนังสือเป็นสีเขียว

ลองปรับตามนี้ครับ
=Pol!R[1]C[-1] เป็น =Pol!R1C2

ลองแบบนี้ครับ
=TEXTJOIN("",TRUE,IFERROR(MID(Z2,IF(--(SUBSTITUTE(MID(Z2,ROW(INDIRECT("1:"&LEN(Z2))),1),{"L","C","W","S"},"|")="|"),ROW(INDIRECT("1:"&LEN(Z2))),""),1),""))

AA2 =MID(Z2,INDEX(FIND({"L","C","W","S"},Z2),MATCH(TRUE,ISNUMBER(FIND({"L","C","W","S"},Z2)),0)),1)

ผลลัพท์ต้องการแค่ บรรทัดเดียวเสมอ หรือ มีหลายบรรทัดกรณีหลายวันครับ Click Sheet "1001" กด Shift ค้างไว้ แล้วคลิ๊ก Sheet "1003" Click E11 > ใส่สูตร =VLOOKUP(--MID(CELL("filename",$A$1),FIND("]",CELL("filename",$A$1))+1,256),รหัสวัสดุ!$B:$F,3+COLUMNS($E...

Ex. J2 =INDEX($A$2:$A$13,SMALL(IF($B$2:$B$13=$G$1,IF($C$2:$C$13=$G$2,ROW($A$2:$A$13)-ROW($A$1))),COLUMNS($J$1:J$1))) Enter & Copy to L2 H2 =LEFT(IF(J2="","",$J2&",")&IF(K2="","",$K2&",")&IF(L2="","",$...

เท่าที่ลองรันโค้ดดู ก็ใช้งานได้ปกตินะครับ แต่โค้ดใส่ Comment ที่ Column L ไม่แน่ใจว่าเป็นเพราะ Version หรือเปล่า ลองรันดูอีกทีแล้วดูที่ Column L ครับ