Làm thế nào để capture dữ liệu từ 1 cell show lên form (1 người xem)

[dvnhatbao]

Chào mọi người.
Hiện tại em đang làm form trên excel nhưng có 1 vấn đề là:

+ Làm cách nào để lấy dữ liệu của 1 cell lên textbox của 1 form, và khi dữ liệu đó thay đổi thì textbox cũng đổi.

Mong mọi người giải đáp giúp em. thanks

 

[vodoi2x]

Chào mọi người.
Hiện tại em đang làm form trên excel nhưng có 1 vấn đề là:

+ Làm cách nào để lấy dữ liệu của 1 cell lên textbox của 1 form, và khi dữ liệu đó thay đổi thì textbox cũng đổi.

Mong mọi người giải đáp giúp em. thanks

Cụ thể thì bạn lên post file sample của bạn lên,

Không có, nên tạm làm theo hướng dẫn sau:

lấy dữ liệu 1 cell thì có mấy cách sau, ví dụ muốn lấy giá trị của B3 tại sheet1

1) sheet1.[B3].value
2) sheet1.cells(3,2).value
3) Sheet1.Range("B3").value,

còn muốn đặt vào userform thì đặt code

textbox1.value=sheet1.[B3].value

vào

Private Sub UserForm_Activate()

End Sub

 

[dvnhatbao]

Cụ thể thì bạn lên post file sample của bạn lên,

Không có, nên tạm làm theo hướng dẫn sau:

lấy dữ liệu 1 cell thì có mấy cách sau, ví dụ muốn lấy giá trị của B3 tại sheet1

1) sheet1.[B3].value
2) sheet1.cells(3,2).value
3) Sheet1.Range("B3").value,

còn muốn đặt vào userform thì đặt code

textbox1.value=sheet1.[B3].value

vào

Private Sub UserForm_Activate()

End Sub

Cảm ơn anh. Em sẽ post file của em lên . Vậy nếu như mình chuyển sang row khác trong 1 column thì có capture được không anh ? Tức là nó sẽ lấy cell dữ liệu mà mình đang nhập vào

 

[vodoi2x]

Cảm ơn anh. Em sẽ post file của em lên . Vậy nếu như mình chuyển sang row khác trong 1 column thì có capture được không anh ? Tức là nó sẽ lấy cell dữ liệu mà mình đang nhập vào

có thể hiểu là ActiveCell???, nếu đúng thì:

vậy thì đổi thành

TextBox1.Value=ActiveCell.Value

 

[dvnhatbao]

có thể hiểu là ActiveCell???, nếu đúng thì:

vậy thì đổi thành

TextBox1.Value=ActiveCell.Value

Cảm ơn anh.
Dưới đây là file đính kèm của em ( file này em lấy nguồn từ các bài của một số anh viết sẵn trong forum và chỉnh sửa theo yêu cầu của em)
Và em mong mọi người giúp em các vấn đề trong form.
+ Total Line : Lấy ra tổng số dòng đang nhập
+ Current invoice : lấy ra invoice đang nhập trong column H

Thanks

 

[vodoi2x]

Cảm ơn anh.
Dưới đây là file đính kèm của em ( file này em lấy nguồn từ các bài của một số anh viết sẵn trong forum và chỉnh sửa theo yêu cầu của em)
Và em mong mọi người giúp em các vấn đề trong form.
+ Total Line : Lấy ra tổng số dòng đang nhập
+ Current invoice : lấy ra invoice đang nhập trong column H

Thanks

Bạn lấy đưa file ng khác thì sao hiểu,

Túm lại bạn phải nói rõ mục đich và Total Line , Current invoice ở đâu, đoạn code nào,...

Chứ đọc file người khác thi khó

 

[dvnhatbao]

Bạn lấy đưa file ng khác thì sao hiểu,

Túm lại bạn phải nói rõ mục đich và Total Line , Current invoice ở đâu, đoạn code nào,...

Chứ đọc file người khác thi khó

Không phải thưa anh, đoạn code đó chỉ là cố định cái form mỗi khi open file ra thôi.... khi anh open ra. chọn sheet 1 thì form sẽ hiện ra. sẽ có những textbox như hình đính kèm. tức là em muốn lấy thông tin vào đó.

Đây là hình kèm theo

 

[vodoi2x]

Không phải thưa anh, đoạn code đó chỉ là cố định cái form mỗi khi open file ra thôi.... khi anh open ra. chọn sheet 1 thì form sẽ hiện ra. sẽ có những textbox như hình đính kèm. tức là em muốn lấy thông tin vào đó.

Đây là hình kèm theo

Vấn đề đã có dữ liệu nào để hiện đâu, và bạn muốn hiện dữ liệu gì???

Chỉ 1 góp ý, nếu muốn động vậy thì bạn có thể dùng sự kiện WorkSheet_SelectionChange...

 

[nguyet1982db]

Cụ thể thì bạn lên post file sample của bạn lên,

Không có, nên tạm làm theo hướng dẫn sau:

lấy dữ liệu 1 cell thì có mấy cách sau, ví dụ muốn lấy giá trị của B3 tại sheet1

1) sheet1.[B3].value
2) sheet1.cells(3,2).value
3) Sheet1.Range("B3").value,

còn muốn đặt vào userform thì đặt code

textbox1.value=sheet1.[B3].value

vào

Private Sub UserForm_Activate()

End Sub

Vậy ta phải thêm code nào để khi thay đổi thông tin trên texbox thì ô B3 tự động thay đổi theo và ngược lại.