Excel VBA質問箱 IV

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

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


28500 / 76732 ←次へ | 前へ→

【53529】Re:リストボックスからの作業
発言  ポポ  - 08/1/19(土) 16:34 -

引用なし
パスワード
   ★ハトさんこんにちは

>
>1.正しいシート名はどちら?
>★全部表示してみました。シート名は .AddItem に表示してある事務用品などで す。
  Workbooks(Fn1).Worksheets(表示).Range("A1:I100") = Workbooks("開始画   面").Worksheets("発注検収").Range("A12:I112")この部分がインデックスが有  効範囲内にありませんと出てしまいます。

 Private Sub OK_Click()
  Dim 表示 As String
  Dim Fn1 As String
  Dim パス As String

  表示 = Me.lstKAMOKU.Text
  If lstKAMOKU <> "" Then
   パス = ActiveWorkbook.Path & "\保存\"
   Fn1 = Dir(パス & Workbooks("開始画面.xls").Worksheets("開始").Range    ("A1").Value & ".xls")
 
   Workbooks(Fn1).Worksheets(表示).Range("A1:I100") = Workbooks("開始画   面").Worksheets("発注検収").Range("A12:I112")
  Else
   MsgBox ("科目が選択されていません")
  
  End If
  
End Sub
Private Sub UserForm_Initialize()
  With lstKAMOKU
   .AddItem "事務用品"
   .AddItem "旅費交通費"
   .AddItem "修繕費"
 End With
 lstKAMOKU.ListIndex = -1
End Sub


>2. Fn1のファイルのオープンはいつ?
>  オープン済みが前提ですか?

★ Fn1のファイルオープンは起動と同時に開くように設定していますので、オープ  ン済みです。
>
>3.どこからどこへコピー? 
>>ユーザーフォームのリストボックスで選択した科目と同じ名前のシート
>>(開始画面.xlsのworksheets発注検収のrange("A1")に表示してある
>>ファイルのworksheetです)Range("A1:I100")をコピーして
>>違うファイル(開始画面.xls)のシートに貼り付け
>
>  Workbooks("Fn1").Worksheets("表示").Range("A1:I100") = Worksheets("発注検収").Range("A12:I112")

★ 07SIMO.xlsから開始画面.xlsのWorksheets("発注検収")へコピーしたいので   す。
  わかりにくい説明ばかりで申し訳ありませんでした。よろしくお願いします。

0 hits

【53511】リストボックスからの作業 ポポ 08/1/18(金) 15:07 質問
【53512】Re:リストボックスからの作業 じゅんじゅん 08/1/18(金) 15:35 発言
【53513】Re:リストボックスからの作業 ポポ 08/1/18(金) 16:10 質問
【53514】Re:リストボックスからの作業 neptune 08/1/18(金) 16:18 回答
【53515】Re:リストボックスからの作業 ポポ 08/1/18(金) 16:53 お礼
【53520】Re:リストボックスからの作業 neptune 08/1/18(金) 22:28 回答
【53522】Re:リストボックスからの作業 ポポ 08/1/19(土) 9:47 お礼
【53523】Re:リストボックスからの作業 ハト 08/1/19(土) 11:14 発言
【53529】Re:リストボックスからの作業 ポポ 08/1/19(土) 16:34 発言
【53530】Re:リストボックスからの作業 じゅんじゅん 08/1/20(日) 9:37 発言
【53531】Re:リストボックスからの作業 ハト 08/1/20(日) 12:33 発言
【53545】Re:リストボックスからの作業 ポポ 08/1/21(月) 10:02 発言
【53546】Re:リストボックスからの作業 じゅんじゅん 08/1/21(月) 10:14 発言
【53547】Re:リストボックスからの作業 りん 08/1/21(月) 10:15 発言
【53548】Re:リストボックスからの作業 ハト 08/1/21(月) 11:00 発言
【53551】Re:リストボックスからの作業 ポポ 08/1/21(月) 11:27 発言
【53552】Re:リストボックスからの作業 ポポ 08/1/21(月) 17:13 お礼

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