Excel VBA質問箱 IV

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

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


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

28522 / 76738

←次へ　｜　前へ→


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

ポポ - 08/1/18(金) 16:10 -


	引用なし

	パスワード

▼じゅんじゅんさん：
>▼ポポさん：
>>お世話になります。初心者ポポといいます。
>>
>>ユーザーフォームのリストボックスで選択した科目と同じ名前のシート（開始画面.xlsのworksheets発注検収のrange("A1")に表示してあるファイルのworksheetです）Range("A1:I100")をコピーして違うファイル（開始画面.xls)のシートに貼り付けたいのですが、うまくいきません。どこが違うか教えていただけないでしょうか？
>>
>>
>>'科目シート表示
>>
>>Private Sub OK_Click()
>>Dim 表示 As String
>>Dim Fn1, Fn2, パス 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") = Worksheets("発注検収").Range("A12:I112")
>>Else
>>　　MsgBox ("科目が選択されていません")
>>　　
>>End If
>>　　
>>End Sub
>
>
>>　　Workbooks("Fn1")
>　　Workbooks(Fn1)
>変数を""でくくってはダメです。
>
>あと、
>>うまくいきません。
>どううまくいかないのか？
>各ブックと各シートの関係も明確にされては？

じゅんじゅんさんお返答ありがとうございます。

Workbooks("Fn1").Worksheets("表示").Range("A1:I100") = Worksheets("発注検収").Range("A12:I112")
がインデックスが有効範囲内にありませんと出てしまいます。

worksheets("表示")の表示の部分にリストボックスで選択した値を入れたいのですが、どうやったらいいのかわからないんです。
表示 = Me.lstKAMOKU.Textではだめなのでしょうか？
（lstKAMOKUはListBox1です）
色々調べて試してみたんですが、エラーになってしまって。

0 hits

▼

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