Chúc mừng năm mới mini vba excel (1 người xem)

[ThichExcel]

Chúc mừng năm mới

Clip nhỏ về chúc mừng năm mới bằng excel

http://www.youtube.com/watch?v=WjZCGd1EImE

 

[ptm0412]

Còn đây là Excel tào lao:


[video=youtube;IJORw-BJ3Ns]http://www.youtube.com/watch?v=IJORw-BJ3Ns&feature=youtu.be[/video]


Vẽ 1 dòng chữ vớ vẩn, xấu như ma ở sheet1, rồi qua sheet2 chạy code sau (viết code không cần nháp, và cũng chẳng cần dấu giếm):

Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)

Sub xyz()
Sheet2.Range(Cells(1, 1), Cells(30, 64)).Clear
For i = 1 To 30
    For j = 1 To 64
    Sleep 5
    DoEvents
     Sheet2.Cells(i, j).Interior.ColorIndex = Sheet1.Cells(i, j).Interior.ColorIndex
    Next
Next
For j = 1 To 32
        For i = 1 To 30
    Sleep 5
    DoEvents
    If Sheet2.Cells(i, j).Interior.ColorIndex = 6 Then
        Sheet2.Cells(i, j).Interior.ColorIndex = 3
    Else
        Sheet2.Cells(i, j).Interior.ColorIndex = 6
    End If
    Next
Next

End Sub

 

[ptm0412]

ptm0412 viết cái gì đó hay hay post đi hem, dùng code loằng ngoằng thế thì thi thoảng vào kênh youtube tui mà xem nhé ) tui chỉ bít marco thui.

Gởi Thich Excel,
Macro chứ không phải marco. Macro là code chứ là gì?
Xem youtube của bạn chỉ toàn những thứ không có giá trị chia sẻ.

Code của tôi loằng ngoằng vì tôi chỉ là hạng xoàng, nhưng tôi không dấu giếm như bạn, chỉ đưa hình và đưa video.

Hôm nay tôi vừa xóa 4 bài vô giá trị của bạn, bài này nữa là 5, tôi đang ước hôm nay không phải ban nick ai, nhưng nếu bạn cứ tái phạm viết những bài vô giá trị thì tôi cũng không kiêng mùng một tết đâu.