Giải thích code bị lỗi (1 người xem)

[buithanhlong]

Nhờ các cao thủ chỉ giúp tôi đoạn code này bị lỗi gì (tôi sử dụng vòng lặp nhưng bị báo lỗi). Trân trọng cám ơn

Private Sub cbSave_Click()
Dim iR As Long
iR = Sheets("Sheet1").Range("A1000").End(3).Offset(1, 0).Row
If Trim(Me.txtMa.Value) = "" Then
Me.txtMa.SetFocus
MsgBox "Ma khong duoc de trong!", vbCritical + vbOKOnly
Else

'fRng.Offset(, 0) = Me.txtMa.Value
'fRng.Offset(, 1) = Me.txt1.Text
'fRng.Offset(, 2) = Me.txt2.Text
'fRng.Offset(, 3) = Me.txt3.Text
'fRng.Offset(, 4) = Me.txt4.Text
'fRng.Offset(, 5) = Me.txt5.Text
'fRng.Offset(, 6) = Me.txt6.Text
For b = 1 To 6
fRng.Offset(, b) = Me.Controls("txt" & b).Text
Next

 

[siwtom]

Nhờ các cao thủ chỉ giúp tôi đoạn code này bị lỗi gì (tôi sử dụng vòng lặp nhưng bị báo lỗi). Trân trọng cám ơn

Private Sub cbSave_Click()
Dim iR As Long
iR = Sheets("Sheet1").Range("A1000").End(3).Offset(1, 0).Row
If Trim(Me.txtMa.Value) = "" Then
Me.txtMa.SetFocus
MsgBox "Ma khong duoc de trong!", vbCritical + vbOKOnly
Else

'fRng.Offset(, 0) = Me.txtMa.Value
'fRng.Offset(, 1) = Me.txt1.Text
'fRng.Offset(, 2) = Me.txt2.Text
'fRng.Offset(, 3) = Me.txt3.Text
'fRng.Offset(, 4) = Me.txt4.Text
'fRng.Offset(, 5) = Me.txt5.Text
'fRng.Offset(, 6) = Me.txt6.Text
For b = 1 To 6
fRng.Offset(, b) = Me.Controls("txt" & b).Text
Next

Vì bạn không sử dụng iR và đồng thời không xác định fRng nên tôi nghĩ là như sau
1. Sửa Dim iR as long thành Dim fRng as Range
2. Sửa iR = ... thành

Set fRng = Sheets("Sheet1").Range("A1000").End(3).Offset(1, 0)

 

[buithanhlong]

Cám ơn siwtom nhiều nhưng tôi thử vẫn báo lỗi. Tôi tải form lên nhờ bạn kiểm tra giúp nhé.

 

[dhn46]

Lỗi ở đây là do bạn bắt khai báo tường minh, thể hiện qua

Option Explicit

Trong khi đó bạn không khai báo biến b.
Khắc phục : bạn khai báo biến b là được

Dim b As Long

 

[buithanhlong]

Tôi làm được rồi cám ơn dhn46 nhiều nhiều.