Excel Forum

ได้ลองแก้แล้วหรือไม่ แก้แล้วได้ผลเป็นอย่างไร ติดขัดตรงส่วนใด ระบุปัญหาที่เป็นแล้วมาได้เลยครับ

ค่อย ๆ ถามตอบกันไป ควรจะแจ้งให้ทราบด้วยว่าสิ่งที่ทำไปแล้วคืออะไร ติดขัดตรงไหน จะได้เข้าถึงปัญหาโดยเร็วและมีโอกาสที่ไม่ต้องรอคอยนานครับ

จาก Statement If r = rFind Then ไม่ทราบว่า rFind คือะไรครับ

:D ที่เขียนเอาไว้แล้วมีปัญหาอะไรครับ :?:

สำหรับการทำงานตามที่อธิบายมา เพื่อให้ง่ายควรสร้าง Template ที่มีการจัดรูปแบบเอาไว้เรียบร้อยแล้วเพื่อพร้อมใช้งาน จากนั้นจะ Loop Question ไปวางใน Template แล้ว Copy Template ไปวางยังบรรทัดล่างของข้อมูลก่อนหน้า จะได้ไม่ต้องทำไปจัด Format ไป

สำหรับการแสดงผลเม ...

:D ตัวอย่างสูตรตามด้านล่างครับ

ที่ C2 คีย์
=IF(B2="","",IFERROR(LOOKUP(2,1/(C$1:C1<>""),C$1:C1),"")&CHAR(10)&"● "&B2)
Enter > Copy ลงด้านล่าง
ที่ D2 คีย์
=IFERROR(LOOKUP(2,1/(C2:C6<>""),C2:C6),"")
Enter

กำหนด Custom Format ตามด้านล่างครับ

1. คลุมข้อมูลที่ต้องการจัด Format > คลิกขวารายการที่คลุม
2. Format Cells...
3. เลือก Custom
4. ที่ช่อง Type: คีย์ [=100]#,##0;#,##0.00
5. คลิกปุ่ม OK

ผมตอบไว้แล้วใน Post ด้านบนครับ

:D ในโอกาสถัดไปจะต้องอธิบายมาให้ทราบว่า Code ปัจจุบันเกิดปัญหาอะไร และต้องลำดับวิธีการทดสอบเพื่อให้ทราบปัญหานั้นมาด้วยจะได้ลดเวลาในการทดสอบครับ

ตัวอย่างการปรับ Code ตามด้านล่างครับ

Sub Login()
Dim ws As Worksheet
Dim userSheet As Worksheet
Dim username As String
Dim password As String
Dim ...

:D ตัวอย่างสูตรในชีต Feb ตามด้านล่าง นำไปปรับใช้กับชีตอื่น ๆ ที่เหลือ โดยต้องขยาย ช่วงเซลล์ในสูตร ให้ตรงกับที่ใช้งานจริง และไม่ลืมที่จะตรึงตำแหน่ง (เครื่องหมาย $) ครับ

ที่ I4 คีย์
=IFERROR(VLOOKUP(B4,'Jan 25'!$B$2:$K$8,8,0),0)+E4
Enter > Copy ลงด้านล่าง
ที่ J4 คีย์
=IFERROR(VLOOKUP(B4,'Jan ...

:D ไม่สามารถจะคลิกแล้ว Print หน้าที่เราคิดไว้เองได้ จะต้องระบุ ยังอีกไกลพอควรที่จะมีเทคโนโลยีอ่านความคิดเราได้ขนาดนั้นครับ :mrgreen:

ในการ Print เราสามารถกำหนดพื้นที่ในการ Print เอาไว้ล่วงหน้าได้ว่าจะ Print พื้นที่ใดโดย


คลุมพื้นที่ที่จะพิมพ์
เข้าเมนู Page Layout > Print Area > Set Print Area ...

เข้าเมนู File > Print แล้วคีย์เลขลำดับหน้าที่จะ Print ได้ตามสะดวกดังภาพครับ

ตัวอย่างสูตรที่ J5 ครับ

=IF(SUM(C5:I5)>100,"",SUM(C5:I5))

Enter > Copy ลงด้านล่าง

ข้อมูลจริงมีถึงบรรทัดที่ 1323 แต่ปรับสูตรให้ครอบคลุมเพียง 700 บรรทัด เพราะเหตุนี้จึงดึงข้อมูลมาไม่ครบครับ

Application.EnableEvents = False
With ActiveSheet
ofs = .Range("d1").Value
:D ปรับ Code ที่ยกมาด้านบนเป็นด้านล่างครับ

Application.EnableEvents = False
With Target.Parent
ofs = .Range("d1").Value

Target คือเซลล์ที่เปลี่ยนค่า ส่วน Target.Parent เป็นการอ้างอิงไปยัง Object ที่มีลำดับชั้นส ...

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

Private Sub Worksheet_Change(ByVal Target As Range)
Dim ofs As Integer
Application.EnableEvents = False
With ActiveSheet
ofs = .Range("d1").Value
If Target.Address = "$D$3" Then
.Range("D2").Value = _
Sheet2.Range("B1").Offset(ofs, 0).Value
.Range("d1").Value ...

มีเหตุผลใดที่ต้องปรับกรุณาแจ้งมาพร้อมตัวอย่างปัญหาครับ

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

:D ตัวอย่างสูตรตามด้านล่างครับ

ที่ C3 คีย์
=VLOOKUP($B3,ข้อมูลกลางที่ใช้สำหรับทุกบริษัท!$A$2:$B$10000,2,0)
Enter > Copy ลงด้านล่าง
ที่ D3 คีย์
=VLOOKUP($B3,ข้อมูลกลางที่ใช้สำหรับทุกบริษัท!$A$2:$C$10000,3,0)
Enter > Copy ลงด้านล่าง
ที่ G3 คีย์
=IF(COUNTIFS(ฐานข้อมูลชื่อในระบบรายบริษัท!$A ...

แจกฟรีไฟล์ติดตามแผ่นดินไหวแบบ Realtime มีปุ่มให้คลิก Refresh เพื่อดูข้อมูลล่าสุดได้ตามสะดวก

:D ตัวอย่างสูตรตามด้านล่างซึ่งกำหนดเอาไว้แค่บรรทัดที่ 100 ควรปรับให้เป็นไปตามข้อมูลจริงครับ

ที่ F1 คีย์
=IFERROR(AGGREGATE(15,6,ROW(input!$C$23:$C$ 100 )/((input!$E$23:$E$ 100 <>"")*(LEN(input!$H$23:$H$ 100 )>0)),ROWS(D$1:D1)),"")
Enter > Copy ลงด้านล่าง
ที่ A1 คีย์
=IF($F1="","",INDEX ...

:D ตัวอย่างสูตรตามด้านล่างครับ

ที่ AG3 คีย์
=IF(COUNTIFS(B3:AF3,"<>")=0,"",COUNTIFS(B3:AF3,"ป"))
Enter > Copy ลงด้านล่าง
ที่ AH3 คีย์
=IF(COUNTIFS(B3:AF3,"<>")=0,"",COUNTIFS($B3:$AF3, "ล"))
Enter > Copy ลงด้านล่าง
ที่ AI3 คีย์
=IF(COUNTIFS(B3:AF3,"<>")=0,"",COUNTIFS($B3:$AF3,"ข ...

:D เซลล์ I3:I7 ไม่มีสูตรสำหรับแสดงค่าออกมาอัตโนมัติครับ

ส่วน A2:F19 สามารถกำหนด Conditional Formatting ได้ โดยสรุปคือ


คลุม A2:F19
เข้าเมนู Home > Conditional Formatting > New Rule
กำหนดสูตรและ Format ไปทีละสีตามเงื่อนไขไปจนครบทุกเงื่อนไข ตัวอย่างกำหนดให้กับเงื่อนไขแรกดังภาพ


หากลองกำหนดแล ...