EXCEL vba 点击按钮随机弹出图片 image

Question

在excel里面，想点击按钮，然后判断某个单元格k5=10.00，则随机弹出图片，但是只能弹出一张，不会弹出第二张，应该怎么修改，麻烦大侠了Private Sub CommandButton1_Click()
  If Round(Range("K5").Value, 2) = 10.00 Then
       Image1.Visible = True Or Image2.Visible = True
end if
end sub

Answer 1

Private Sub CommandButton1_Click()
  If Round(Range("K5").Value, 2) = 10.00 Then
   dim i as integer
   i=int(rnd*10)       
   Image1.Visible = (i>=5)
   Image2.Visible = not image1.visible
end if
end sub