Snasui Excel Forum

Posted: **Sat Jul 03, 2021 1:42 pm**

จากไฟล์ที่แนบมา
เป็นการเช็คชื่อนักเรียน
เมื่อนำเมาส์คลิกเลือกเซล F7 K7 หรือ P7 (เป็นจุดเริ่มต้นการเช็ค)
แล้วคลิกปุ่ม "เช็คเวลาเรียน" ก็จะเติม / ให้ครบตามจำนวนนักเรียนที่มีให้ครบทุกคน

ที่ต้องการคือ เมื่อกดปุ่ม "เช็คเวลาเรียน" เสร็จแล้ว
ให้เซลในแถวที่ 7 (เช่น F7 ,K7 หรือ , P7) ถูก Select
จะเขียนโค๊ดอย่างไรครับ

Code: Select all

Sub FillColumn()
 Dim lastRow As Long
lastRow = Application.CountIf(Range("d2:d" & Cells(Rows.Count, 4).End(xlUp).Row), ">""")
    ActiveCell.Resize(lastRow, 1).Select
    Selection.Value = "/"
    'Range("F7").Select
 End Sub

Posted: **Sat Jul 03, 2021 1:47 pm**

ตัวอย่าง Code ครับ

Code: Select all

'Other code
Range("F7,K7,P7,U7,Z7,AE7").Select
'Other code

Posted: **Tue Jul 06, 2021 3:05 pm**

ขอบคุณครับผม

Snasui Excel Forum

ขอคำแนะนำ CodeVB เติมเครื่องหมาย / ลงในเซล

ขอคำแนะนำ CodeVB เติมเครื่องหมาย / ลงในเซล

Re: ขอคำแนะนำ CodeVB เติมเครื่องหมาย / ลงในเซล

Re: ขอคำแนะนำ CodeVB เติมเครื่องหมาย / ลงในเซล