520,最辛酸excel技术直男追女日记曝光:扎心了!【excel教程】
全套Excel视频教程,扫码观看
Sub 桃心()
For i = -5 To 5 Step 0.1
k = k + 1
For j = 5 To -5 Step -0.1
l = l + 1
If 17 * i ^ 2 - 16 * Abs(i) * j + 17 * j ^ 2 - 225 <= -9 Then
Cells(l, k).Interior.ColorIndex = xlNone
Cells(l, k).Interior.ColorIndex = 3
End If
Next j
l = 0
Next i
End Sub
Public pp As Boolean
Sub 情人节()
pp = Not (pp)
For i = 0 To 1000 * 4
If pp = False Then
Exit Sub
Else
DoEvents
[B2] = i / 5 / 4
If i Mod 1 = 0 Then
DoEvents
End If
End If
Next i
End Sub
Excel教程相关推荐
做聪明自动化表格,减少重复轻松自己,非它不可【Excel教程】
让工作提速百倍的「Excel极速贯通班」
赞 (0)