Lỗi khi chạy Command Button (1 người xem)

[nghiaquangtran]

Các bạn cho mình hỏi chút nhé

>>>Khi mình dùng code cho comboButton này thì báo lỗi chỗ Application.

Private Sub CommandButton1_Click()
Sheets("pro").Activate
Application.Goto reference:=Range("eb3"), Scroll:=True
End Sub


>>>Nên mình thường phải viết 1 Sub sau đó mới dùng button để gọi sub này.

Sub cv()
Sheets("pro").Activate
Application.Goto reference:=Range("eb3"), Scroll:=True
End Sub

Private Sub CommandButton1_Click()
Call cv
End Sub

Các bạn chỉ dùm mình nhé

Cám ơn nhiều

 

[ptlong04x1]

Bạn chỉ cần viết vậy thôi :

Private Sub CommandButton1_Click()
    Application.Goto Sheets("pro").Range("EB3"), True
End Sub

 

[nghiaquangtran]

Bạn chỉ cần viết vậy thôi :

Private Sub CommandButton1_Click()
    Application.Goto Sheets("pro").Range("EB3"), True
End Sub

Nguyên nhân vì sao nó lại không dc bạn nhỉ, giải thích dùm mình với...mình đang tập tành viết code

Thank you muchiez

 

[ptlong04x1]

Nguyên nhân vì sao nó lại không dc bạn nhỉ, giải thích dùm mình với...mình đang tập tành viết code

Thank you muchiez

Application.Goto reference:=Range("eb3"), Scroll:=True

Theo mình Application.Goto chỉ có hiệu lực tại Sheet mà bạn đang viết code trong đó thôi, nếu bạn viết dòng code trên trong Sheet1 thì nó chỉ đi đến được EB3 của Sheet1 thôi, không thể đến Sheet pro cho dù có dòng Sheets("pro").Activate.

 

[sealand]

Sao các bạn câu lệ thế nhỉ, theo mình code chỉ cần thực hiện được ý đồ của mình là được. Mình chỉ đơn giản thế này thôi

[COLOR=#000000][COLOR=#007700]Private [/COLOR][COLOR=#0000BB]Sub CommandButton1_Click[/COLOR][COLOR=#007700]()
[/COLOR][COLOR=#0000BB]Sheets[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"pro"[/COLOR][COLOR=#007700]).Activate
[/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"EB3"[/COLOR][COLOR=#007700]).Select[/COLOR][COLOR=#0000BB]
End Sub  [/COLOR][/COLOR]

 

[nghiaquangtran]

Sao các bạn câu lệ thế nhỉ, theo mình code chỉ cần thực hiện được ý đồ của mình là được. Mình chỉ đơn giản thế này thôi

[COLOR=#000000][COLOR=#007700]Private [/COLOR][COLOR=#0000bb]Sub CommandButton1_Click[/COLOR][COLOR=#007700]()[/COLOR]
[COLOR=#0000bb]Sheets[/COLOR][COLOR=#007700]([/COLOR][COLOR=#dd0000]"pro"[/COLOR][COLOR=#007700]).Activate[/COLOR]
[COLOR=#0000bb]Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#dd0000]"EB3"[/COLOR][COLOR=#007700]).Select[/COLOR]
[COLOR=#0000bb]End Sub  [/COLOR][/COLOR]

Đoạn code này không scroll dc bạn àh, vì mình bố trí các biểu đồ trên nhiều vùng khác nhau trong 1 sheet nên khi chuyển trỏ tới 1 vị trí nào đó mình fải scroll