Excel VBA質問箱 IV

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

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


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

25239 / 76736

←次へ　｜　前へ→


	【56841】Re:値だけ貼付けしたいけどエラーに

kanabun - 08/7/8(火) 12:54 -


	引用なし

	パスワード

▼初心者ごろうさん：
こんにちは。

提示のマクロコードを文章にすると、こういうことですか？

Sub 値だけ貼付けVer2()
　Const myFolder = "\\kkk\hh\III\YY\DDDDD\DDD\PPPPP\"

'　　Application.ScreenUpdating = False
'
'(1)『その他.xls』を開いて「その他」[A13:L13]以降全行を Copy
'　　　→ 値貼り付け『集計.xls』「集計」[A13]
'　　開いたBookを(保存して?) 閉じる

'(2)『１３.xls』を開いて
'　　Sheet「QC」[A13:L13]以降全行を Copy
'　　　→ 値貼り付け『集計.xls』「集計」[A列最終行に追加]
'　　Sheet「AA」の[A13:L13]以降全行を Copy
'　　　→ 値貼り付け『集計.xls』「集計」[A列最終行に追加]
'　　開いたBookを(保存して?) 閉じる

'(3)『１４.xls』を開いて
'　　Sheet「BB」の[A13:L13]以降全行を Copy
'　　　→ 値貼り付け『集計.xls』「集計」[A列最終行に追加]
'　　開いたBookを(保存して?) 閉じる

'　　Application.ScreenUpdating = true
End Sub

0 hits

▼

【56754】値だけ貼付けしたいけどエラーに 初心者ごろう 08/7/3(木) 15:43