ขอคำแนะนำ Code VB เพื่อเติมข้อความลงในช่วงเชลที่เราเลือกไว้

[tigerwit]

ผมได้ทำทดลองบันทึกมาโครแล้วสามารถทำได้ดังไฟล์ตัวอย่างที่แนบมา
เพียงแต่ว่า
หากมีข้อมูลเพิ่มขึ้นอีก 1 แถว หรือสองแถว มันจะทำงานได้แค่จำนวนแถวมีมีอยู่เดิมเท่านั้น
จะต้องเพิ่มเติมแก้ไข Code อย่างไรครับ

[puriwutpokin]

ตัวอย่างโค้ดครับ

Code: Select all

'Other...
Dim lastRow As Long
lastRow = Cells(Rows.Count, 1).End(xlUp).Row
   Range("B2:N" & lastRow).Select
'Other...

[tigerwit]

ขอบคุณครับ
รบกวนถามต่อครับ กรณีที่เราต้องการเช็คในแต่แต่แถวเอง โดยที่เราคลิกเลือกเซลเองเช่น
คลิกเลือก เซล E2 ก็ให้เติมลงเฉพาะ คลอลัมน์ E
คลิกเลือก เซล H2 ก็ให้เติมลงเฉพาะ คลอลัมน์ H
จะปรับ Code อย่างไรครับ

Code: Select all

 Sub FillColumn()
 Dim lastRow As Long
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    Range("B2:N" & lastRow).Select
    Selection.Value = "/"
 End Sub

[puriwutpokin]

ต้องใช้เป็น Event โดยไปที่ชีทนั้นๆ ครับ แล้วว่างโค้ดตามนี้

Code: Select all

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim lastRow As Long
lastRow = cells(Rows.Count, 1).End(xlUp).Row - 1
If Not Intersect(Target, Range("B2:N2")) Is Nothing Then
   ActiveCell.Resize(lastRow, 1).Value = "/"
End If
End Sub

[tigerwit]

ขอบคุณครับ
ตอนนี้เมื่อเอาไปประยุกต์ใช้กับไฟล์จริงก็พบปัญหา
จากไฟล์ที่แนบ พบว่า Code ที่เขียนในชีท time จะอ่านค่าในคลอลัมน์ที่ 1 รวมที่เป็นสูตรที่เชื่อมโยงมาจากชีท Data ด้วย
เมื่อรัน Code จึงมีข้อมูล(/) ที่ใส่ลงในเซลเกินกว่ารายชื่อนักเรียน
จะแก้ไขอย่างไรครับ

Code: Select all

Sub FillColumn2()
 Dim lastRow As Long
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row - 1
    ActiveCell.Resize(lastRow, 1).Select
    Selection.Value = "/"
 End Sub

[puriwutpokin]

ปรับส่วนนี้ดูครับ

Code: Select all

lastRow = Application.CountIf(Range("a2:a" & Cells(Rows.Count, 1).End(xlUp).Row), ">""")

[tigerwit]

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

[snasui]

กรุณา Update รุ่นของ Excel ที่ใช้ในปัจจุบันตาม Link นี้ด้วยครับ viewtopic.php?f=6&p=103177#p103177