Gán giá trị vào biến - lỗi ở đâu?

[phanngoctuan]

xin các bạn help minh
minh muốn nhập liêu vào một vùng A115, bằng Form, nhưng mình muốn rằng với dòng nào có số liệu rồi thì số liệu mới sẽ nạp vào dòng tiếp theo.
và cách lấy số liệu trong cell như thế nào sao minh viết như thế này bị báo lỗi:
giả sử mình có sheet tên input
============
Sub vehk1()
Dim i, j As Integer
Dim td As Integer
Worksheets("input").Range("b2").Select
td = 25
For i = 5 To td
b = Worksheets("input").Selection.Cells("n", i).Value
d = Worksheets("input").Select.Cells("o", i).Value
k = Worksheets("input").Select.Cells("g", i).Value
.......
next i
end sub
...............
bị báo lỗi dòng b.d,k
xin nhờ giúp đỡ

 

[nvson]

Những dòng lệnh bị lỗi là do bạn chưa viết đúng cú pháp của đối tượng đó.

Sub vehk1()
Dim i, j As Integer
Dim td As Integer
'Worksheets("input").Range("b2").Select
td = 25
For i = 5 To td
    'b = Worksheets("input").Selection.Cells("n", i).Value
    b = Worksheets("input").Range("N" & i).Value
    'd = Worksheets("input").Select.Cells("o", i).Value
    d = Worksheets("input").Range("O" & i).Value
    'k = Worksheets("input").Select.Cells("g", i).Value
    k = Worksheets("input").Range("G" & i).Value
    '.......
Next i
End Sub

 

[phanngoctuan]

vậy mình phải viết như thế nào? xin bạn giúp!

 

[Đào Việt Cường]

Dear phanngoctuan,
-------------------

Anh NVSon đã sửa giúp bạn rồi đó!

Bạn có thể tham khảo thêm:
Add-In "AutoForm" - giúp bạn nhập liệu bằng User Form

 

[yeudoi]

Bạn cứ copy đoạn code trên là được rồi

 

[SA_DQ]

Bạn cứ copy đoạn code trên là được rồi
(òn muốn tham khảo thêm thì, xin mời:

[b]Sub vehk1()[/b]
Dim i, j  [COLOR="Blue"][B] ' As Varỉant[/B][/COLOR]
Dim td As Integer
Worksheets("input").Select
td = 5
For i = 1 To td
    b = Cells(i, Asc("N") - 64).Value
    d = Cells(i, Asc("O") - 64).Value
    k = Cells(i, Asc("G") - 64).Value
    MsgBox b & " " & d, , k
Next i
[b]End Sub[/b]