| |
ボタンを押したらユーザーフォームの各ラベルにセルの値を出力するし
その中のラベル１６と同じ名前の画像ファイルをユーザーフォームに出力する
プログラムを描いたのですが画像ファイルとラベル１６が一致しない場合
「画像がありません」と書かれた画像を出力したい場合どうすればいいのでしょうか？
Private Sub CommandButton5_Click()
Main.TextBox2.Value = Sheet1.Range("C3").Value
Dim code As Range
If Main.CommandButton5 = Click Then
Label15 = ""
Label16 = ""
Label17 = ""
Label18 = ""
Label19 = ""
Label20 = ""
Set code = Columns(3).Find(what:=TextBox2, lookat:=xlWhole) 'Ｃ列から検索
If code Is Nothing Then
MsgBox "部品が登録されておりません。"
TextBox2 = "" 'テキストボックス２のデータを削除
Else
'ラベルにデータを入れる
Label15 = code.Offset(0, -1)
Label16 = code.Offset(0, 0)
Label17 = code.Offset(0, 1)
Label18 = code.Offset(0, 2)
Label19 = code.Offset(0, 3)
Label20 = code.Offset(0, 4)
Image1.Picture = LoadPicture("D:\Files\Documents\部品管理画像\" & Label16 & ".jpg")
End If
End If
End Sub
|
|
ヤマザキ
- 21/11/15(月) 15:57 -
![[未読]](./data/access/image/read_icon.gif){kind=icon}
≪
