Help!!! Cách call các private ở 1 worksheet khác

[the_king2834]

Hiện tại ở sheet SCT Mayerhof và SCT NHAT BAN mình đã viết sẵn sub, nhưng mình chưa biết cách làm thế nào tại sheet OutPut mình có thể kích hoạt đồng thời 2 private sub này.

 

[ndu96081631]

Hiện tại ở sheet SCT Mayerhof và SCT NHAT BAN mình đã viết sẵn sub, nhưng mình chưa biết cách làm thế nào tại sheet OutPut mình có thể kích hoạt đồng thời 2 private sub này.

Ví dụ thế này:

Application.Run "Sheet2.Mayerhof"

và:

Application.Run "Sheet3.Japanese"

 

[the_king2834]

Ví dụ thế này:

Application.Run "Sheet2.Mayerhof"

và:

Application.Run "Sheet3.Japanese"

Mình có thử nhưng vẫn ko được, hiện tại mình đang thêm dòng lệnh
Sheets("SCT Mayerhof").Select
Tuy nhiên như vậy khi chạy nó vẫn hiển thị cái sheet mình select. (tại mình muốn hide luôn cái sheet SCT Mayerhof)
Tks for anwser

 

[batman1]

Mình có thử nhưng vẫn ko được, hiện tại mình đang thêm dòng lệnh
Sheets("SCT Mayerhof").Select
Tuy nhiên như vậy khi chạy nó vẫn hiển thị cái sheet mình select. (tại mình muốn hide luôn cái sheet SCT Mayerhof)
Tks for anwser

Được hay không được tôi không bàn. Tôi không kiểm tra kỹ nhưng hình như 2 sub của bạn giống nhau, chỉ khác là thao tác cho 2 sheet khác nhau. Nếu thế thì bạn nên viết 1 SUB và đặt tại Module***

Chả nhẽ nếu bạn muốn thao tác cho 20 sheet thì bạn cũng viết 20 sub giống nhau đặt trong 20 sheet?

Sub haitrongmot(sh As WorkSheet)
Dim i, a, b, c As Integer
Dim dientich As Variant
Dim chuvi As Variant
Dim duongkinh As Double
Dim chieusaumax As Integer
Dim loaicoc, kieucoc As Variant
Dim ALD As Variant
Dim tyso As Variant
...
duongkinh = sh.Cells(3, "I")
...
ALD = sh.Cells(4, "I")
...
End Sub

Tức thay những chỗ có Range, Cells bằng sh.Range, sh.Cells ...

Gọi Mayerhof hoặc Japanese cũ

haitrongmot ThisWorkbook.Worksheets ("SCT Mayerhof")
...
haitrongmot ThisWorkbook.Worksheets ("SCT NHAT BAN")

 

[the_king2834]

Được hay không được tôi không bàn. Tôi không kiểm tra kỹ nhưng hình như 2 sub của bạn giống nhau, chỉ khác là thao tác cho 2 sheet khác nhau. Nếu thế thì bạn nên viết 1 SUB và đặt tại Module***

Chả nhẽ nếu bạn muốn thao tác cho 20 sheet thì bạn cũng viết 20 sub giống nhau đặt trong 20 sheet?

Sub haitrongmot(sh As WorkSheet)
Dim i, a, b, c As Integer
Dim dientich As Variant
Dim chuvi As Variant
Dim duongkinh As Double
Dim chieusaumax As Integer
Dim loaicoc, kieucoc As Variant
Dim ALD As Variant
Dim tyso As Variant
...
duongkinh = sh.Cells(3, "I")
...
ALD = sh.Cells(4, "I")
...
End Sub

Tức thay những chỗ có Range, Cells bằng sh.Range, sh.Cells ...

Gọi Mayerhof hoặc Japanese cũ

haitrongmot ThisWorkbook.Worksheets ("SCT Mayerhof")
...
haitrongmot ThisWorkbook.Worksheets ("SCT NHAT BAN")

Về cơ bản thì hầu như giống, có một số chỗ khác nhau đấy bạn, tại mình muốn nếu check hay đổi thông số gì của 1 trong 2 công thức, cái còn lại ko bị ảnh hưởng, với cả mình chỉ là newbie nền nhiều cái bị chưa biết, =="