Tạo biểu đồ ẩn/hiện theo điều kiện (1 người xem)

[nguyenvdung2014]

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.

 

[giaiphap]

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.

View attachment 234149

Bạn xem file

 

[nguyenvdung2014]

Bạn xem file

quá chuẩn rồi bác ạ, cám ơn bác nhiều. nhưng giờ em muốn làm sang file khác với nhiều dòng hơn thì em sẽ làm ntn bác nhỉ.

 

[giaiphap]

quá chuẩn rồi bác ạ, cám ơn bác nhiều. nhưng giờ em muốn làm sang file khác với nhiều dòng hơn thì em sẽ làm ntn bác nhỉ.

Thì quăn cái file đó lên đây. (Lúc đầu đưa nó lên thì không có thêm bài này)

 

[nguyenvdung2014]

Thì quăn cái file đó lên đây. (Lúc đầu đưa nó lên thì không có thêm bài này)

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é.

 

[VetMini]

Sr bác, ...

Sờ-rờ đâu phải là động từ có túc tự (transtive verb). Là tĩnh tự cho nên nếu đi trước một danh từ thì nó bổ nghĩa cho danh từ (sorry = đau khổ). Mà chắc bác ta sờ-rờ thiệt.

 

[nguyenvdung2014]

Sờ-rờ đâu phải là động từ có túc tự (transtive verb). Là tĩnh tự cho nên nếu đi trước một danh từ thì nó bổ nghĩa cho danh từ (sorry = đau khổ). Mà chắc bác ta sờ-rờ thiệt.

bác cứ bắt bẻ em , tội em bác a.

 

[nguyenvdung2014]

UP VỚI Ạ

 

[giaiphap]

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.

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ử sửa code lại thế này.

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 ạ,

 

[giaiphap]

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 ạ,

Cái này ở yêu cầu #1 không có nhé bạn, đọc kỷ lại yêu cầu ở #1.

 

[nguyenvdung2014]

xin đóng topic,