Excel VBA質問箱 IV

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

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


76373 / 76738 ←次へ | 前へ→

【4787】初めてのマクロで困ってます。
質問  まつじゅん  - 03/4/7(月) 16:43 -

引用なし
パスワード
   初めまして、VBA初心者のまつじゅんです。

VBAの本等を参考に照明配置図を作っております。
ユーザーフォームを使って各照明器具毎のワークシートに
配置を出来るようにしたいと思い下記の様は物を作ってみました。

リストボックスに商品番号を表示させて、イメージボックスにその画像を
表示させる事は出来たのですが、
任意のセル(例 B4 設置番地 V44、B6 設置番地 W44の)に
テキストボックス1で入力した商品番号をセル番地(設置番地)に転送し、
そのすぐ下のセルには、イメージボックスの拡大された別画像を転送させたいと
思っております。
(イメージボックの画像と拡大された画像は別のファイルフォルダに保存ます)
参考にしたマクロでは、選んだ商品番号を新たなワークシート名として
画像を表示させるような物だと思うのですが、
新たなワークシートは作成されなくて良いのです。
マクロをほぼ丸写しなのでどこを改造して良いのかわからず
ひょっとしたら全然違うマクロを作っているような気がして投稿しました。

何方か良いアドバイスをよろしくお願いします。


Dim ImgName As String

Private Sub ExitBtn_Click()
  Unload Me
  End
End Sub

'ここからが転送についてのマクロだと思います'
Private Sub InputBtn_Click()
Dim WSName As String
Dim i As Variant

WSName = NameBox.Text

If WSName = "" Then
  MsgBox "商品番号をお入れ下さい"
  NameBox.SetFocus
  Exit Sub
ElseIf ImgName = "" Then
  MsgBox "商品の写真をお選び下さい"
  ListBox1.SetFocus
  Exit Sub
End If

For Each i In Worksheets
   If i.Name = WSName Then
     GoTo FAIL
   End If
Next

Worksheets("WSName").Copy before:=Worksheets("WSName")
ActiveSheet.Name = WSName

With Worksheets(WSName)
   .Range("E4") = WSName
   .Range("E6") = ClassBox.Text
   .Image1.Picture = LoadPicture(ImgName)
End With

   NameBox = ""
   ClassBox = ""
   ListBox1.SetFocus
   Exit Sub
   
FAIL:
   MsgBox "既に同じ番号が登録されております" & Chr(13) _
        & "番号を確かめてもう1度入力して下さい"
   NameBox.SetFocus
End Sub
'ここまで'

Private Sub ListBox1_Click()
  ImgName = ListBox1.List(ListBox1.ListIndex)
  ImgName = ActiveWorkbook.Path & "\" & ImgName
  Image1.Picture = LoadPicture(ImgName)
End Sub
Private Sub UserForm_Initialize()
 Dim jpgDir As String
 Dim Fname As String
 
 jpgDir = ActiveWorkbook.Path & "\*.jpg"
 
 Fname = Dir(jpgDir, vbNormal)
 ListBox1.AddItem Fname
 
 Do
 
  Fname = Dir
  ListBox1.AddItem Fname
 
 Loop While Fname <> ""
 
End Sub

3 hits

【4787】初めてのマクロで困ってます。 まつじゅん 03/4/7(月) 16:43 質問
【4801】Re:初めてのマクロで困ってます。 ポンタ 03/4/8(火) 11:38 回答
【4811】Re:初めてのマクロで困ってます。 まつじゅん 03/4/8(火) 16:07 質問
【4812】Re:初めてのマクロで困ってます。 ポンタ 03/4/8(火) 16:51 回答
【4838】Re:初めてのマクロで困ってます。 まつじゅん 03/4/10(木) 8:52 質問
【4839】Re:初めてのマクロで困ってます。 ポンタ 03/4/10(木) 9:41 発言
【4847】Re:初めてのマクロで困ってます。 まつじゅん 03/4/10(木) 13:52 お礼

76373 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free