Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7368 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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


では
Ｐｓ，もうひとつの方は種別を「お礼」で終了させてください。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7368 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free