|
いつも お世話になります。
次のようにerrorメソッドを使ってラベルを何層にもすると どうもうまく動かないことがあります。
そこで if メソッドを使って 変数ががemptyの時の構文を作りたいのですが
書き方を教えて頂けないでしょうか?
n = Sheets("sheet1").Range("r" & m + 1).Value
o = Sheets("sheet1").Range("s" & m + 1).Value
p = Sheets("sheet1").Range("t" & m + 1).Value
On Error GoTo error1
Image1.Picture = LoadPicture("C:\イラスト\" & n & ".jpg")
元へ:
On Error GoTo error2
Image3.Picture = LoadPicture("C:\イラスト\" & o & ".jpg")
次へ:
On Error GoTo error3
Image2.Picture = LoadPicture("C:\イラスト\" & p & ".jpg")
Exit Sub
error1:
Image1.Picture = LoadPicture("C:\イラスト\z.jpg")
GoTo 元へ
error2:
Image3.Picture = LoadPicture("C:\イラスト\z.jpg")
GoTo 次へ
error3:
Image2.Picture = LoadPicture("C:\イラスト\z.jpg")
|
|