Đồng bộ dữ liệu lấy tưg Sheet với các kiểu dữ liệu integer,single

[dangxuanhoakid]

Bác nào biết chỉ cho em với
vd em viết 1 chương trình

Dim a As Integer
Type Lokhoan
Dk As Single
DoSau As Single
SomauDatda As Integer
Maudat(1 To 20) As String
Dosaumau(1 To 20) As Single
maucuoi As String
End Type
'gan gia tri'
Dim SearchLoKhoan(1 To 100) As Lokhoan
For i = 1 To 36 Step 1
SearchLoKhoan(i).Dk = Sheets(1).Cells(i, 2)*********
SearchLoKhoan(i).DoSau = Sheets(1).Cells(i, 3)*********
SearchLoKhoan(i).SomauDatda = Sheets(1).Cells(i, 4)********
a = SearchLoKhoan(i).SomauDatda
For j = 1 To a Step 1
SearchLoKhoan(i).Dosaumau(j) = Sheets(1).Cells(i, 3 + 2 * j)*********
SearchLoKhoan(i).Maudat(j) = Sheets(1).Cells(i, 4 + 2 * j)*********
Next
SearchLoKhoan(i).maucuoi = Sheets(1).Cells(i, 25)*********
Next

a = txtLokhoan.Text
lblketqua.Caption = "Thông so lo khoan " & a & " la : " & vbCrLf & "Duong kinh lo : " & SearchLoKhoan(a).Dk & "mm"

không hiểu sao nó không chạy được ,Sheets(1) em làm cẩn thận rồi mà nó vẫn không chạy được cứ "invalid inside procedure"
Hay là mình phải thêm đuôi gì đó ở những chỗ em đánh dấu ********** trên chương trình trên????

Các bác chỉ cho em cách đòng bộ dữ liệu nói chung với

 

[tazzz]

File kèm theo bác phải cho cả đoạn mã vào thì anh em mới biết chứ bác ơi. Mà cái đoạn mã kia e ko thấy nó nằm trong hàm hay procedure j cả?

 

[keentwo]

-Dọc cái này hơi lâu do không biết ý tưởng của a là gì?Lại phải dò từng câu nên a có thể cho biết mục đích đoạn code làm gì luôn được không sẽ dễ xử lý....

 

[dangxuanhoakid]

Em mãi mới ra cái lỗ khoan này,do em khai báo type trong Sub con nên không được
Cám ơn các bác