Hỏi về code liên kết dữ liệu giữa bảng tính và label (4 người xem)

[khamha]

Nhờ các bạn giúp liên kết như sau:khi ta nhập dữ liệu vào A1 là A thì nội dung tại label trong UserForm sẽ hiện thị là A (liên kết như vậy giữa A1:O1 với label1 - label15),cảm ơn các bạn “vì đang trình duyệt bằng dt nên không gửi file được“

 

[thanhphuong]

Nhờ các bạn giúp liên kết như sau:khi ta nhập dữ liệu vào A1 là A thì nội dung tại label trong UserForm sẽ hiện thị là A (liên kết như vậy giữa A1:O1 với label1 - label15),cảm ơn các bạn “vì đang trình duyệt bằng dt nên không gửi file được“

Khi form Show, không thể nhập dữ liệu vào Sheet. Khi có dữ liệu ở Sheet, khi show form thì gán giá trị ở các ô hiện hành vào các label

Label1.Caption = Sheet1.Range("A1").Value

 

[khamha]

Khi form Show, không thể nhập dữ liệu vào Sheet. Khi có dữ liệu ở Sheet, khi show form thì gán giá trị ở các ô hiện hành vào các label

Label1.Caption = Sheet1.Range("A1").Value

Theo mình, nếu ta liên kết dữ liệu với ít label thì dùng theo cách này được,còn nếu có nhiều label (ví dụ:70 label) thì code nó dài lắm.nhờ các bạn rút gọn lại cho mình với.cảm ơn

 

[vu_tuan_manh_linh]

Khi form Show, không thể nhập dữ liệu vào Sheet. Khi có dữ liệu ở Sheet, khi show form thì gán giá trị ở các ô hiện hành vào các label

Label1.Caption = Sheet1.Range("A1").Value

Show Form vẫn nhập được dữ liệu vào sheet, nếu sau câu lệnh Show thêm False.

liên kết như vậy giữa A1:O1 với label1 - label15

Viết 1 hàm nhận diện số thứ tự Label, sau đó dùng vòng lặp For cho biến chạy lần lượt từ 1 đến hết.

 

[khamha]

Bạn có thể làm một ví dụ cho mình được ko? Mình chỉ cần hiện nội dung trong label ,chứ ko cần sửa.cảm ơn

 

[concogia]

Bạn có thể làm một ví dụ cho mình được ko? Mình chỉ cần hiện nội dung trong label ,chứ ko cần sửa.cảm ơn

- Khi UserForm hiện vẫn nhập dữ liệu ở bảng tính bình thường
- Không biết bạn muốn làm gì nên cũng chẳng biết dùng sự kiện gì nữa
Tạm thời mình sử dung sự kiện UserForm_MouseMove
Bấm Ctrol+ Q mở Form, nhập dữ liệu xong thò anh tý vào Form là nó lên kết
Thân

 

[khamha]

Hôm nay mất điện cả ngày nên chưa mở file của bạn ra xem được.ý của mình là muốn sử dụng các label để giải thích cho các texbox để nhập dự liệu,ví dụ:label1 diễn giải cho texbox1,trong đó label1 sẽ liên kết với A1 và cột A sẽ là cột nhận dữ liệu từ texbox1.mình thấy cái code trong bài #2 áp đúng theo ý của mình,nhưng vì trong form của mình có nhiều label nên ko dùng được (code quá dài).nhờ bạn xem lại giúp mình,cảm ơn

 

[concogia]

Hôm nay mất điện cả ngày nên chưa mở file của bạn ra xem được.ý của mình là muốn sử dụng các label để giải thích cho các texbox để nhập dự liệu,ví dụ:label1 diễn giải cho texbox1,trong đó label1 sẽ liên kết với A1 và cột A sẽ là cột nhận dữ liệu từ texbox1.mình thấy cái code trong bài #2 áp đúng theo ý của mình,nhưng vì trong form của mình có nhiều label nên ko dùng được (code quá dài).nhờ bạn xem lại giúp mình,cảm ơn

Híc, thì chờ....có điện rồi đọc. Đại khái code nó thế này:

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Dim I
    For I = 1 To 15
        Me.Controls("label" & I) = Cells(1, I)
    Next I
End Sub

Cho dù bạn có .....100 cái Label hay hơn nữa thì code cũng thế thôi. Híc
Thân

 

[sealand]

Bác Cò ơi, lỗi rồi:

Me.Controls("Label" & i).Caption = sheetxxx.cells(1,i).Value

 

[khamha]

Đến giờ vẵn chưa có điện để test,nhờ bạn seland sửa cho nó hoàn chỉnh với.cảm ơn

 

[sealand]

Mình nêu 1 cách đối với những Form có khối lượng Control lớn thì dùng chung 1 Label, khi đến ô nào thì Label dùng chung sẽ hiện hỗ trợ ô đó

 

[khamha]

- Khi UserForm hiện vẫn nhập dữ liệu ở bảng tính bình thường
- Không biết bạn muốn làm gì nên cũng chẳng biết dùng sự kiện gì nữa
Tạm thời mình sử dung sự kiện UserForm_MouseMove
Bấm Ctrol Q mở Form, nhập dữ liệu xong thò anh tý vào Form là nó lên kết
Thân

Mình thay bằng sự kiện active và thêm đoạn code liên kết với sheet1 và nó chạy rất good.nhưng ko hiểu tại sao khi mình chèn đoạn code đó cho một form khác (cùng trong một bảng tính) thì khi mở form thì bị báo lỗi (mở form nào cũng bị lỗi,nếu xóa bớt code trong 1 form thì form còn lại ko bị lỗi).các bạn xem lại cho mình với.cảm ơn

 

[khamha]

Có thể sửa dữ liệu trên Label khi mở Form ko các bạn ? Nếu được thì phải chỉnh ở đâu.Thank
(Label ko liên kết đến một Cell nào)

 

[sealand]

Nếu dùng Code hoàn toàn được. Ví dụ:

Private Sub Label1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim mStr
mStr = Me.Label1.Caption
mStr = InputBox("Nhap noi dung moi cho label", "Admin", mStr)
Me.Label1.Caption = mStr
End Sub

 

[khamha]

Cảm ơn bác Sealand đã giúp...
Ko hiểu sao khi thoát Form & mở lại thì dữ liệu trong Label bị xoá ,bác xem lại giúp em nhé.

 

[khamha]

Loay hoay mãi mà ko được ,nó vẫn ko thay đổi ,Bác SeaLand và các bạn xem File và giúp nhé.
http://laoupload.com/M6GLIKLT52I4/VietTrenLaBel.7z.html

 

[ndu96081631]

Loay hoay mãi mà ko được ,nó vẫn ko thay đổi ,Bác SeaLand và các bạn xem File và giúp nhé.
http://laoupload.com/M6GLIKLT52I4/VietTrenLaBel.7z.html

Thấy code vẫn chạy bình thường mà!
Cũng chưa hiểu bạn muốn làm điều gì nữa
---------------
Ngoài lê: Mai này có upload file, bạn vui lòng upload lên trang www.mediafire.com nhé (cái trang của bạn khó download quá)

 

[khamha]

Ví dụ:
1, Hiện giờ chữ trên Label là: VietTrenLabel.
2, Sau khi mình sửa lại thành: khamha thì đúng là nó thay đổi.
3, Nhưng khi thoát Form và mở lại thì nó vẫn là chữ: VietTrenLabel thay vì: khamha.

 

[ndu96081631]

Ví dụ:
1, Hiện giờ chữ trên Label là: VietTrenLabel.
2, Sau khi mình sửa lại thành: khamha thì đúng là nó thay đổi.
3, Nhưng khi thoát Form và mở lại thì nó vẫn là chữ: VietTrenLabel thay vì: khamha.

Thì đương nhiên vậy rồi!
Trừ phi bạn tự tay thiết kế Caption cho Label (thiết kế bằng tay trong cửa sổ Properties), còn không thì sẽ chẳng có gì thay đổi sau khi tắt form cả

 

[khamha]

Còn Trong TexBox thì có khả thi ko ? SP ndu