Ðề: Bẫy lỗi nhập trùng dữ liệu trong phạm vi cột chỉ định thì hiện hộp thoại thông báo
Bạn thử xài macro sự kiện sau; Nó sẽ triệu gọi macro sau bổ trợ việc tìm trùng cho bạn:
:ngugat:
Mã nguồn PHP:
[COLOR=#000000]
Option Explicit
[/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])
[/COLOR][COLOR=#0000BB]Dim Rng [/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]Columns[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"E:E"[/COLOR][COLOR=#007700])) [/COLOR][COLOR=#0000BB]Is Nothing Then
Set Rng [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Columns[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"E:E"[/COLOR][COLOR=#007700])
[/COLOR][COLOR=#0000BB]GPE Rng[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Target[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Value
[/COLOR][COLOR=#007700]ElseIf [/COLOR][COLOR=#0000BB]Not Intersect[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Target[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Columns[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"F:O"[/COLOR][COLOR=#007700])) [/COLOR][COLOR=#0000BB]Is Nothing Then
Set Rng [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Columns[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"f:o"[/COLOR][COLOR=#007700])
[/COLOR][COLOR=#0000BB]GPE Rng[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Target[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Value
End [/COLOR][COLOR=#007700]If
[/COLOR][COLOR=#0000BB]End Sub
[/COLOR]
angcheo:
Mã:
Sub GPE(Rng As Range, Targ)
Dim sRng As Range, MyAdd As String
Set sRng = Rng.Find(Targ, , xlFormulas, xlWhole)
If Not sRng Is Nothing Then
MyAdd = sRng.Address
Do
If sRng.Address <> MyAdd Then
MsgBox MyAdd, , "Chú Ý: Có Trùng"
Exit Sub
End If
Set sRng = Rng.FindNext(sRng)
Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
End If
End Sub
Mọi người chỉ biết rằng trong tinh lực mới chứa tinh trùng. Còn dịch nhờn của đàn ông có tinh trùng không vẫn còn là câu hỏi lớn. Trên thực tế, nam giới khi được tác động, kích thích sẽ sản sinh...
Dịch nhờn của đàn ông có tinh trùng không?