Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1855 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【71447】Textboxの値に応じた写真の画像をイメージコントロールに表示をさせるのは aribaba 12/3/4(日) 22:57 質問[未読]
【71448】Re:Textboxの値に応じた写真の画像をイメー... UO3 12/3/4(日) 23:05 発言[未読]
【71449】Re:Textboxの値に応じた写真の画像をイメー... kanabun 12/3/5(月) 13:03 発言[未読]
【71453】Re:Textboxの値に応じた写真の画像をイメー... aribaba 12/3/5(月) 22:03 質問[未読]
【71456】Re:Textboxの値に応じた写真の画像をイメー... とおりすぎ 12/3/5(月) 23:07 回答[未読]
【71458】Re:Textboxの値に応じた写真の画像をイメー... とおりすぎ 12/3/5(月) 23:20 回答[未読]
【71459】Re:Textboxの値に応じた写真の画像をイメー... UO3 12/3/6(火) 10:11 発言[未読]
【71470】Re:Textboxの値に応じた写真の画像をイメー... aribaba 12/3/8(木) 21:48 質問[未読]
【71471】Re:Textboxの値に応じた写真の画像をイメー... UO3 12/3/9(金) 0:20 発言[未読]
【71487】Re:Textboxの値に応じた写真の画像をイメー... aribaba 12/3/10(土) 9:32 お礼[未読]
【71472】Re:Textboxの値に応じた写真の画像をイメー... UO3 12/3/9(金) 0:24 発言[未読]
【71486】Re:Textboxの値に応じた写真の画像をイメー... aribaba 12/3/10(土) 9:29 質問[未読]
【71473】Re:Textboxの値に応じた写真の画像をイメー... UO3 12/3/9(金) 0:31 発言[未読]
【71447】Textboxの値に応じた写真の画像をイメー...
質問  aribaba E-MAIL  - 12/3/4(日) 22:57 -
引用なし
パスワード
   Dim No As Variant
Dim rcd As Range
Dim pName As String
No = TextBox1.Value

Set rcd = Worksheets("ファイルリスト").Range("A:A").Find(What:=No, LookAt:=xlWhole)

　'’’’型式を表示させる＝＝＝＝＝＝＝＝
TextBox2.Value = rcd.Offset(0, 1).Value

TextBox3.Value = rcd.Offset(0, 6).Value
'’’’注意事項を表示させる＝＝＝＝＝
TextBox4.Value = rcd.Offset(0, 7).Value
' ' '作業者用ノウハウ表示させる＝＝＝＝＝
TextBox5.Value = rcd.Offset(0, 9).Value
　
pName = "F:\作業指示システム\表示用写真\ " & Format(No, "TextBox1.Value") & ".JPG"

With UserForm1
If Dir(pName) <> "　" Then
　 Image1.Picture = LoadPicture(pName)
Else
　 Image1.Picture = LoadPicture()

すみませんが、上記のコードでImage1の写真を表示されないですが、どなた先生が教えていたたけないでしょうか？
【71448】Re:Textboxの値に応じた写真の画像をイメ...
発言  UO3  - 12/3/4(日) 23:05 -
引用なし
パスワード
   ▼aribaba さん：

こんばんは

写真が表示されないとのことですが、実行結果、目的の写真が表示されないのですか？
それとも、それ以前に、どこかでエラーになるのですか？
後者であれば、エラーの場所とエラーメッセージをアップしましょう。

ところで、
Format(No, "TextBox1.Value") & ".JPG"
これで生成しようとしている文字列は、どんな文字列なんでしょうか？
【71449】Re:Textboxの値に応じた写真の画像をイメ...
発言  kanabun  - 12/3/5(月) 13:03 -
引用なし
パスワード
   ▼aribaba さん：

>pName = "F:\作業指示システム\表示用写真\ " & Format(No, "TextBox1.Value") & ".JPG"
を
　pName = "F:\作業指示システム\表示用写真\ " & TextBox1.Text & ".JPG"

>If Dir(pName) <> "　" Then
を
　If Len(Dir(pName)) > 0 Then
に変更、
くらいでどうでしょ？
【71453】Re:Textboxの値に応じた写真の画像をイメ...
質問  aribaba E-MAIL  - 12/3/5(月) 22:03 -
引用なし
パスワード
   ▼kanabun さん：
>▼aribaba さん：
>
>>pName = "F:\作業指示システム\表示用写真\ " & Format(No, "TextBox1.Value") & ".JPG"
>を
>　pName = "F:\作業指示システム\表示用写真\ " & TextBox1.Text & ".JPG"
>
>>If Dir(pName) <> "　" Then
>を
>　If Len(Dir(pName)) > 0 Then
>に変更、
>くらいでどうでしょ？
すみません、ご指導された通りに変更しましたが、
エラーを出ました。(ファイル名また番号が不正です)。原因がよくわからないですが、ご指導をお願いします
【71456】Re:Textboxの値に応じた写真の画像をイメ...
回答  とおりすぎ  - 12/3/5(月) 23:07 -
引用なし
パスワード
   情報が少な過ぎるため、皆さん色々推測しての発言です。

エラーになった時、ローカルウィンドウでpNameの値がどうなっているか確認する。

テキストボックスの値は何で、目的のファイル名は何で、pNameの値はどうなっているか。
【71458】Re:Textboxの値に応じた写真の画像をイメ...
回答  とおりすぎ  - 12/3/5(月) 23:20 -
引用なし
パスワード
   エラーになったのは何処？

kanabunさんの通りに記述すれば、そんなエラーはでないはずだが。
【71459】Re:Textboxの値に応じた写真の画像をイメ...
発言  UO3  - 12/3/6(火) 10:11 -
引用なし
パスワード
   ▼aribaba さん：

既にkanabunさんからご指摘があった２点のうち、１点目、

pName = "F:\作業指示システム\表示用写真\ " & TextBox1.Text & ".JPG"

このように、文字列前半を、もともとのコードを、お使いになり
意味の無い、Format(No, "TextBox1.Value")　の部分を　正しい表記にされたと
思います。(Format関数のパターン引数、"TextBox1.Text" って？）

pName = "F:\作業指示システム\表示用写真\" & TextBox1.Text & ".JPG"

文字列前半部分の最後にスペースが入っていましたので、それをカット。
これで、試すとどうなりますか？
【71470】Re:Textboxの値に応じた写真の画像をイメ...
質問  aribaba E-MAIL  - 12/3/8(木) 21:48 -
引用なし
パスワード
   ▼UO3 さん：
>▼aribaba さん：
>
>既にkanabunさんからご指摘があった２点のうち、１点目、
>
>pName = "F:\作業指示システム\表示用写真\ " & TextBox1.Text & ".JPG"
>
>このように、文字列前半を、もともとのコードを、お使いになり
>意味の無い、Format(No, "TextBox1.Value")　の部分を　正しい表記にされたと
>思います。(Format関数のパターン引数、"TextBox1.Text" って？）
>
>pName = "F:\作業指示システム\表示用写真\" & TextBox1.Text & ".JPG"
>
>文字列前半部分の最後にスペースが入っていましたので、それをカット。
>これで、試すとどうなりますか？
すみません、ご指導された通りに変更しましたが、写真を表示されないですが？
【71471】Re:Textboxの値に応じた写真の画像をイメ...
発言  UO3  - 12/3/9(金) 0:20 -
引用なし
パスワード
   ▼aribaba さん：

エラーメッセージは前と同じですか？
同じだとしたら,本当に TextBox1に入っている値のjpgデータが
このフォルダに存在するのですか？
大文字、小文字、TextBox1にいれた値の後ろにスペースがついている　etc。
そのあたりはどうですか？
あるいは、フォルダにあるファイルは　○○○.JPG なんですか？
○○○.JPEG ということはないですか？
【71472】Re:Textboxの値に応じた写真の画像をイメ...
発言  UO3  - 12/3/9(金) 0:24 -
引用なし
パスワード
   ▼aribaba さん：

pName = "F:\作業指示システム\表示用写真\" & TextBox1.Text & ".JPG"
この前に
MsgBox Len(TextBox1.Value) & "/" & TestBox1.Value
これをいれて実行して、どんなメッセージがでたか教えていただけませんか？
【71473】Re:Textboxの値に応じた写真の画像をイメ...
発言  UO3  - 12/3/9(金) 0:31 -
引用なし
パスワード
   ▼aribaba さん：

こまぎれでごめんなさい。
kanabunさんのアドバイス等で改訂した現在のコードを
そのままコピペしてアップねがえませんか。
【71486】Re:Textboxの値に応じた写真の画像をイメ...
質問  aribaba E-MAIL  - 12/3/10(土) 9:29 -
引用なし
パスワード
   ▼UO3 さん：
>▼aribaba さん：
>
>pName = "F:\作業指示システム\表示用写真\" & TextBox1.Text & ".JPG"
>この前に
>MsgBox Len(TextBox1.Value) & "/" & TestBox1.Value
>これをいれて実行して、どんなメッセージがでたか教えていただけませんか？

すみませんが、ご指導された通りに入れましたが、
実行時エラー'424'
オブジェクトが必要です
出ました。
【71487】Re:Textboxの値に応じた写真の画像をイメ...
お礼  aribaba E-MAIL  - 12/3/10(土) 9:32 -
引用なし
パスワード
   ▼UO3 さん：
>▼aribaba さん：
>
>エラーメッセージは前と同じですか？
>同じだとしたら,本当に TextBox1に入っている値のjpgデータが
>このフォルダに存在するのですか？
>大文字、小文字、TextBox1にいれた値の後ろにスペースがついている　etc。
>そのあたりはどうですか？
>あるいは、フォルダにあるファイルは　○○○.JPG なんですか？
>○○○.JPEG ということはないですか？


写真を表示できるようなりました。
助かりました。本当にありがとうございました、
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1855 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free