Làm sao gán một giá trị cho rectangular

[Tường_Vi]

Khi làm việc với in ấn ví dụ In ấn form hóa đơn, phiếu ....muội thường
- Chạy một thủ tục và gán giá trị vào một cell nào đó (ví dụ A1)
- Từ shapes (rectangular) tại thanh công thức formula muội đánh dấu bằng để link tới cell đó (A1)

Kết quả: trên shape Rectangular thể hiện giá trị tại A1

Vậy có cách nào mà ko cần dùng A1 làm cầu nối không?

Ví dụ

Sub click()
sheet1.shapes(rectangular 1) = "Test"
End sub

Câu hỏi phụ
muội không muốn hiển thị là rectangular 1, tại bên trái thanh formular (hộp gõ Name) muội sửa tên thành NOIDUNGTEST được ko?

Cám ơn Các Huynh

 

[ndu96081631]

Khi làm việc với in ấn ví dụ In ấn form hóa đơn, phiếu ....muội thường
- Chạy một thủ tục và gán giá trị vào một cell nào đó (ví dụ A1)
- Từ shapes (rectangular) tại thanh công thức formula muội đánh dấu bằng để link tới cell đó (A1)

Kết quả: trên shape Rectangular thể hiện giá trị tại A1

Vậy có cách nào mà ko cần dùng A1 làm cầu nối không?

Ví dụ

Sub click()
sheet1.shapes(rectangular 1) = "Test"
End sub

Câu hỏi phụ
muội không muốn hiển thị là rectangular 1, tại bên trái thanh formular (hộp gõ Name) muội sửa tên thành NOIDUNGTEST được ko?

Cám ơn Các Huynh

Làm vầy:

Sub click()
  With Sheet1.Shapes("rectangular 1")
    .TextFrame.Characters.Text = "Test"
    .Name = "NOIDUNGTEXT"
  End With
End Sub