hoanganhcuong87
Thành viên mới
- Tham gia
- 28/3/10
- Bài viết
- 20
- Được thích
- 4
Giúp mình chuyển đoạn code từ VBA này sang VSTO( Vb.net hoặc C#- C# càng tốt nha):
Mong mọi người giúp mình với nha!
PHP:
Private Sub Worksheet_Change(ByVal Target As Range) '
Dim tim As Range
If Not Application.Intersect(Target, [c7:c17]) Is Nothing Then
Set tim = Sheet2.[b3:b10].Find(Target, LookAt:=xlWhole)
If tim Is Nothing Then
frmcsdl.Show
Else
Target.Offset(, 1) = Sheet2.[b3:b10].Find(Target, LookAt:=xlWhole).Offset(, 1)
End If
End If
End Sub
Mong mọi người giúp mình với nha!