Excel VBA質問箱 IV

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

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


7919 / 13644 ツリー ←次へ | 前へ→

【36061】手でできることがVBAでできない。 K.K. 06/3/20(月) 12:24 質問[未読]
【36064】Re:手でできることがVBAでできない。 kobasan 06/3/20(月) 12:51 発言[未読]
【36078】Re:手でできることがVBAでできない。 K.K. 06/3/20(月) 15:23 お礼[未読]

【36061】手でできることがVBAでできない。
質問  K.K.  - 06/3/20(月) 12:24 -

引用なし
パスワード
   Fund.xlsのPerformanceシートのA3セルの内容→Project.xlsのFundシートのB3セル
Fund.xlsのPerformanceシートのE3セルの内容→Project.xlsのFundシートのC3セルへとコピーしようと思っています。
マクロの記録でやってみると
Range("A3,E3").Select
  Range("E3").Activate
  Selection.Copy
  Windows("Project.xls").Activate
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
のようになったので、(Project.xlsではもともとB3セルが選択されていた状態でした。)以下のコードでできるかなと思ったのですが、Project.xlsのFundシートのB3セルに何もペーストされません。何が原因なのでしょうか?

Sub MCProject()
Dim i As Integer
For i = 1 To 1
  Workbooks("Fund.xls").Worksheets("Performance").Range("A" & 2 + i & ",E" & 2 + i).Copy
  Workbooks("Project.xls").Worksheets("Fund").Activate
  Range("B" & 2 + i).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
    False, Transpose:=False
  
  Next i
  
End Sub

【36064】Re:手でできることがVBAでできない。
発言  kobasan  - 06/3/20(月) 12:51 -

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

>Project.xlsのFundシートのB3セルに何もペーストされません。何が原因なのでしょうか?

>  Workbooks("Fund.xls").Worksheets("Performance").Range("A" & 2 + i & ",E" & 2 + i).Copy
>  Workbooks("Project.xls").Worksheets("Fund").Activate
>  Range("B" & 2 + i).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _


  Workbooks("Fund.xls").Worksheets("Performance").Range("A" & 2 + i & "," & "E" & 2 + i).Copy
  Workbooks("Project.xls").Worksheets("Fund").Range("B" & 2 + i).PasteSpecial Paste:=xlValues

とするといいです。

【36078】Re:手でできることがVBAでできない。
お礼  K.K.  - 06/3/20(月) 15:23 -

引用なし
パスワード
   kobasan さん、できました。ありがとうござました。

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