Excel VBA質問箱 IV

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

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


7369 / 13645 ツリー ←次へ | 前へ→

【39538】別シートへのコピー きらら 06/6/26(月) 13:51 質問[未読]
【39539】Re:別シートへのコピー Statis 06/6/26(月) 14:18 回答[未読]

【39538】別シートへのコピー
質問  きらら  - 06/6/26(月) 13:51 -

引用なし
パスワード
   Statis 様 よろしく 現在使用しているコードを記載しました。

Sub kac3()

Sheets("月別給与一覧").Select
  Range("幸一11").Select
  Selection.Copy
  Sheets("給与累積").Select
  Range("B43").Select
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=True
End Sub

【39539】Re:別シートへのコピー
回答  Statis  - 06/6/26(月) 14:18 -

引用なし
パスワード
   こんにちは


Sub kac3()
Application.ScreenUpdating = False
Sheets("月別給与一覧").Range("幸一11").Copy
Sheets("給与累積").Range("B43").PasteSpecial Paste:=xlPasteValues, _
   Operation:=xlNone, SkipBlanks:=False, Transpose:=True
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub


では
Ps,もうひとつの方は種別を「お礼」で終了させてください。

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