Excel VBA質問箱 IV

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

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


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

32927 / 76738

←次へ　｜　前へ→


	【49038】Re:シートを選択して印刷するには。

りん＠通りすがり - 07/5/21(月) 15:54 -


	引用なし

	パスワード

momo さん、こんにちわ。

>でも、ひとつ問題があって、画像の容量が重過ぎて
>やっぱり一つのファイルに収められないんです。
>複数ブックに画像データがあるままでは、
>できないのでしょうか？？
ブックの分岐条件がわからないので、
　 2～ 51列目までは画集１.xls
　52～101列目までは画集２.xls
102～151列目までは画集３.xls
152～201列目までは画集４.xls
それ以降は画集５.xls　というファイル名だとします。

Sub test()
　　<<略>>
　　　　 '新しいブックにコピー
　　　　 For CC& = 2 To Cmax
　　　　　　If ws1.Cells(RR&, CC&).Value = 1 Then
　　　　　　　 With wb2

　　　　　　　 '↓この分岐を追加
　　　　　　　 Select Case CC&
　　　　　　　　　Case 2 to 51:　　wsn = "画集１.xls"
　　　　　　　　　Case 52 to 101:　wsn = "画集２.xls"
　　　　　　　　　Case 102 to 151: wsn = "画集３.xls"
　　　　　　　　　Case 152 to 201: wsn = "画集４.xls"
　　　　　　　　　Case Else:　　　 wsn = "画集５.xls"
　　　　　　　 End Select
　　　　　　　'↓こう変更、ただし全部ブックが開いているのが前提です。
　　　　　　　Workbooks(wsn).Worksheets(ws1.Cells(1, CC&).Value).Copy after:=.Worksheets(.Worksheets.Count)

　　　　　　　 End With
　　　　　　End If
　　<<略>>

こんな感じです。
今、出先なので試せてませんが。

0 hits

▼

【48963】シートを選択して印刷するには。 momo 07/5/17(木) 18:00