Hướng dẫn viết VBA Excel chạy trên ứng dụng VB6

[emutbinhdinh]

Cảm ơn các bạn thật nhiều

[xuanha]

Trong Word mình tô đen 1 đoạn văn bản, rồi xác định có bao nhiêu chữ a hoặc số 10 thì code VBA của word viết sau ạ
(http://www.caulacbovb.com/forum/viewtop ... 15&t=21600) coi tới lui các bài viết nhưng trình độ yếu nên chưa biết cách làm !

Code như dưới đây:

Code: [Select all] [Expand/Collapse] [Download]

1. Function demchu(X$) As Integer
2. Dim i%, dem%
3. For i = 1 To Len(X$)
4. If Mid(X$, i, 1) = "a" Then dem = dem + 1
5. Next
6. demchu = dem
7. End Function
8.  
9. 'Gọi hàm (tạo Macro)
10. Sub Dem()
11. MsgBox demchu(Selection.Text)
12. End Sub

GeSHi © Codebox Plus