如何 if 判断

luogu

如何if 判断下面这句
  ActiveSheet.Shapes.AddPicture("http://qr.topscan.com/api.php?text=abc&m=3&el=m", msoCTrue, msoCTrue, 440, 68, 80, 80).AlternativeText = "Error"
失败了,就 执行下一句
  ActiveSheet.Shapes.AddPicture("http://qrcode.jp/qr?q=abc&s=3", msoCTrue, msoCTrue, 425, 58, -1, -1).AlternativeText = "Error"


请教下如何写

luogu

顶起,过节高手都不在哟

phsu

Sub test()
    If ActiveSheet.Shapes.AddPicture("http://qr.topscan.com/api.php?text=abc&m=3&el=m", msoCTrue, msoCTrue, 440, 68, 80, 80).AlternativeText = "Error" Then
        ActiveSheet.Shapes.AddPicture("http://qrcode.jp/qr?q=abc&s=3", msoCTrue, msoCTrue, 425, 58, -1, -1).AlternativeText = "Error"
    End If
End Sub

luogu

phsu 发表于 2018-6-18 20:41
Sub test()
    If ActiveSheet.Shapes.AddPicture("http://qr.topscan.com/api.php?text=abc&m=3&el=m",  ...

不行, 您在hosts文件里,把qr.topscan.com屏蔽了,设置成0.0.0.0 , 试下,
我试了,不能执行下一个.

luogu

顶起,高手都不在吗?

melville

on error goto 1
ActiveSheet.Shapes.AddPicture("http://qr.topscan.com/api.php?text=abc&m=3&el=m", msoCTrue, msoCTrue, 440, 68, 80, 80).AlternativeText = "Error"
1:
  ActiveSheet.Shapes.AddPicture("http://qrcode.jp/qr?q=abc&s=3", msoCTrue, msoCTrue, 425, 58, -1, -1).AlternativeText = "Error"

luogu

melville 发表于 2018-6-22 10:56
on error goto 1
ActiveSheet.Shapes.AddPicture("http://qr.topscan.com/api.php?text=abc&m=3&el=m",  ...

不行,2个语句都有执行,生成了2张图, 重叠的.

melville

luogu 发表于 2018-6-23 12:25
不行,2个语句都有执行,生成了2张图, 重叠的.

你那个是二选一的话，那就改下面这样


on error goto 1

if err then
1:
  ActiveSheet.Shapes.AddPicture("http://qrcode.jp/qr?q=abc&s=3", msoCTrue, msoCTrue, 425, 58, -1, -1).AlternativeText = "Error"
else
ActiveSheet.Shapes.AddPicture("http://qr.topscan.com/api.php?text=abc&m=3&el=m", msoCTrue, msoCTrue, 440, 68, 80, 80).AlternativeText = "Error"
endif

luogu

melville 发表于 2018-6-25 11:49
你那个是二选一的话，那就改下面这样

非常感謝,是我所要的結果.