Ba Tê
Cạo Rồi Khỏi Gội
- Tham gia
- 5/5/09
- Bài viết
- 12,125
- Được thích
- 17,583
- Giới tính
- Nam
For I = 1 To UBound(sArr, 1) For J = 1 To 4
dArr1(I, J) = sArr(I, J)
dArr2(I, J) = sArr(I, J)
dArr3(I, J) = sArr(I, J)
Next J
dArr1(I, 5) = sArr(I, 5)
dArr2(I, 5) = sArr(I, 6): dArr2(I, 6) = sArr(I, 7)
dArr3(I, 5) = sArr(I, 8): dArr3(I, 6) = sArr(I, 9)
Next I
Mã:
For I = 1 To UBound(sArr, 1) For J = 1 To 4
dArr1(I, J) = sArr(I, J)
dArr2(I, J) = sArr(I, J)
dArr3(I, J) = sArr(I, J)
Next J
dArr1(I, 5) = sArr(I, 5)
dArr2(I, 5) = sArr(I, 6): dArr2(I, 6) = sArr(I, 7)
dArr3(I, 5) = sArr(I, 8): dArr3(I, 6) = sArr(I, 9)
Next I
HTML:
For I = 1 To UBound(sArr, 1) For J = 1 To 4 dArr1(I, J) = sArr(I, J) dArr2(I, J) = sArr(I, J) dArr3(I, J) = sArr(I, J) Next J dArr1(I, 5) = sArr(I, 5) dArr2(I, 5) = sArr(I, 6): dArr2(I, 6) = sArr(I, 7) dArr3(I, 5) = sArr(I, 8): dArr3(I, 6) = sArr(I, 9)Next I
PHP:
For I = 1 To UBound(sArr, 1)
For J = 1 To 4
dArr1(I, J) = sArr(I, J)'-------------------
dArr2(I, J) = sArr(I, J)
dArr3(I, J) = sArr(I, J)
Next J
dArr1(I, J) = sArr(I, J)
dArr2(I, J) = sArr(I, J)
dArr3(I, J) = sArr(I, J)
Next J
dArr1(I, 5) = sArr(I, 5)
dArr2(I, 5) = sArr(I, 6): dArr2(I, 6) = sArr(I, 7)
dArr3(I, 5) = sArr(I, 8): dArr3(I, 6) = sArr(I, 9)
Next I[/INFO1]
[NOTE1]For I = 1 To UBound(sArr, 1) For J = 1 To 4
dArr1(I, J) = sArr(I, J)
dArr2(I, J) = sArr(I, J)
dArr3(I, J) = sArr(I, J)
Next J
dArr1(I, 5) = sArr(I, 5)
dArr2(I, 5) = sArr(I, 6): dArr2(I, 6) = sArr(I, 7)
dArr3(I, 5) = sArr(I, 8): dArr3(I, 6) = sArr(I, 9)
Next I[/NOTE1]
[TIP]For I = 1 To UBound(sArr, 1) For J = 1 To 4
dArr1(I, J) = sArr(I, J)
dArr2(I, J) = sArr(I, J)
dArr3(I, J) = sArr(I, J)
Next J
dArr1(I, 5) = sArr(I, 5)
dArr2(I, 5) = sArr(I, 6): dArr2(I, 6) = sArr(I, 7)
dArr3(I, 5) = sArr(I, 8): dArr3(I, 6) = sArr(I, 9)
Next I[/TIP]
[WARNING1]For I = 1 To UBound(sArr, 1) For J = 1 To 4
dArr1(I, J) = sArr(I, J)
dArr2(I, J) = sArr(I, J)
dArr3(I, J) = sArr(I, J)
Next J
dArr1(I, 5) = sArr(I, 5)
dArr2(I, 5) = sArr(I, 6): dArr2(I, 6) = sArr(I, 7)
dArr3(I, 5) = sArr(I, 8): dArr3(I, 6) = sArr(I, 9)
Next I[/WARNING1]
[GPECODE=vb]
For I = 1 To UBound(sArr, 1)
For J = 1 To 4
dArr1(I, J) = sArr(I, J)
dArr2(I, J) = sArr(I, J)
dArr3(I, J) = sArr(I, J)
Next J
[/GPECODE]
PHP:
For I = 1 To UBound(sArr, 1)
For J = 1 To 4
dArr1(I, J) = sArr(I, J)
dArr2(I, J) = sArr(I, J)
dArr3(I, J) = sArr(I, J)
Next J
Application.ScreenUpdating = False
ActiveSheet.Unprotect "bate"
Range("A4:H5").Copy
Range("R65000").End(xlUp).Offset(1, -1).PasteSpecial Paste:=xlPasteValues
Range("A7:H36").Copy
Range("R65000").End(xlUp).Offset(1, -1).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
[A7:H36].ClearContents
[D4].Select
ActiveSheet.Protect "bate", DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFormattingColumns:=True
Application.ScreenUpdating = True
MsgBox "LUU XONG", , "GPE"
End Sub
[/GPECODE]
[GPECODE=vbnet]Public Sub LUU_BG()
Application.ScreenUpdating = False
ActiveSheet.Unprotect "bate"
Range("A4:H5").Copy
Range("R65000").End(xlUp).Offset(1, -1).PasteSpecial Paste:=xlPasteValues
Range("A7:H36").Copy
Range("R65000").End(xlUp).Offset(1, -1).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
[A7:H36].ClearContents
[D4].Select
ActiveSheet.Protect "bate", DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFormattingColumns:=True
Application.ScreenUpdating = True
MsgBox "LUU XONG", , "GPE"
End Sub
[/GPECODE]
Lần chỉnh sửa cuối: