Snasui Excel Forum

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("G7").Select
     End Sub

Code: Select all

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

Code: Select all

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

Code: Select all

 Sub FillColumn2()
 ' Codeที่กำลังปรับแก้
     Dim lastRow As Long
    With Worksheets("Time")
        lastRow = Application.CountIf(Range("d2:d" & Cells(Rows.Count, 4).End(xlUp).Row), ">""")
        ActiveCell.Resize(lastRow, 1).Select
        Selection.Value = "/"
'        .Range(.Cells(Selection.Row, Selection.Column), .Cells(lastRow, Selection.Column)).Value = "/"
'        Range("G7").Select
        Selection.Offset(0, 1).Select
    End With
End Sub

Code: Select all

'Other code
Selection.Cells(1).Offset(0, 1).Select
'Other code

Code: Select all

Sub FillColumn()
    Dim lastRow As Long
    Dim i As Long, r As Range, j As Long
    With Worksheets("Time")
        Set r = .Range("d7")
        Do While r.Offset(i, 0).Value <> ""
            i = i + 1
        Loop
        lastRow = r.Offset(i - 1, 0).Row
        If Selection.Row <= lastRow Then
            .Range(Selection, .Cells(lastRow, Selection.Column)).Value = "/"
            Selection.Offset(0, 1).Select
        End If
    End With
End Sub

Code: Select all

:D ตรวจสอบการ Locked ได้ครับ
if x.locked then exit sub

Code: Select all

Sub FillColumn2()
    Dim lastRow As Long
    Dim i As Long, r As Range, j As Long
    With Worksheets("Time")
        Set r = .Range("d7")
        Do While r.Offset(i, 0).Value <> ""
            i = i + 1
        Loop
          lastRow = r.Offset(i - 1, 0).Row
        If Selection.Row <= lastRow Then
            .Range(Selection, .Cells(lastRow, Selection.Column)).Value = "/"
            Selection.Offset(0, 1).Select
            If Range(Selection, .Cells(lastRow, Selection.Column)).Locked = True Then Exit Sub
        End If
    End With
End Sub

Code: Select all

'Other code...
If Selection.Row <= lastRow Then
    .Range(Selection, .Cells(lastRow, Selection.Column)).Value = "/"
    If Selection.Offset(0, 1).Locked Then Exit Sub
    Selection.Offset(0, 1).Select
'    If Range(Selection, .Cells(lastRow, Selection.Column)).Locked = True Then Exit Sub
End If
'Other code...