Gán giá trị cho textbox

[BinhTam]

Chào các bạn,

trong sheet1 mình có chèn 1 textbox và gán giá trị A1 tuy nhiên dữ liệu hiện thị không như ý hay dữ liệu hiện không hết.

các bạn giúp mình chỉnh lại thuộc tính trên textbox để dữ liệu hiển thị đầy đủ, thanks

Thanks,
Tâm

 

[Hoàng Trọng Nghĩa]

Chào các bạn,

trong sheet1 mình có chèn 1 textbox và gán giá trị A1 tuy nhiên dữ liệu hiện thị không như ý hay dữ liệu hiện không hết.

các bạn giúp mình chỉnh lại thuộc tính trên textbox để dữ liệu hiển thị đầy đủ, thanks

Thanks,
Tâm

Nếu không làm được kiểu này thì làm theo kiểu khác đi bạn. Tôi sẽ hướng dẫn bạn làm theo kiểu Picture Link.

1) Trong file của bạn tôi copy cái ô A1 vào sheet2, rồi kéo rộng ô A1 đó cho đủ nhìn thấy mọi thứ trong đó.

2) Tôi copy ô đó, sau đó qua sheet1 tôi lại Paste kiểu Linked Picture.

3) Giờ đây bạn có một Picture với đầy đủ chữ nghĩa, tại sheet2, bạn định dạng ô A1 kiểu nào thì cái picture nó cũng được định dạng y chang như vậy.

 

[BinhTam]

Trong vba thì textbox với thuộc tính multiline là ok nhưng bên ngoài maxlength của textbox=255 nên chỉ có cách theo của bạn.

Thanks,

Chúc bạn làm việc vui vẻ.

 

[ndu96081631]

Trong vba thì textbox với thuộc tính multiline là ok nhưng bên ngoài maxlength của textbox=255 nên chỉ có cách theo của bạn.

Thanks,

Chúc bạn làm việc vui vẻ.

Dùng VBA thì sẽ nạp được đầy đủ. Bạn thủ xem

 

[BinhTam]

Chào ndu96081631,


Bạn giúp mình viết lại code lại để khi thay đổi giá trị ô A1 thì textbox cũng thay đổi theo.

Thanks
Tâm

 

[ndu96081631]

Chào ndu96081631,


Bạn giúp mình viết lại code lại để khi thay đổi giá trị ô A1 thì textbox cũng thay đổi theo.

Thanks
Tâm

Code thì quá dễ rồi, chẳng hạn:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$A$1" Then TextBox1.Text = Target.Value
End Sub

Nhưng bài 1 rõ ràng textbox trong file là dạng Shape, bây giờ sao lại là TextBox ActiveX control rồi? Với đối tượng này thì ăn chắc nó sẽ không hiển thị tiếng Việt Unicode đâu nha

 

[BinhTam]

Vì textbox dạng shape bị giới hạn số ký tự nên mình chuyển sang textbox trong vba.
hay ý bạn vẫn giữ textbox dạng shape chỉ cần thêm code

 

[ndu96081631]

Vì textbox dạng shape bị giới hạn số ký tự nên mình chuyển sang textbox trong vba.
hay ý bạn vẫn giữ textbox dạng shape chỉ cần thêm code

Thì vậy!

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$A$1" Then ActiveSheet.Shapes("TextBox 1").TextFrame.Characters.Insert Target.Text
End Sub

Bạn thử lại code này với file của bài 1 xem thử
Nói trước: Nếu dùng Excel 2003 thì tôi không chắc nha!

 

[BinhTam]

Ok.

Bạn cho hỏi thêm scrollbar cho textbox shape như thế nào vì mình không thấy thuộc tính scrollbar

nếu được bạn thêm code hoặc thuộc tính để hiện scrollbar ntn?

Thanks

 

[ndu96081631]

Ok.

Bạn cho hỏi thêm scrollbar cho textbox shape như thế nào vì mình không thấy thuộc tính scrollbar

nếu được bạn thêm code hoặc thuộc tính để hiện scrollbar ntn?

Thanks

Shape thì làm gì có scrollbar hả bạn?