Tạo biểu đồ ẩn/hiện theo điều kiện

nguyenvdung2014

Thành viên mới
Tham gia ngày
29 Tháng chín 2017
Bài viết
12
Được thích
0
Điểm
163
Tuổi
28
Mình cần làm dạng khi mà click vào chữ xem biểu đồ thì nó sẽ hiện biểu đồ lên còn không thì sẽ ẩn đi ( ví dụ như hình ). Bạn nào có giải pháp giúp đỡ mình với. Cám ơn các bạn nhiều.

Capture.PNG
 

File đính kèm

giaiphap

==(^o^)==
Tham gia ngày
12 Tháng ba 2007
Bài viết
5,073
Được thích
4,529
Điểm
860

File đính kèm

giaiphap

==(^o^)==
Tham gia ngày
12 Tháng ba 2007
Bài viết
5,073
Được thích
4,529
Điểm
860

nguyenvdung2014

Thành viên mới
Tham gia ngày
29 Tháng chín 2017
Bài viết
12
Được thích
0
Điểm
163
Tuổi
28

File đính kèm

giaiphap

==(^o^)==
Tham gia ngày
12 Tháng ba 2007
Bài viết
5,073
Được thích
4,529
Điểm
860
Sr bác, ở 2 sheet tăng và giảm bác a. Sẽ ẩn cột C-> H nhưng biểu đồ sẽ thể hiện đủ 10 ngày. Bác giúp em với nhé.
Thử sửa code lại thế này.
Mã:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [T5:T1630]) Is Nothing Then
    Sheet10.Shapes("Chart 1").Visible = msoTrue
Else
    Sheet10.Shapes("Chart 1").Visible = msoFalse
End If
End Sub
 

nguyenvdung2014

Thành viên mới
Tham gia ngày
29 Tháng chín 2017
Bài viết
12
Được thích
0
Điểm
163
Tuổi
28
Thử sửa code lại thế này.
Mã:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [T5:T1630]) Is Nothing Then
    Sheet10.Shapes("Chart 1").Visible = msoTrue
Else
    Sheet10.Shapes("Chart 1").Visible = msoFalse
End If
End Sub
nó lại chỉ hiện biểu đồ với dữ liệu dòng đầu tiên, chứ không tạo biểu đồ theo dòng của nó bác ạ,
 
Top Bottom