nhờ sửa code trong Form

[khamha]

Mình sử dụng Form để sửa dữ liệu ,Nhưng ko hiểu sao nó chỉ cập nhật được có cột A còn từ B đến G thì ko ,Nhờ các bạn xem File đính kèm.

http://laoupload.com/GDLJ6ZOYUYQK/SuaDuLieuTrenForm_2013.xls.html

 

[sealand]

Bạn sửa nó thay đổi Rowsource nên phát sinh clik của listbox
Bạn thay Code như sau:

Private Sub C_Save_Click()
Dim st As Integer, Tm(1 To 7)
st = ListBox1.ListIndex + 1
On Error Resume Next
Tm(1) = PW1: Tm(2) = PW2: Tm(3) = PW3: Tm(4) = PW4: Tm(5) = PW5: Tm(6) = PW6: Tm(7) = PW7
P.Cells(st, 1).Resize(, 7) = Tm
End Sub

Lâu nay khoẻ không ?

 

[khamha]

Bạn sửa nó thay đổi Rowsource nên phát sinh clik của listbox
Bạn thay Code như sau:

Private Sub C_Save_Click()
Dim st As Integer, Tm(1 To 7)
st = ListBox1.ListIndex + 1
On Error Resume Next
Tm(1) = PW1: Tm(2) = PW2: Tm(3) = PW3: Tm(4) = PW4: Tm(5) = PW5: Tm(6) = PW6: Tm(7) = PW7
P.Cells(st, 1).Resize(, 7) = Tm
End Sub

Lâu nay khoẻ không ?

Cảm ơn SP ,Em vẫn ok.
SP ơi,Nếu Sheet"P" là Sheet ẩn thì phải sửa Code lại như thế nào.

 

[viehoai]

Cảm ơn SP ,Em vẫn ok.
SP ơi,Nếu Sheet"P" là Sheet ẩn thì phải sửa Code lại như thế nào.

Anh thử xem nó có lỗi không, nếu xẩy ra lỗi ở đâu thì biết liền à

 

[be_09]

Click vào ListBox kéo nó lên 1 đoạn, rồi sửa RowSource là P!A2:G11 và sửa ColumnHeads là True, xong mở Form lên xem ListtBox nó như thế nào.

 

[sealand]

Cảm ơn SP ,Em vẫn ok.
SP ơi,Nếu Sheet"P" là Sheet ẩn thì phải sửa Code lại như thế nào.

Với Code C_Save_Click() thì ổn rồi, không lỗi được. Nhưng với Code Sub ListBox1_Click() thì có chuyện. Lý do: KhamHa để ý đoạn Code sau:

PW2 =Cells(st, 2)
PW3 = Cells(st, 3)
PW4 = Cells(st, 4)
PW5 = Cells(st, 5)
PW6 =Cells(st, 6)
PW7 = Cells(st, 7)

Bạn có thấy Cells không minh bạch không. Có nghĩa là không biết Cells thuộc về Sheet nào. Về nguyên tắc không rõ thì Excel coi Cells đó là của Sheet đang hoạt động. Đến đây là có chuyện vì Sheet P là sheets ẩn, vậy thì workbook đương nhiên phải nhiều hơn 1 sheet và lúc này sheet Active phải là Sheet khác sheet P, vậy Code sẽ lấy dữ liệu của sheet này chứ không phải sheet P. Sửa như sau thì vô tư, kể cả là siêu ẩn cũng chẳng sao:

PW2 = P.Cells(st, 2)
PW3 = P.Cells(st, 3)
PW4 = P.Cells(st, 4)
PW5 = P.Cells(st, 5)
PW6 = P.Cells(st, 6)
PW7 = P.Cells(st, 7)