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

[tieuthubuongbinh]

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

 

[CHAOQUAY]

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

Tức là nhấn 1 lần chạy song song cả 2 sub?

 

[leonguyenz]

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

Tạo 1 Button rồi nhét cả 2 Sub kia vào, ví dụ như:

Call sub1
Call sub2

 

[snow25]

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

Viết 1 sub mới gọi 2 cái đó vào làm việc là xong.

 

[VetMini]

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

 

[tieuthubuongbinh]

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()

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

 

[tam888]

Em viết code vầy đúng ko ạ? Giả sử tên sub 1 là A(), 2 là B()

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

 

[tieuthubuongbinh]

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 ạ.

 

[LamNA]

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

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

 

[VetMini]

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.

 

[tieuthubuongbinh]

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 ạ

Sub Clean()
Worksheets("Pend").Range("A5:S999").ClearContents
End Sub

 

[befaint]

 

[snow25]

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 ạ

Sub Clean()
Worksheets("Pend").Range("A5:S999").ClearContents
End Sub

Để clear thôi là được.

 

[tieuthubuongbinh]

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

 

[ThangCuAnh]

Tự mở mail, get attached files hả bạn?
Kinh thế, ý tưởng phong phú quá, em thua

 

[tieuthubuongbinh]

Tự mở mail, get attached files hả bạn?
Kinh thế, ý tưởng phong phú quá, em thua

Hihi mình tưởng VBA làm được hết haha