nhapmon
Thành viên tích cực
- Tham gia
- 31/10/07
- Bài viết
- 1,179
- Được thích
- 880
Chào các anh các chị cao thủ, nhờ các anh chị chỉ giúp tài liệu nào học nhập môn VB để áp dụng viết macro cho excel.
Tôi có kiếm các tài liệu này ở các nhà sách, nhưng không thấy tài liệu viết riêng cho excel, còn chuyên về VB thi cao siêu quá
Nhờ anh chị nào biết có tài liệu nào dễ dễ học nhập môn chỉ giúp nha
cám ơn nhiều - thanks many thanks
nhap mon
Public Sub FindText()
Dim ws As Worksheet, Found As Range
For Each ws In ThisWorkbook.Worksheets
With ws
If ws.Name = "Sheet3" Then Exit Sub
Set Found = .UsedRange.Find([a1])
If Not Found Is Nothing Then
ActiveCell.Value = Found.Value
End If
End With
Next ws
End Sub
Tôi có kiếm các tài liệu này ở các nhà sách, nhưng không thấy tài liệu viết riêng cho excel, còn chuyên về VB thi cao siêu quá
Nhờ anh chị nào biết có tài liệu nào dễ dễ học nhập môn chỉ giúp nha
cám ơn nhiều - thanks many thanks
nhap mon
Public Sub FindText()
Dim ws As Worksheet, Found As Range
For Each ws In ThisWorkbook.Worksheets
With ws
If ws.Name = "Sheet3" Then Exit Sub
Set Found = .UsedRange.Find([a1])
If Not Found Is Nothing Then
ActiveCell.Value = Found.Value
End If
End With
Next ws
End Sub
Lần chỉnh sửa cuối:
