Di chuyển hàng vào trang tính sau khi nhập tên trang tính vào hàng bằng VBA trong Microsoft Excel
Câu hỏi:
Khi nhập tên trang tính vào cột D, hàng của mục nhập sẽ được chuyển đến trang tính tương ứng
Trả lời:
Chèn mã sau vào mô-đun Sổ làm việc này.
Private Sub Worksheet_Change(ByVal Target As Range) Dim wks As Worksheet Dim intRow As Integer If Target.Column <> 4 Then Exit Sub If IsEmpty(Target) Then Exit Sub On Error Resume Next Set wks = Worksheets(Target.Value) If Err > 0 Or wks Is Nothing Then MsgBox "Sheet name Not Found!" Exit Sub End If On Error GoTo 0 With wks intRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1 .Range(.Cells(intRow, 1), .Cells(intRow, 3)).Value = _ Range(Cells(Target.Row, 1), Cells(Target.Row, 3)).Value End With Rows(Target.Row).Delete End Sub