xin code cho ô text box (1 người xem)

[komono]

mấy anh chị có thể viết giùm em 1 code cho ô text box
ô này sẽ xuất hiện dữ liệu của ô a2 bên sheet2

 

[vu_tuan_manh_linh]

Giả sử textbox là textbox1: Textbox1.Value=Sheet2.Range("A2").Value

 

[komono]

đoạn code này chép vô đâu anh ơi

 

[viehoai]

đoạn code này chép vô đâu anh ơi

Bạn hỏi đến đâu thì họ trử lời đến đó. Bạn cần biết chép vô đâu thì bạn cho họ biết textbox nằm ở đâu chứ?

 

[komono]

ô text box 1 nằm sheet1

 

[viehoai]

ô text box 1 nằm sheet1

Nhưng bạn muốn sự kiện nào thì thực hiện điều đó. Dưới đây là một trường hợp kích nút CommandButton

 

[komono]

Nhưng bạn muốn sự kiện nào thì thực hiện điều đó. Dưới đây là một trường hợp kích nút CommandButton

anh ơi gần đúng rồi
em muốn ô a2 sheet 2 thay đổi thì nó tự động thay đổi không phải nhấn nút

 

[viehoai]

anh ơi gần đúng rồi
em muốn ô a2 sheet 2 thay đổi thì nó tự động thay đổi không phải nhấn nút

Mình biết ngay bạn sẽ hỏi tiếp
Code sheet2 là:
[GPECODE=vb]
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$2" Then Exit Sub
Application.EnableEvents = False
Sheet1.TextBox1.Value = Target.Value
Application.EnableEvents = True
End Sub[/GPECODE]

 

[komono]

Mình biết ngay bạn sẽ hỏi tiếp
Code sheet2 là:
[GPECODE=vb]
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$2" Then Exit Sub
Application.EnableEvents = False
Sheet1.TextBox1.Value = Target.Value
Application.EnableEvents = True
End Sub[/GPECODE]

hic hic phát sinh tý vấn đề anh ơi
ô a2 sheet2 nó =a3 sheet 2
khi ô a3 thay đổi ô a2 thay đổi nhưng ô text box lại ko

 

[viehoai]

hic hic phát sinh tý vấn đề anh ơi
ô a2 sheet2 nó =a3 sheet 2
khi ô a3 thay đổi ô a2 thay đổi nhưng ô text box lại ko

Đúng rồi vì có lệnh: If Target.Address <> "$A$2" Then ExitSub
Sửa "$A$2" thành "$A$3" là xong

 

[komono]

Đúng rồi vì có lệnh: If Target.Address <> "$A$2" Then ExitSub
Sửa "$A$2" thành "$A$3" là xong

anh ơi xem lại giùm em

 

[viehoai]

anh ơi xem lại giùm em

Vậy cần gì code bạn. Kích phải chuộc texbox1 và nhấn Properties

 

[komono]

Vậy cần gì code bạn. Kích phải chuộc texbox1 và nhấn Properties

anh ơi chỉnh đâu để lúc in ô text box mất khung

 

[viehoai]

anh ơi chỉnh đâu để lúc in ô text box mất khung

Tôi in thấy bình thường mà. Bạn cho biết mục đích của bạn dung textbox để làm gì ko, biết đâu có giải pháp hay hơn

 

[komono]

xong rồi anh ơi xin cảm ơn rất nhiều

 

[komono]

Tôi in thấy bình thường mà. Bạn cho biết mục đích của bạn dung textbox để làm gì ko, biết đâu có giải pháp hay hơn

mục đích chính là 1 ô không thể có 2 định dạng khác nhau
nên ngày tháng năm để in nghiêng thì trong ô excel
có số quyết định thì để bình thường trong ô texb box
1 lần nữa xin cám ơn anh rất nhiều

 

[siwtom]

mục đích chính là 1 ô không thể có 2 định dạng khác nhau

Đó không phải là vấn đề.
Vấn đề của bạn là gặp cao nhân (vĩ nhân, siêu nhân?) mà không biết. Nhặt được vàng mà lại vứt đi.
Trong chủ đề "bên kia" anh quanghai1969 đã chỉ hướng cho bạn. Nếu là tôi thì tôi sẽ đeo bám anh ấy cho tới khi có được code mới buông tha. Còn bạn thì bỏ đi.

Tôi thử làm theo gợi ý của bạn quanghai1969

1. Xóa công thức tại D1
2. Vứt Textbox
3. Ô A7 bỏ Italic
4. Mỗi khi nhập dữ liệu vào C1 hoặc H1 thì bạn có kết quả trong D1 và A7.

 

[komono]

Đó không phải là vấn đề.
Vấn đề của bạn là gặp cao nhân (vĩ nhân, siêu nhân?) mà không biết. Nhặt được vàng mà lại vứt đi.
Trong chủ đề "bên kia" anh quanghai1969 đã chỉ hướng cho bạn. Nếu là tôi thì tôi sẽ đeo bám anh ấy cho tới khi có được code mới buông tha. Còn bạn thì bỏ đi.

Tôi thử làm theo gợi ý của bạn quanghai1969

1. Xóa công thức tại D1
2. Vứt Textbox
3. Ô A7 bỏ Italic
4. Mỗi khi nhập dữ liệu vào C1 hoặc H1 thì bạn có kết quả trong D1 và A7.

em thành thật xin lỗi mấy anh chị
tại vì em cần gấp quá nên tìm cách nào đơn giản và lẹ nhất
còn code thì em mới dc biết mấy ngày nay nên còn gà giữ lắm
anh quanghai1969 chỉ nhưng em chưa hiểu
thành thật xin lỗi các anh