Ðề: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!
Giả dụ ví dụ phái mạnh vẫn chưa tuột hoặc cắt da quy đầu vẫn hoạt động tình dục thông thường. mặc dầu vậy đối với các tình huống bao quy đầu hẹp và ôm sát lấy dương vật sẽ gây nên biến chứng ít rộng...
Tốn tiền cắt bao quy đầu vẫn "nhanh ra". Bạn trai chua xót tâm sự