Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

28498 / 76732

←次へ　｜　前へ→


	【53531】Re:リストボックスからの作業

ハト - 08/1/20(日) 12:33 -


	引用なし

	パスワード

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

開始画面.xlsのworksheets発注検収のrange("A1")と書かれているが
　　Fn1 = Dir(パス & Workbooks("開始画面.xls").Worksheets("開始").Range("A1").Value & ".xls")
開始画面.xlsのWorksheets("開始").Range("A1").Value
となっている。
「発注検収」と「開始」どちらのシートから取ってくるのが正しいのですか？

インデックスのエラーは
Workbooks(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("発注検収")へコピーしたいので　　　す。
>　　わかりにくい説明ばかりで申し訳ありませんでした。よろしくお願いします。

これではWorksheets("発注検収")からWorkbooks("Fn1").Worksheets("表示").Range("A1:I100")へのコピーです

1 hits

▼

【53511】リストボックスからの作業 ポポ 08/1/18(金) 15:07