Tạo nút lựa chọn Sub (1 người xem)

[keke355992]

E chào các anh chị. E có 1 file quản lý Kho. E đã viết xong 4 Sub và đặt tên các Sub là Kho_T , Kho_X, Kho_S, Kho_KM . E muốn tạo 1 nút bấm. Mà khi e bấm vào đó, cho phép e đc lựa chọn 1 trong 4 Sub này.
E cảm ơn ạ !!!
P/s: Thực ra là em đã tạo 4 Shape và gài Sub vào rùi. Nhưng e muốn chỉ cần 1 Shape và có sự lựa chọn trên. Mục đích của e là tìm hiểu dần về VBA thôi ạ

 

[haiduong1993]

E chào các anh chị. E có 1 file quản lý Kho. E đã viết xong 4 Sub và đặt tên các Sub là Kho_T , Kho_X, Kho_S, Kho_KM . E muốn tạo 1 nút bấm. Mà khi e bấm vào đó, cho phép e đc lựa chọn 1 trong 4 Sub này.
E cảm ơn ạ !!!
P/s: Thực ra là em đã tạo 4 Shape và gài Sub vào rùi. Nhưng e muốn chỉ cần 1 Shape và có sự lựa chọn trên. Mục đích của e là tìm hiểu dần về VBA thôi ạ

Private Sub CommandButton1_Click()


Warehouse = Application.InputBox(Prompt:="Hello, please type which warehouse you choose : 1_T, 2_X, 3_S, 4_KM", Type:=1)


Select Case Warehouse
Case 1
Call Kho_T
Case 2
Call kho_X
Case 3
Call kho_S
Case 4
Call kho_KT
Case Else
MsgBox "Sorry, that's no warehouse like that"


End Select


End Sub

 

[keke355992]

Cảm ơn bạn @haiduong1993 nhé. Mình làm đc rùi. Cho mình hỏi ngoài cách trên, còn có thêm cách nào ko

 

[seikoqn]

Cảm ơn bạn @haiduong1993 nhé. Mình làm đc rùi. Cho mình hỏi ngoài cách trên, còn có thêm cách nào ko

Có thể dùng Checkbox

 

[ndu96081631]

Cảm ơn bạn @haiduong1993 nhé. Mình làm đc rùi. Cho mình hỏi ngoài cách trên, còn có thêm cách nào ko

Cách đơn giản là:
- Cho mấy tên Sub vào 1 Validation tại 1 cell, chẳng hạn cho vào cell A2
- Xong viết sub chạy đơn giản thế này:

Sub Main()
  On Error Resume Next
  Run Range("A2").Value
End Sub

Khỏi cần InputBox, MsgBox.. gì cho rối

 

[keke355992]

E cảm ơn Thầy Ndu. E nhờ thầy xem giúp e 1 bài nhỏ với. Cảm ơn thày và các AC thật nhìu !

 

[ndu96081631]

E cảm ơn Thầy Ndu. E nhờ thầy xem giúp e 1 bài nhỏ với. Cảm ơn thày và các AC thật nhìu !

Câu hỏi trong file không liên quan gì đến chủ đề topic cả. Bạn nên mở topic khác hỏi thì hơn
Hoặc có thể vào chỗ này để hỏi:
http://www.giaiphapexcel.com/forum/...Chuyên-đề-giải-đáp-những-thắc-mắc-về-code-VBA

 

[keke355992]

Câu hỏi trong file không liên quan gì đến chủ đề topic cả. Bạn nên mở topic khác hỏi thì hơn
Hoặc có thể vào chỗ này để hỏi:
http://www.giaiphapexcel.com/forum/...Chuyên-đề-giải-đáp-những-thắc-mắc-về-code-VBA

E biết là không đúng chủ đề nhưng k muốn tốn tài nguyên của Diễn đàn nên mới post ở đây. Để e post sang Topic hỏi đáp ! Xin lỗi mọi người ạ