Tạo Word art bằng macro

[ZzNHCzZ]

Chào các anh chị GPE!
Em có bài marco nhỏ muốn nhờ anh chị giúp đở.
Tại Sheet Para B8 nếu có dữ liệu thì Tại Sheet RPT có Word Art "Cancel"

Em có gửi File anh chi tham khảo
Viết Code trên Module

Thân!

 

[SA_DQ]

Muốn mảcro sẽ có mảcro

Bạn phải chuột lên tên 'Para' của ngăn sheetNames; chọn View Code
Khi CS VBE hiện ra bạn dán đoạn code này vô:

Private Sub Worksheet_Change(ByVal Target As Range)
 
 If Not Intersect(Target, [b8]) Is Nothing Then
    If [b8] = "" Then
        Sheets("RPT").Shapes(1).Visible = False
    Else
        Sheets("RPT").Shapes(1).Visible = True
 End If:             End If
End Sub

 

[anhtuan1066]

Tại 1 cell nào đó, (giã sử là cell P1 nhé) trên sheet Para bạn gõ vào công thức:

=IF(B8="","","Cancel")

Qua sheet kia, bấm chuột vào WordArt rồi lại nhấp chuột trên thanh Formula, gõ vào công thức:

=Para!P1

Vậy là xong chứ cần gì đến macro trong trường hợp này cho phí!
ANH TUẤN

 

[ptm0412]

Vậy là xong chứ cần gì đến macro trong trường hợp này cho phí!

Vậy sao không =Para!B8 luôn cho đỡ phí 1 ô nữa.

 

[anhtuan1066]

Vậy sao không =Para!B8 luôn cho đỡ phí 1 ô nữa.

Hỏng dc anh ơi... Vì yêu cầu của tác giã là: Nếu B8 có dử liệu thì hiện chử Cancel trên WordArt.. bằng ngược lại thì ko hiện gì cả...
Tức B8 là cell nhập liệu gì đó