Thắc mắc về VBA cho người mới tìm hiểu

Liên hệ QC

tieuthubuongbinh

Học hoài vẫn dốt
Tham gia
3/9/08
Bài viết
498
Được thích
340
Giới tính
Nữ
Nghề nghiệp
Planning
Chào các tiền bối,

Em được cho 2 sub và giờ em muốn assign macro cho cả 2 sub trên 1 button thôi thì làm sao ạ?

Thân
TTBB
 
Nhét cái sub này, và assign cho button:

Sub ToTiTe()
Randomize
Select Case (Round(Rnd()*100) Mod 4) ' 100 hay 1000, 10000 cũng được. Số càng lớn càng đều
Case 0
Call Sub1: Call Sub2
Case 1
Call Sub1
Case 2
Call Sub2
Case 3
Call Sub2: Call Sub1
End Select
End Sub
 
Nhét cái sub này, và assign cho button:
Em viết code vầy đúng ko ạ? Giả sử tên sub 1 là A(), 2 là B()
Mã:
Sub Totite()
Randomize
Select Case (Round(Rnd()*100000) Mod 4)
Case 1
Call A()
Call B()
End Select
End sub
Mong bác đừng cười vì em chưa biết gì về VBA :(
 
Lần chỉnh sửa cuối:
Em viết code vầy đúng ko ạ? Giả sử tên sub 1 là A(), 2 là B()
Mã:
Sub Totite()
Randomize
Select Case (Round(Rnd()*100000) Mod 4)
Case 1
Call A()
Call B()
End Select
End sub
Mong bác đừng cười vì em chưa biết gì về VBA :(
Chưa biết thì nên đọc học từ đầu,
Còn chưa biết thì dùng VBA chi cho vất vả,
Bài này thì xem bài viết #3 trên
 
Chưa biết thì nên đọc học từ đầu,
Còn chưa biết thì dùng VBA chi cho vất vả,
Bài này thì xem bài viết #3 trên
Vì khối lượng công việc rất lớn nên mình cần nhờ VBA để giúp giảm bớt việc thao tác manual, có thời gian phân tích nhiều hơn bạn ạ.
 
Vì khối lượng công việc rất lớn nên mình cần nhờ VBA để giúp giảm bớt việc thao tác manual, có thời gian phân tích nhiều hơn bạn ạ.
Có thể hiểu như thế này

Mã:
Sub GoiSub_A()
[A1].Value = "Sub A"
End Sub

Sub GoiSub_B()
[A2].Value = "Sub B"
End Sub

Sub AllSub()
Call GoiSub_A
MsgBox "GoiSub_A thanh cong"
Call GoiSub_B
MsgBox "GoiSub_B thanh cong"
End Sub
 

File đính kèm

  • AllSub.xlsm
    14.6 KB · Đọc: 6
Tôi từ choối không đoán từ viết tắt và tránh giao thiệp với tiếng Tây Ta lẫn lộn.
 
Em lấy được đoạn code này trên mạng và sử dụng được nhưng sao nó không xóa luôn định dạng ô, các bác sửa giúp em với ạ
Mã:
Sub Clean()
Worksheets("Pend").Range("A5:S999").ClearContents
End Sub
 
VBA có thể làm được điều này ko các bác:
File .cvs trong email nhận mỗi ngày cùng 1 giờ cùng tên, cùng cấu trúc dữ liệu
Làm sao để file vba trên folder cố định (tên file cố định) tự cập nhật data của file cvs đó mỗi ngày
Hiện giờ em đang có code ADO để cập nhật nhưng phải lưu file từ email về folder thì mới chạy code
 
Tự mở mail, get attached files hả bạn?
Kinh thế, ý tưởng phong phú quá, em thua ;)
 
Web KT
Back
Top Bottom