tạo button xuống cuối trang văn bản (1 người xem)

[haikimcuong]

Thưa các thầy xin các thầy giúp em code khi klick vào 1 button nó sẽ hiện lên 1 userform và trong đó có textbox đánh số dòng vào đó và enter nó sẽ hiện ra dòng đã chon đồng thời sẽ thoát luôn form đó. Em mới chỉ biết làm mỗi cái button và cái form thôi chứ chưa biết viết code tiếp theo mong các thầy chỉ dẫn.

 

[Hoàng Trọng Nghĩa]

Thưa các thầy xin các thầy giúp em code khi klick vào 1 button nó sẽ hiện lên 1 userform và trong đó có textbox đánh số dòng vào đó và enter nó sẽ hiện ra dòng đã chon đồng thời sẽ thoát luôn form đó. Em mới chỉ biết làm mỗi cái button và cái form thôi chứ chưa biết viết code tiếp theo mong các thầy chỉ dẫn.

Khi bấm số dòng vào TextBox1, phải đảm bảo là dạng số và phải là số nguyên dương, nên tôi đã làm trước 1 thủ tục sau đây nhằm ngăn chặn bất cứ thứ gì khác số vào đó:

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0
End Sub

Và sau đó mới tính tới nút lệnh tìm dòng tại cột B như sau:

Dĩ nhiên phải bẫy lỗi nếu TextBox1 là rỗng, nếu đã nhập là số thì tìm hàng thôi:

Private Sub CommandButton1_Click()
    With TextBox1
        If Val(.Text) = 0 Then
            MsgBox "Ban phai nhap so dong!"
            .SetFocus
        Else
            Unload Me
            Sheets("Sheet1").Select
            Range("B" & Val(.Text)).Select
        End If
    End With
End Sub

 

[haikimcuong]

Khi bấm số dòng vào TextBox1, phải đảm bảo là dạng số và phải là số nguyên dương, nên tôi đã làm trước 1 thủ tục sau đây nhằm ngăn chặn bất cứ thứ gì khác số vào đó:

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0
End Sub

Và sau đó mới tính tới nút lệnh tìm dòng tại cột B như sau:

Dĩ nhiên phải bẫy lỗi nếu TextBox1 là rỗng, nếu đã nhập là số thì tìm hàng thôi:

Private Sub CommandButton1_Click()
    With TextBox1
        If Val(.Text) = 0 Then
            MsgBox "Ban phai nhap so dong!"
            .SetFocus
        Else
            Unload Me
            Sheets("Sheet1").Select
            Range("B" & Val(.Text)).Select
        End If
    End With
End Sub

Rất cảm ơn thầy, Xin cho em hỏi them Trường hợp nữa: thầy có thể cho em xin code trong trường hợp em muốn click vào 1 button và nó sẽ tự động về dòng cuối cùng của trang văn bản đó không ạ(không phải là về dòng thứ 65530 đâu thầy ạ) tức là khi em nhập văn bản đến dòng thứ 2000 hoặc 1 dòng nào đó hoặc điểm cuối cùng của văn bản ấy ạ. Cảm ơn thầy

 

[Ba Tê]

Rất cảm ơn thầy, Xin cho em hỏi them Trường hợp nữa: thầy có thể cho em xin code trong trường hợp em muốn click vào 1 button và nó sẽ tự động về dòng cuối cùng của trang văn bản đó không ạ(không phải là về dòng thứ 65530 đâu thầy ạ) tức là khi em nhập văn bản đến dòng thứ 2000 hoặc 1 dòng nào đó hoặc điểm cuối cùng của văn bản ấy ạ. Cảm ơn thầy

Thử với file này xem sao, dữ liệu chỉ có 1 cột nên chỉ lấy số dòng trong 1 cột.

 

[haikimcuong]

Thử với file này xem sao, dữ liệu chỉ có 1 cột nên chỉ lấy số dòng trong 1 cột.

Cảm ơn thầy cái này code gọn mà dễ hiểu quá ạ.