vẽ hình trái tim

[minxu1695]

mọi người ai biết làm cái này không ạ ? chỉ em với huhu
trên mạng thấy để dòng code này nhưng em làm không ra được như thế

Private Sub min()
Dim i%, j%
For i = 0 To 1000


Sheet1.Range("a1") = i / 10
If i > 100 Then
j = CInt(i / 100)
Sheet2.Cells(j, 2) = Sheet1.Cells(j, 4)
End If
delay (0.2)
Next
End Sub
Sub delay(t As Single)
Dim t1 As Single
t1 = Timer
Do
DoEvents
Loop While Timer - t1 < t


End Sub

 

[Lạc_Long_Quân]

Đâu biết sheet 1 người ta có gì trong đâu mà làm bro

 

[ptm0412]

Đâu biết sheet 1 người ta có gì trong đâu mà làm bro

Sheet 1 trắng. Mà bro là gì vậy? tôi đọc ra "rồ" giống như rồ dại vậy.

 

[VetMini]

Sheet 1 trắng. Mà bro là gì vậy? tôi đọc ra "rồ" giống như rồ dại vậy.

Ngôn ngữ "con rồng" ấy mà.