excel - Vba：做while/循环

Question

我的用户窗体上有一个名为“LOW STOCK”的命令按钮，当单元格 G3 > 0（单元格 G3 包含低于最低库存限制的产品数量）时，我希望此按钮的背面颜色在黄色和鲑鱼之间切换。

闪烁将提示用户单击按钮以显示（通过弹出消息框）库存不足的产品数量。

我在 Userform_Initialize 中插入了下面的代码，但 excel 冻结并显示在标题栏上“Excel 没有响应”。请我很高兴知道我哪里出错了。

Sub Userform_Initialize
    Do while sheet1.Cells(3, 7) > 0 
        btnLowStock.Backcolor = RGB(255, 255, 0)
        btnLowStock.Backcolor = RGB(255, 128, 128)
    Loop
End Sub