Dùng mảng để nhập số liệu (1 người xem)

[truonggiang73]

Tôi gửi File đính kèm nhờ mọi người giúp tôi cách truyền số liệu cho mảng. Tôi viết Code còn vụng, nhờ giúp đỡ cách viết, sửa Code và sử dụng Code thay hàm tại File đính kèm.
TG73 xin cảm ơn.

 

[Let'GâuGâu]

Tôi gửi File đính kèm nhờ mọi người giúp tôi cách truyền số liệu cho mảng. Tôi viết Code còn vụng, nhờ giúp đỡ cách viết, sửa Code và sử dụng Code thay hàm tại File đính kèm.
TG73 xin cảm ơn.

bạn nêu yêu cầu ra luôn đi, bi giờ mà phải ngồi đọc code bạn xem bạn muốn làm cái gì rồi mới sửa hoặc viết mới.............chắc ko kiên nhẫn như vậy nổi..........kakakak

 

[truonggiang73]

Tôi vẫn biết vậy trước khi gửi. Nhưng vì Code chỉ có mấy dòng, có chú thích rõ là đang làm gì, có ghi rõ yêu cầu tại File đính kèm rồi bạn ạ.

 

[jack nt]

bạn nêu yêu cầu ra luôn đi, bi giờ mà phải ngồi đọc code bạn xem bạn muốn làm cái gì rồi mới sửa hoặc viết mới......i.......chắc ko kiên nhẫn như vậy nổi..........kakakak

tui cũng đã cố đọc, nhưng đúng như bạn nói, không kiễn nhẫn nổi.
code mình viết ra, lâu lâu đọc lại còn thấy khó (nếu không có chú giải cẩn thận), nói gì code do người khác viết.

 

[nmhung49]

Tôi vẫn biết vậy trước khi gửi. Nhưng vì Code chỉ có mấy dòng, có chú thích rõ là đang làm gì, có ghi rõ yêu cầu tại File đính kèm rồi bạn ạ.

Tôi giữ nguyên code của bạn sửa lại chút ý chắc sửa vậy bạn hiểu! Nếu viết lại mình nghĩ sẽ gọn hơn như đây là code bạn công sức bỏ ra có gì bạn hoàn thiện lại sao

[GPECODE=vb]
Sub THop()
' Dung de TH SL tu Sheets("BKe") sang Sheets("TT") theo tung KH
'On Error GoTo Thoat
Dim Lanlap As Double ' Xac dinh so phan tu cua Mang()
Lanlap = 0
For SLgKH = 1 To 15 ' La So luong KH tai List
Sheets("TToan").Range("b4:c14").ClearContents
Sheets("BKe").Range("I1").Value = SLgKH
'If (1) : Neu > moi Cong vao Lanlap
If Sheets("BKe").Range("E101").Value > 0 Then
'Lanlap = Lanlap + 1

For i = 1 To 97 ' SL cua bang ke


Dim MySTart1 As Range: Dim MySTart2 As Range
Dim MySTart3 As Range
Set MySTart1 = Sheets("BKe").Range("E3")
Set MySTart2 = Sheets("TToan").Range("b15")
Set MySTart3 = Sheets("TToan").Range("I15")
' TH so lieu sang Sheets("TToan") neu > 0
If Sheets("BKe").Range("E3").Offset(i, 0).Value > 0 Then 'If(2)
'--------------------------------------------------------------------
'To 1
Sheets("TToan").Range("C2").Value = Sheets("BKe").Range("I2").Value
Sheets("TToan").Range("E2").Value = Sheets("BKe").Range("I1").Value
MySTart2.End(xlUp).Offset(1, 1).Value = MySTart1.Offset(i, 0).Value
MySTart2.End(xlUp).Offset(1, 0).Value = MySTart1.Offset(i, -4).Value
'---------------------------------------------------------------------
'To 2
Sheets("TToan").Range("J2").Value = Sheets("BKe").Range("I2").Value
Sheets("TToan").Range("L2").Value = Sheets("BKe").Range("I1").Value
MySTart3.End(xlUp).Offset(1, 1).Value = MySTart1.Offset(i, 0).Value
MySTart3.End(xlUp).Offset(1, 0).Value = MySTart1.Offset(i, -4).Value


End If 'If (2)
Next i
' In Sheets("TToan")
'Sheets("TToan").PrintOut From:=1, To:=1, Copies:=1, Collate:=True
MsgBox "Dang in Giay TToan cua KH : " & Sheets("BKe").Range("I2").Value & vbNewLine & "MSKH la : " & Sheets("BKe").Range("I1").Value
End If 'If (1)
Next SLgKH

MsgBox "So phan tu cua mang la : " & Lanlap

Set MySTart1 = Nothing: Set MySTart1 = Nothing ': Set Lanlap = Nothing
Exit Sub
Thoat:

MsgBox "Dang bi loi "
Exit Sub

End Sub


[/GPECODE]