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

Liên hệ QC

Người dùng đang xem chủ đề này

nghiaquangtran

Thành viên chính thức
Tham gia
28/10/08
Bài viết
79
Được thích
25
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
 
Bạn chỉ cần viết vậy thôi :

PHP:
Private Sub CommandButton1_Click()
    Application.Goto Sheets("pro").Range("EB3"), True
End Sub
 
Upvote 0
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

PHP:
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.
 
Upvote 0
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

Mã:
[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]
 
Upvote 0
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

Mã:
[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
 
Upvote 0
Web KT

Bài viết mới nhất

Back
Top Bottom