Lấy giá trị trong shapes gán cho một ô

[nam2806]

Nhờ các ACE giải bài như trong file đính kèm

 

[nghiaphuc]

Nhờ các ACE giải bài như trong file đính kèm

Bạn sử dụng câu lệnh này nhé: [J7] = Shapes("AutoShape 1").TextEffect.Text

 

[nam2806]

Bạn sử dụng câu lệnh này nhé: [J7] = Shapes("AutoShape 1").TextEffect.Text

Sử dụng câu lệnh này bị lỗ bạn à. Mình dùng EX2003. Bạn xem giúp lại. Cảm ơn nhiều.

 

[ndu96081631]

Sử dụng câu lệnh này bị lỗ bạn à. Mình dùng EX2003. Bạn xem giúp lại. Cảm ơn nhiều.

Sửa thành vầy xem:

With Sheet1
  .Range("J7").Value = .Shapes("AutoShape 1").TextFrame.Characters.Text
End With

 

[sealand]

Phải như thế này chứ:

Sheet1.[J7]=Shapes("AutoShape 1").TextFrame.Characters.Text

Lệnh của Nghia Phuc là lấy Text của Word Art

 

[nmhung49]

Nhân tiện cho em hỏi sao em dùng Excek 2007 record macro để ghi lại những gì làm trong shape nhưng khi mở lên coi lại record đã ghi nhận được gì thì trống trơn là sao vậy các anh. Thanks mong AC giúp đỡ mà em mở Excel 2003 bản portable record macro lại được

 

[nam2806]

Cảm ơn ndu. Câu lệnh của bạn đã giải quyết được vấn đề.

 

[nghiaphuc]

Sử dụng câu lệnh này bị lỗ bạn à. Mình dùng EX2003. Bạn xem giúp lại. Cảm ơn nhiều.

Mình đã thử ngay trên file của bạn rồi mới đưa lên mà. Cũng lạ thật, có thể do phiên bản Office. Ở nhà mình dùng Excel 2007, thấy câu lệnh trên đáp ứng đúng yêu cầu. Giờ thử lại trên Excel 2003 thấy không được.