Làm cách nào để di chuyển tới vị trí biểu đồ cần tìm?

[phamvandunghp84]

mình cần code VBA để kéo màn hình tới vị trí biểu đồ có tên Chart 12 để xem. Mình đã thử những cách này mà không được

ActiveSheet.ChartObjects("Chart 12").Activate
ActiveSheet.ChartObjects("Chart 12").Select
ActiveSheet.ChartObjects("Chart 12").Show

Mong các bạn chỉ mình một cách.

 

[CHAOQUAY]

mình cần code VBA để kéo màn hình tới vị trí biểu đồ có tên Chart 12 để xem. Mình đã thử những cách này mà không được

ActiveSheet.ChartObjects("Chart 12").Activate
ActiveSheet.ChartObjects("Chart 12").Select
ActiveSheet.ChartObjects("Chart 12").Show

Mong các bạn chỉ mình một cách.

Bạn gửi file giả định lên xem thử.

 

[CHAOQUAY]

@phamvandunghp84
Có thể tham khảo code dưới đây.

Sub Test()
Dim shp0 As Shape
For Each shp0 In Sheet1.Shapes
    shp0.TopLeftCell.Activate
    Exit Sub
Next shp0

End Sub

 

[phamvandunghp84]

Bạn gửi file giả định lên xem thử.

file của mình đây bạn

 

[CHAOQUAY]

@phamvandunghp84
Bạn chạy code dưới đây

Sub Test()
Dim char0 As ChartObject
For Each char0 In Sheet3.ChartObjects
    If char0.Name = "Chart 12" Then
        char0.TopLeftCell.Activate
        Exit Sub
    End If
Next char0
End Sub

 

[phamvandunghp84]

@phamvandunghp84
Bạn chạy code dưới đây

Sub Test()
Dim char0 As ChartObject
For Each char0 In Sheet3.ChartObjects
    If char0.Name = "Chart 12" Then
        char0.TopLeftCell.Activate
        Exit Sub
    End If
Next char0
End Sub

Cảm ơn bạn nó đã chạy ok rồi !

 

[ndu96081631]

@phamvandunghp84
Bạn chạy code dưới đây

Sub Test()
Dim char0 As ChartObject
For Each char0 In Sheet3.ChartObjects
    If char0.Name = "Chart 12" Then
        char0.TopLeftCell.Activate
        Exit Sub
    End If
Next char0
End Sub

Đã biết tên chart là "Chart 12" rồi còn for next gì nữa bạn?

 

[phamvandunghp84]

Đã biết tên chart là "Chart 12" rồi còn for next gì nữa bạn?

Nếu mình muốn lấy ô địa chỉ bên phải của một Chart thì mình làm thế nào bác chỉ mình với?

Bài đã được tự động gộp: 1/5/20

@phamvandunghp84
Bạn chạy code dưới đây

Sub Test()
Dim char0 As ChartObject
For Each char0 In Sheet3.ChartObjects
    If char0.Name = "Chart 12" Then
        char0.TopLeftCell.Activate
        Exit Sub
    End If
Next char0
End Sub

Nếu mình muốn lấy ô địa chỉ bên phải của một Chart thì mình làm thế nào bác chỉ mình với?
câu lệnh trên mình thay
char0.TopLeftCell.Activate
thành

char0.TopRightCell.Activate

nhưng không được?

 

[CHAOQUAY]

Nếu mình muốn lấy ô địa chỉ bên phải của một Chart thì mình làm thế nào bác chỉ mình với?

Bài đã được tự động gộp: 1/5/20

Nếu mình muốn lấy ô địa chỉ bên phải của một Chart thì mình làm thế nào bác chỉ mình với?
câu lệnh trên mình thay
char0.TopLeftCell.Activate
thành

char0.TopRightCell.Activate

nhưng không được?

Sub Test()
Dim i, j
i = ActiveSheet.ChartObjects("Chart 12").TopLeftCell.Row
j = ActiveSheet.ChartObjects("Chart 12").BottomRightCell.Column
ActiveSheet.Cells(i, j).Select
End Sub