Xin giúp đỡ về Update hoặc Lưu dữ liệu trogn User Form

[mamc2004]

Chả là em đang làm Ứng dụng nhỏ để tính điểm của một Hội thi, em đã nghiên cứu và tạo ra 1 User Form để nhập điểm thi.
Hiện em đã tạo được cơ bản các yêu cầu bằng VBA, nhưng khi em Click vào nút Cập nhật thì chỉ cập nhật được điểm của Giám khảo 1 (GK1), các giá trị khác không tự cập nhật. Em đã thử chuyển mã:

dataSheet.Cells(selectedRow, 4).Value = txb_gk1.Value
dataSheet.Cells(selectedRow, 5).Value = txb_gk2.Value
dataSheet.Cells(selectedRow, 6).Value = txb_gk3.Value
dataSheet.Cells(selectedRow, 7).Value = txb_gk4.Value
dataSheet.Cells(selectedRow, 8).Value = txb_gk5.Value
dataSheet.Cells(selectedRow, 9).Value = txb_gk6.Value
dataSheet.Cells(selectedRow, 10).Value = txb_gk7.Value

thành:

dataSheet.Cells(selectedRow, 4).Value = txb_gk2.Value      'Đổi vị trí 2
dataSheet.Cells(selectedRow, 5).Value = txb_gk1.Value      ' Với vị trí 1
dataSheet.Cells(selectedRow, 6).Value = txb_gk3.Value
dataSheet.Cells(selectedRow, 7).Value = txb_gk4.Value
dataSheet.Cells(selectedRow, 8).Value = txb_gk5.Value
dataSheet.Cells(selectedRow, 9).Value = txb_gk6.Value
dataSheet.Cells(selectedRow, 10).Value = txb_gk7.Value

thì điểm GK2 được cập nhật, các GK để sau không cập nhật được.

Em gửi file và code lên đây, các bác giúp em kiểm tra xem tại sao lại lỗi như vậy.
Cảm ơn các bác!

 

[giaiphap]

Chả là em đang làm Ứng dụng nhỏ để tính điểm của một Hội thi, em đã nghiên cứu và tạo ra 1 User Form để nhập điểm thi.
Hiện em đã tạo được cơ bản các yêu cầu bằng VBA, nhưng khi em Click vào nút Cập nhật thì chỉ cập nhật được điểm của Giám khảo 1 (GK1), các giá trị khác không tự cập nhật. Em đã thử chuyển mã:

dataSheet.Cells(selectedRow, 4).Value = txb_gk1.Value
dataSheet.Cells(selectedRow, 5).Value = txb_gk2.Value
dataSheet.Cells(selectedRow, 6).Value = txb_gk3.Value
dataSheet.Cells(selectedRow, 7).Value = txb_gk4.Value
dataSheet.Cells(selectedRow, 8).Value = txb_gk5.Value
dataSheet.Cells(selectedRow, 9).Value = txb_gk6.Value
dataSheet.Cells(selectedRow, 10).Value = txb_gk7.Value

thành:

dataSheet.Cells(selectedRow, 4).Value = txb_gk2.Value      'Đổi vị trí 2
dataSheet.Cells(selectedRow, 5).Value = txb_gk1.Value      ' Với vị trí 1
dataSheet.Cells(selectedRow, 6).Value = txb_gk3.Value
dataSheet.Cells(selectedRow, 7).Value = txb_gk4.Value
dataSheet.Cells(selectedRow, 8).Value = txb_gk5.Value
dataSheet.Cells(selectedRow, 9).Value = txb_gk6.Value
dataSheet.Cells(selectedRow, 10).Value = txb_gk7.Value

thì điểm GK2 được cập nhật, các GK để sau không cập nhật được.

Em gửi file và code lên đây, các bác giúp em kiểm tra xem tại sao lại lỗi như vậy.
Cảm ơn các bác!

Dùng code này.

Private Sub cmdUpdate_Click()
    Dim dataSheet As Worksheet
    Set dataSheet = Sheets("Diem_Video")
    Dim selectedRow As Long
    selectedRow = CLng(cb_SBD.Value) + 4
    If selectedRow > 4 Then
        ' Cap nhat cac gia tri tu cac TextBox vao cac cot tuong ung trong bang
        dataSheet.Cells(selectedRow, 4).Resize(, 7).Value = Array(txb_gk1.Text, txb_gk2.Text, txb_gk3.Text, _
                                        txb_gk4.Text, txb_gk5.Text, txb_gk6.Text, txb_gk7.Text)
        MsgBox "Cap nhat thanh cong!"
    Else
        MsgBox "Khong tim thay so bao danh."
    End If
End Sub

 

[mamc2004]

Bác quá tuyệt vời. Thanks bác nhiều
Em phải đọc lại và học code của bác đã.