Excel VBA質問箱 IV

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

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


314 / 75083 ←次へ | 前へ→

【80413】Re:見積FMの情報を集計したい
回答  mkmk  - 19/2/11(月) 22:22 -

引用なし
パスワード
   早速のご返答ありがとうございます。

実は項目はもう少し多くありまして、
一つのsheetで下記の記述になっています。
sheet12〜は貼り付け先の場所を変えています。

引き続き宜しくお願い致します。

Sheet11.Select
  Range("C1").Select
  Selection.Copy
  Sheets("date集計").Select
  Range("B5:B17").Select
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
  Sheet11.Select
  Range("C2").Select
  Application.CutCopyMode = False
  Selection.Copy
  Sheets("date集計").Select
  Range("C5:C17").Select
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
  Sheet11.Select
  Range("C9").Select
  Application.CutCopyMode = False
  Selection.Copy
  Sheets("date集計").Select
  Range("D5:D17").Select
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
  Sheet11.Select
  Range("C10").Select
  Application.CutCopyMode = False
  Selection.Copy
  Sheets("date集計").Select
  Range("E5:E17").Select
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
  Sheet11.Select
  Range("C50").Select
  Application.CutCopyMode = False
  Selection.Copy
  Sheets("date集計").Select
  Range("F5:F17").Select
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
  Sheet11.Select
  Range("C51").Select
  Application.CutCopyMode = False
  Selection.Copy
  Sheets("date集計").Select
  Range("G5:G17").Select
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
  Sheet11.Select
  Range("C52").Select
  Application.CutCopyMode = False
  Selection.Copy
  Sheets("date集計").Select
  Range("H5:H17").Select
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
  Sheet11.Select
  Range("C53").Select
  Application.CutCopyMode = False
  Selection.Copy
  Sheets("date集計").Select
  Range("I5:I17").Select
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
  Sheet11.Select
  Range("C54").Select
  Application.CutCopyMode = False
  Selection.Copy
  Sheets("date集計").Select
  Range("J5:J17").Select
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
  Sheet11.Select
  ActiveWindow.SmallScroll Down:=-24
  Range("B14:E14").Select
  Application.CutCopyMode = False
  Selection.Copy
  Sheets("date集計").Select
  Range("K5:N17").Select
  Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
    SkipBlanks:=False, Transpose:=False
  Sheet11.Select
  Range("C16").Select
  Application.CutCopyMode = False
  Selection.Copy
  Sheets("date集計").Select
  Range("O5:O17").Select
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
  ActiveWindow.SmallScroll ToRight:=7
  Sheet11.Select
  Range("E16").Select
  Application.CutCopyMode = False
  Selection.Copy
  Sheets("date集計").Select
  Range("P5:P17").Select
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
  Sheet11.Select
  Range("B21:N33").Select
  Application.CutCopyMode = False
  Selection.Copy
  Sheets("date集計").Select
  Range("Q5").Select
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
  ActiveWindow.SmallScroll ToRight:=11
  Sheet11.Select
  ActiveWindow.SmallScroll Down:=9
  Range("B37:N48").Select
  Application.CutCopyMode = False
  Selection.Copy
  Sheets("date集計").Select
  Range("AD5").Select
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False


▼マナ さん:
>▼mkmk さん:
>
>>excelのマクロ登録でsheet1のコピペを登録し、
>>sheet2〜は貼り付け先の場所の場所の変更で記録を
>>したのですが、実行に時間がかかってしまいます。
>
>全部で5×20回のコピペですよね。
>時間がかかると思えないのですが?
>
>>繰り返しの記述等で簡素化できる方法を教えて下さい。
>
>まずは、現在のコードを提示お願いします。

52 hits

【80411】見積FMの情報を集計したい mkmk 19/2/11(月) 21:34 質問[未読]
【80412】Re:見積FMの情報を集計したい マナ 19/2/11(月) 21:53 発言[未読]
【80413】Re:見積FMの情報を集計したい mkmk 19/2/11(月) 22:22 回答[未読]
【80414】Re:見積FMの情報を集計したい マナ 19/2/11(月) 22:51 発言[未読]
【80417】Re:見積FMの情報を集計したい mkmk 19/2/12(火) 0:52 回答[未読]
【80421】Re:見積FMの情報を集計したい マナ 19/2/12(火) 19:36 発言[未読]
【80437】Re:見積FMの情報を集計したい mkmk 19/2/16(土) 7:44 お礼[未読]

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