Excel VBA質問箱 IV

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

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


25233 / 76732 ←次へ | 前へ→

【56843】Re:値だけ貼付けしたいけどエラーに
発言  kanabun  - 08/7/8(火) 13:16 -

引用なし
パスワード
   ▼初心者ごろう さん:

もし Ver2 のようで合ってるなら、あとはそれをコードにするだけです。
コード化するとき、開くBookや 貼り付け先がちがうだけで、処理内容が
同じ部分は、サブプロシージャに独立させて、そこをCallするようにします。
↓こんな感じで。
   (開いたBookのほうは何ら変更してないので 保存せず閉じています)

Sub 値だけ貼付けVer3()
 Const myFolder = "\\kkk\hh\III\YY\DDDDD\DDD\PPPPP\"
 Dim Book As Workbook
 
  Application.ScreenUpdating = False

'(1)『その他.xls』を開いて 「集計」シートに値貼り付け
  Set Book = Workbooks.Open(myFolder & "その他.xls")
  CopyData Book.Sheets("その他"), "A13"
  Book.Close
  Set Book = Nothing
  
'(2)『13.xls』を開いて 「集計」シートに値貼り付け
  Set Book = Workbooks.Open(myFolder & "13.xls")
  CopyData Book.Sheets("QC")
  CopyData Book.Sheets("AA")
  Book.Close
  Set Book = Nothing


'(3)『14.xls』を開いて 「集計」シートに値貼り付け
  Set Book = Workbooks.Open(myFolder & "14.xls")
  CopyData Book.Sheets("BB")
  Book.Close
  Set Book = Nothing

  Application.ScreenUpdating = True

End Sub

'WS1:コピー元シート  strCopyTo: コピー先先頭セル([A13]のときのみ指定)
Private Sub CopyData(ByVal WS1 As Worksheet, Optional strCopyTo$ = "")
 Dim y As Long
 Dim CopyTo As Range
 Dim WS2 As Worksheet
  Set WS2 = Workbooks("集計.xls").Sheets("集計")
  If IsMissing(strCopyTo) Then
    Set CopyTo = WS2.Cells(65536, "A").End(xlUp).Offset(1)
  Else
    Set CopyTo = WS2.Range(strCopyTo)
  End If
  With WS1
    y = .Cells(65536, "A").End(xlUp).Row 'A列のデータ最終行を求める
    If y >= 13 Then '▼有効なデータがあったときのみ、 'コピーする
      .Range("A13:L" & y).Copy
      CopyTo.PasteSpecial Paste:=xlValues   '値のみ貼りつける
      Application.CutCopyMode = False
    End If
  End With
  Set WS2 = Nothing
End Sub
1 hits

【56754】値だけ貼付けしたいけどエラーに 初心者ごろう 08/7/3(木) 15:43 質問
【56755】Re:値だけ貼付けしたいけどエラーに こぎつね 08/7/3(木) 16:28 発言
【56818】Re:値だけ貼付けしたいけどエラーに 初心者ごろう 08/7/7(月) 14:41 お礼
【56836】Re:値だけ貼付けしたいけどエラーに こぎつね 08/7/7(月) 23:36 発言
【56841】Re:値だけ貼付けしたいけどエラーに kanabun 08/7/8(火) 12:54 発言
【56847】Re:値だけ貼付けしたいけどエラーに 初心者ごろう 08/7/8(火) 14:26 発言
【56852】Re:値だけ貼付けしたいけどエラーに kanabun 08/7/8(火) 14:49 発言
【56842】Re:値だけ貼付けしたいけどエラーに Jaka 08/7/8(火) 13:14 発言
【56849】Re:値だけ貼付けしたいけどエラーに 初心者ごろう 08/7/8(火) 14:31 発言
【56843】Re:値だけ貼付けしたいけどエラーに kanabun 08/7/8(火) 13:16 発言
【56860】Re:値だけ貼付けしたいけどエラーに 初心者ごろう 08/7/8(火) 18:06 お礼
【56861】Re:値だけ貼付けしたいけどエラーに kanabun 08/7/8(火) 18:47 発言
【56933】Re:値だけ貼付けしたいけどエラーに 初心者ごろう 08/7/11(金) 11:46 お礼

25233 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free