Đưa thông tin lên textbox, .... (1 người xem)

[KhoiSMC]

Các bạn GPE,

Cho tôi hỏi với khi muốn đưa các thông tin lên textbox hoặc phần tử nào khác phù hợp thì làm ntn?, cụ thể

Khi tôi bấm chuột vào ô C9, C10, C11, ...
Thì nội dung của textbox sẽ tự động hiện lên nội dung (value) của các ô tương ứng.
(các ô C9, C10, C11, ... được tính bởi công thức và đã bị merge).
Xin xem file đính kèm.

Thanks
Khoi

 

[KhoiSMC]

Có lẽ cũng khó để thực hiện được khi chỉ có hành động di chuyển động như vậy, nếu có thể còn có giải pháp nào khác không các bạn.
Ý mình chỉ muốn đưa thông tin từ các ô của excel lên một vị trí để có thể đọc được nội dung của nó (vì nội dung trong ô được tính toán bởi công thức đó thường có nội dung dài).

Thanks
Khoi

 

[phucbugis]

Có lẽ cũng khó để thực hiện được khi chỉ có hành động di chuyển động như vậy, nếu có thể còn có giải pháp nào khác không các bạn.
Ý mình chỉ muốn đưa thông tin từ các ô của excel lên một vị trí để có thể đọc được nội dung của nó (vì nội dung trong ô được tính toán bởi công thức đó thường có nội dung dài).

Thanks
Khoi

Bạn thử xem nếu show trên form nhé.

Double click vào nội dung cần show.
Link MediaFire: textbox (1)

 

[KhoiSMC]

Cám ơn bạn, đúng là hiển thị được rồi. Mình hỏi thêm mấy ý sau nhé.
1. Khi di chuột vào textbox đó và scroll để trượt văn bản hoạt động như thế nào nhỉ?
2. Khi đọc xong thông báo đó, ấn Esc có thể thoát bảng thông báo đó được không?
3. file của bạn có sử dụng code nhưng đuôi file là .xls nhỉ?

Thanks
Khoi

 

[phucbugis]

1. Có thể đưa scrollbar vào thêm được không nhỉ và hành động scroll chuột không hoạt động nhỉ?

cái này bạn có thể nới rộng size của Listbox để xem (nội dung chắc ko dài quá 1 màn hình chứ )

2. Khi đọc xong thông báo đó, ấn Esc có thể thoát bảng thông báo đó được không?

cái này làm được, bạn xem file nhé.

3. file của bạn có sử dụng code nhưng đuôi file là .xls nhỉ?

do mình save với phiên bản 97-2003.
Link MediaFire: textbox (2)

 

[leonguyenz]

Cám ơn bạn, đúng là hiển thị được rồi. Mình hỏi thêm mấy ý sau nhé.
1. Có thể đưa scrollbar vào thêm được không nhỉ và hành động scroll chuột không hoạt động nhỉ?
2. Khi đọc xong thông báo đó, ấn Esc có thể thoát bảng thông báo đó được không?
3. file của bạn có sử dụng code nhưng đuôi file là .xls nhỉ?

Thanks
Khoi

Vào trong cửa sổ VBA, mở thuộc tính TextBox1 và chọn ScrollBars, chọn 1-..., 2-..., 3-... (chọn 1 cái). Cái này lăn chuột không được. (Hình như dùng ListView thì mới lăn chuột được)

Nhấn Esc để thoát thì vẽ 1 nút Commandbutton, chọn thuộc tính Cancel = True.
Excel 2003 (đuôi mở rộng .xls) lưu được code, từ Excel 2007 trở lên thì phải save các đuôi mở rộng: .xlsm, .xlsb, .xla.

 

[KhoiSMC]

Đúng rồi mình đã thực hiện theo rồi,
Cho mình hỏi thêm với đưa chuột vào vùng textbox và cuộn scroll chuột để trượt text làm như thế nào nhỉ?

Thanks
Khoi

 

[phucbugis]

Đúng rồi mình đã thực hiện theo rồi,
Cho mình hỏi thêm với đưa chuột vào vùng textbox và cuộn scroll chuột để trượt text làm như thế nào nhỉ?

Thanks
Khoi

Mình cũng đang nghiên cứu vụ này mà chưa ra,

 

[phucbugis]

Đúng rồi mình đã thực hiện theo rồi,
Cho mình hỏi thêm với đưa chuột vào vùng textbox và cuộn scroll chuột để trượt text làm như thế nào nhỉ?
Khoi

Nếu thông tin hiển thị trên textbox quá dài thì mặc định nó sẽ chọn vào dòng cuối.

Bạn hãy thêm: TextBox1.CurLine = 0

vào Private Sub UserForm_Initialize() nhé.

 

[KhoiSMC]

vào Private Sub UserForm_Initialize() nhé.

Cám ơn bạn mình cũng đang định hỏi vấn đề này. Mình dốt vba lắm, đang học thôi.
Làm phiền bạn chút, bạn có thể up file lên được không.

Thanks
Khoi

 

[phucbugis]

Cám ơn bạn mình cũng đang định hỏi vấn đề này. Mình dốt vba lắm, đang học thôi.
Làm phiền bạn chút, bạn có thể up file lên được không.

Thanks
Khoi

Mình nhầm rồi , khi đã có cái dòng đỏ đỏ đó thì textbox1 sẽ chọn row trên cùng.

Private Sub UserForm_Initialize()
    Me.TextBox1 = ActiveCell.Value
    [COLOR=#ff0000]Me.CommandButton2.SetFocus[/COLOR]
End Sub

Nhưng khi Enter vào textbox1 (nếu số liệu quá nhiều vượt quá giới hạn trong textbox) thì nó sẽ chọn vào row cuối. Để xử lý thì bạn thêm đoạn sàu vào:

Private Sub TextBox1_Enter()
    If Me.CheckBox1 = False Then
        CheckBox1 = True
        
        With TextBox1
            .CurLine = 0
            .ScrollBars = fmScrollBarsBoth
        End With
    End If
End Sub

Mình đã chỉnh lại Propeties của textbox1 ---> ScrollBars = 0-fmScrollBarsNone (về mặc định)

Bạn mở file và double_click vào ô V3, mình có thử 1 đoạn text đối với trường hợp trên.

Link MediaFire: textbox (3)

 

[KhoiSMC]

Cám ơn bạn phucbugis nhé, vấn đề đã được giải quyết.

Khoi