• Vui lòng đọc nội qui diễn đàn để tránh bị xóa bài viết
  • Tìm kiếm trước khi đặt câu hỏi

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

Các bài viết hướng dẫn, giúp các bạn hiểu và tiếp cận với Visual Basic nhanh hơn
emutbinhdinh
Posts: 1
Joined: Thu 22/05/2014 9:47 am

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

Postby emutbinhdinh » Thu 22/05/2014 9:58 am

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



User avatar
xuanha
Guru
Guru
Posts: 1230
Joined: Thu 19/08/2010 4:25 pm
Location: Ban Tổ chức Thành uỷ Hưng Yên, tỉnh Hưng Yên
Has thanked: 13 times
Been thanked: 380 times
Contact:

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

Postby xuanha » Thu 22/05/2014 3:22 pm

hungtiensinh wrote: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:
  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
Kiểm phiếu Đại hội Đoàn, Đại hội Đảng
http://caulacbovb.com/forum/viewtopic.php?t=23599


Return to “[VB] Bài viết hướng dẫn”

Who is online

Users browsing this forum: No registered users and 2 guests