Tạo liên kết bảng Excel vào Form (1 người xem)

[phulien1902]

Chào mọi người!
Tôi đang tìm hiểu về VBA, mày mò tạo đước 1 Form nhập liệu, tôi mới biết liên kết số liệu từ Form vào biểu Excel, còn từ biểu vào Form thì chưa biết cách. Vì vậy tôi phiền mọi người giúp tôi:
+) Liên kết số liệu từ biểu Excel vào Form
+) Viết Code cho nút Tiếp theo và nút Quay lại.
Xin trân trọng cảm ơn mọi người

 

[dhn46]

Trong code của Form anh thêm những Code sau:
1/ Code khi load form sẽ load dữ liệu đầu tiên

Private Sub UserForm_Initialize()
    For i = 2 To 5
        Me.Controls("Textbox" & i) = Cells(9, i)
    Next
    For i = 8 To 11
        Me.Controls("Textbox" & i - 2) = Cells(9, i)
    Next
    For i = 14 To 17
        Me.Controls("Textbox" & i - 4) = Cells(9, i)
    Next
    For i = 20 To 23
        Me.Controls("Textbox" & i - 6) = Cells(9, i)
    Next
    TextBox18 = Cells(9, 24)
    TextBox1 = Cells(9, 1)
End Sub

2/ Code tiếp theo

Private Sub CommandButton1_Click()
    Dim Pos As Long
    Pos = TextBox1.Value + 1
    If Pos < 32 Then
        For i = 2 To 5
            Me.Controls("Textbox" & i) = Cells(Pos + 8, i)
        Next
        For i = 8 To 11
            Me.Controls("Textbox" & i - 2) = Cells(Pos + 8, i)
        Next
        For i = 14 To 17
            Me.Controls("Textbox" & i - 4) = Cells(Pos + 8, i)
        Next
        For i = 20 To 23
            Me.Controls("Textbox" & i - 6) = Cells(Pos + 8, i)
        Next
        TextBox18 = Cells(Pos + 8, 24)
        TextBox1 = Pos
    End If
End Sub

3/ code Quay lại

Private Sub CommandButton2_Click()
    Dim Pos As Long
    Pos = TextBox1.Value - 1
    If Pos > 0 Then
        For i = 2 To 5
            Me.Controls("Textbox" & i) = Cells(Pos + 8, i)
        Next
        For i = 8 To 11
            Me.Controls("Textbox" & i - 2) = Cells(Pos + 8, i)
        Next
        For i = 14 To 17
            Me.Controls("Textbox" & i - 4) = Cells(Pos + 8, i)
        Next
        For i = 20 To 23
            Me.Controls("Textbox" & i - 6) = Cells(Pos + 8, i)
        Next
        TextBox18 = Cells(Pos + 8, 24)
        TextBox1 = Pos
    End If
End Sub

Các code tham khảo này sẽ đúng khi ngày được nhập tuần tự, nếu biến đổi anh có thể dùng phương thức Find để tim ra vị trí.

 

[phulien1902]

Cảm ơn em! Hi, Code của em đã Ok rồi. Bây giờ anh muốn khác đi 1 chút ( được voi đòi 2 bà trưng đây) đó là anh muốn gõ 1 ngày bất kỳ(đã được nhập số liệu) thì số liệu sẽ hiện lên Form luôn. Em nghiên cứu giúp anh để anh có cơ hội học hỏi.

 

[phucbugis]

Chào mọi người!
Tôi đang tìm hiểu về VBA, mày mò tạo đước 1 Form nhập liệu, tôi mới biết liên kết số liệu từ Form vào biểu Excel, còn từ biểu vào Form thì chưa biết cách. Vì vậy tôi phiền mọi người giúp tôi:
+) Liên kết số liệu từ biểu Excel vào Form
+) Viết Code cho nút Tiếp theo và nút Quay lại.
Xin trân trọng cảm ơn mọi người

chào bạn,
bạn tải file về kiểm tra xem sao nhé,
'---------
Form của bạn hầu như mình đã "cải tạo" lại toàn bộ
- cách đặt tên các Controls: đối với các Control quan trọng ---> thêm tiền tố phía trước
- nút Nhập bao gồm Sửa hoặc tạo mới số liệu của 1 ngày.
- khi gắn dữ liệu từ Form vào sheet ---> xác định theo kiểu "Letter"

 

[phulien1902]

'---------
Form của bạn hầu như mình đã "cải tạo" lại toàn bộ
- cách đặt tên các Controls: đối với các Control quan trọng ---> thêm tiền tố phía trước
- nút Nhập bao gồm Sửa hoặc tạo mới số liệu của 1 ngày.
- khi gắn dữ liệu từ Form vào sheet ---> xác định theo kiểu "Letter"

Mình rất cảm ơn bạn đã chỉ cho mình "vài đường" cơ bản. Mình sẽ Dowload File của bạn về tìm hiểu.