Ðề: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!
Hội y khoa giới tính thế giới định nghĩa xuất tinh sớm là tình trạng rối loạn xuất tinh của nam giới với đặc trưng luôn xuất tinh sớm hơn hoặc trong vòng một phút quan hệ. Bệnh nhân không có khả năng...
Tìm hiểu về loại thuốc dứt điểm bệnh "ra nhanh"