Nhờ các bác dịch hộ em code với ạ

Liên hệ QC

dzuongdv

Thành viên mới
Tham gia
10/2/09
Bài viết
3
Được thích
0
Em có đoạn code thế này. Các bác dịch giúp em với ạ. (Em đang đi học lỏm nên các bác đừng cười)
Sub TIENPHONG()
Dim i, j, k, n, n1 As Integer
Dim temp
n = 2000
n1 = 2000
For i = 2 To n
temp = Sheet1.Cells(i, 2)
For j = 2 To n1
If temp = Sheet2.Cells(j, 2) Then
k = 2
Do While Not IsEmpty(Sheet2.Cells(j, k))

Sheet1.Cells(i, k) = Sheet2.Cells(j, k)
k = k + 1
Loop
Exit For
End If
Next
Next
End Sub
 
Dịch ra cái gì?
Vả lại, code này dỏm lắm, không xứng đáng học. Kiếm cái khác đi.
 
Em muốn hiểu ý nghĩa của nó ạ. bác nào thông não hộ em cái
 
Em có đoạn code thế này. Các bác dịch giúp em với ạ. (Em đang đi học lỏm nên các bác đừng cười)
Sub TIENPHONG()
Dim i, j, k, n, n1 As Integer
Dim temp
n = 2000
n1 = 2000
For i = 2 To n
temp = Sheet1.Cells(i, 2)
For j = 2 To n1
If temp = Sheet2.Cells(j, 2) Then
k = 2
Do While Not IsEmpty(Sheet2.Cells(j, k))

Sheet1.Cells(i, k) = Sheet2.Cells(j, k)
k = k + 1
Loop
Exit For
End If
Next
Next
End Sub
Bạn nói dịch là sao? là "dịch ra tiếng Việt cho bạn đọc hả? chắc bạn là người Việt Nam
Vậy mình dịch sang tiếng việt cho bạn nè !!!!!

Chương trình TIENPHONG ()
Khai báo i, j, k, n, n1 Là số nguyên
Khai báo Nhiệt độ
n = 2000
n1 = 2000
Cho i = 2 đến n
Nhiệt độ = Sheet1.Cells (i, 2)
Cho j = 2 đến n1
Nếu Nhiệt độ = Sheet2.Cells (j, 2) Thì
k = 2
Làm lại trong khi không phải là LàRỗng (Sheet2.Cells (j, k))
Sheet1.Cells (i, k) = Sheet2.Cells (j, k)
k = k + 1
Vòng lại làm tiếp
Thoát vòng lặp
Kết thúc nếu
Kế tiếp
Kế tiếp
Kết thúc Chương trình.

Hy vong bạn cũng là người Việt đủ hiểu tiếng Việt nhá
 
Web KT
Back
Top Bottom