Ðề:Chỉ có thể tự động bằng macro sự kiện tại cột 'H', bạn đồng í?
/(/ếu OK thì bạn copy toàn bộ nội dung dưới đây vô bộ nhớ trung gian:
Mã nguồn PHP:
[COLOR=#000000]
Option Explicit
[/COLOR][COLOR=#007700]Const [/COLOR][COLOR=#0000BB]MaxRows [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Long [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]999
[/COLOR][COLOR=#007700]Private [/COLOR][COLOR=#0000BB]Sub Worksheet_Change[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]ByVal Target [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700])
If [/COLOR][COLOR=#0000BB]Not Intersect[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Target[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"H2:H" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]MaxRows[/COLOR][COLOR=#007700])) [/COLOR][COLOR=#0000BB]Is Nothing Then
With ThisWorkbook[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Worksheets[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"On-board"[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Cells[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]MaxRows[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]"B"[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]End[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]xlUp[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Offset[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700])
.[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Target[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Offset[/COLOR][COLOR=#007700](, -[/COLOR][COLOR=#0000BB]6[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#DD0000]'<=| Name'
'DOB & ID No.:'
[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Offset[/COLOR][COLOR=#007700](, [/COLOR][COLOR=#0000BB]3[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Resize[/COLOR][COLOR=#007700](, [/COLOR][COLOR=#0000BB]2[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Target[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Offset[/COLOR][COLOR=#007700](, -[/COLOR][COLOR=#0000BB]5[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Resize[/COLOR][COLOR=#007700](, [/COLOR][COLOR=#0000BB]2[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value
End With
End [/COLOR][COLOR=#007700]If
[/COLOR][COLOR=#0000BB]End Sub
[/COLOR]
& fải chuột lên thanh SheetName & chọn dòng cuối của cửa sổ vừa xuất hiện (CS VBE trong E2003)
Tiếp theo, bạn dán thứ copy được vô đó.
Bạn thử đánh hay nhập gì đó vô dòng nào tại cột 'H' để xem macro làm việc.
(Hướng dẫn bảo trì: Khi dữ liệu vừa vượt 900 dòng thì bạn tăng số 999 thêm 1 con số 9 nữa, để ngủ khỏe hơn trong tháng!)
(& những mong khỏi gở file lên!)
(húc thành công!
Những nếp nhăn rãnh mũi má tuy không ảnh hưởng đến sức khỏe, không phải là vấn đề xuống cấp quá nghiêm trọng nhưng lại khiến khuôn mặt trở thành kém sắc, già nua trước tuổi. Cộng thêm tác động cơ học...
Trẻ hóa khuôn mặt - Mẹo nhỏ khắc trị 'râu rồng' (17)