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

Liên hệ QC

nguyenvdung2014

Thành viên mới
Tham gia
29/9/17
Bài viết
13
Được thích
1
Giới tính
Nam
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

  • New Microsoft Excel Worksheet.xlsx
    5.7 MB · Đọc: 2

File đính kèm

  • New Microsoft Excel Worksheet.xlsm
    5.7 MB · Đọc: 34
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
 
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 ạ,
 
Web KT
Back
Top Bottom