Excel VBA質問箱 IV

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

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


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

5816 / 76735

←次へ　｜　前へ→


	【76526】Re:コードを短くしたい

β - 14/12/26(金) 17:54 -


	引用なし

	パスワード

▼ゆーあさん：

コードはよく読んでいませんが、１項目ごとに

・元ブックをActiveにして
・そこの項目をコピーして
・新ブックをアクティブにして
・書き込みセルを選択して
・ペースト

これでは時間がかかるでしょうね。

>データベースファイルのセルセレクトは、順番（1～50）ですが、
>新規ブックの方は、規則性はあるもののランダムになってます。

これについても、整理してコードを短くすることができますが、その前に
まずは、上記の状態を改善するところから始められてはいかがでしょう。

Sub Sample()
　　Dim dBK As Workbook
　　Dim nBK As Workbook
　　Dim dSh As Worksheet
　　Dim nSh As Worksheet
　　
　　Set dBK = Workbooks("●●●●.xls")
　　Set dSh = dBK.Sheets("Sheet3")
　　Set nBK = Workbooks("□□□□.xls")
　　Set nSh = nBK.Sheets("ﾃﾞｰﾀ抽出")
　　
　　Application.ScreenUpdating = False　　　'セル書き込みに伴う画面再描画の抑止（処理時間の短縮化）
　　
　　nSh.Range("B6").Value = dSh.Range("A1").Value
　　nSh.Range("C6").Value = dSh.Range("A2").Value
　　nSh.Range("D6").Value = dSh.Range("A3").Value
　　
　　　　　　'
　　　　　　'
　　　　　　'
　　　　　　
End Sub

0 hits

▼

【76525】コードを短くしたい ゆーあ 14/12/26(金) 15:42