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

dzuongdv

Thành viên mới
Tham gia ngày
10 Tháng hai 2009
Bài viết
3
Được thích
0
Điểm
663
Tuổi
38
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
 

VetMini

Chuyên gia GPE
Tham gia ngày
21 Tháng mười hai 2012
Bài viết
10,368
Được thích
12,655
Điểm
1,560
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.
 

dzuongdv

Thành viên mới
Tham gia ngày
10 Tháng hai 2009
Bài viết
3
Được thích
0
Điểm
663
Tuổi
38
Em muốn hiểu ý nghĩa của nó ạ. bác nào thông não hộ em cái
 

leonguyenz

Thành viên mới
Thành viên BQT
Moderator
Tham gia ngày
2 Tháng tám 2010
Bài viết
4,654
Được thích
8,217
Điểm
910
Nơi ở
Bình Dương

thnghiachau

Thành viên tiêu biểu
Tham gia ngày
14 Tháng chín 2009
Bài viết
705
Được thích
560
Điểm
860
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á
 
Top Bottom