| |
みなさま こんにちは、いつも参考にさせていただいております。
私物のパソコンはエクセルが２００３なんですが 会社は２０００を使用しています。２００３で作成したコードを２０００では使用できない部分があり困っています。 会社のパソコンにはＶＢＡのヘルプファイルがインストールされておらず オフィスのＣＤもこの場所にありません。それはおかしい！と思いますが、パソコンを導入している業者任せの設定をしたらしく現状マクロを作成は私しか行っていないため、考えていなかったようです。 前置きが長くなりましたが、困っている部分は シート１の指定範囲をコピーして シート２〜４の入力のあるセルの一番右端に貼付けをしていくというものです。マクロの記録でもしてみたのですがうまく行きません。 どこが悪いのか指摘していただけないでしょうか。お願いいたします。 以下にコードを載せます。 ２００３使用になっているので、Selection.PasteSpecialの所は 値の貼付けに変更してあります。
Private Sub UserForm_Activate()
Me.Label1.Caption = "月次更新中"
Me.Label2.Caption = "暫くお待ち下さい"
Me.CommandButton1.Visible = False
Application.Wait (Now + TimeValue("00:00:03"))
Sheets("Sheet2").Activate
Range("H2:J65536").Copy
Cells(2, 38).End(xlToRight).Offset(0, 1).Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats,Operation:=xlNone,_
SkipBlanks:=False, Transpose:=False
’この部分を変更してもうまく張り付きません。
ActiveCell.Offset(-1, 0).Select
ActiveCell.FormulaR1C1 = Date
Sheets("Sheet3").Activate
Range("H2:J65536").Copy
Cells(2, 38).End(xlToRight).Offset(0, 1).Select
Selection.PasteSpecialPaste:=xlPasteValuesAndNumberFormats,_
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
ActiveCell.Offset(-1, 0).Select
ActiveCell.FormulaR1C1 = Date
Sheets("合計").Activate
Range("H2:J65536").Copy
Cells(2, 38).End(xlToRight).Offset(0, 1).Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
ActiveCell.Offset(-1, 0).Select
ActiveCell.FormulaR1C1 = Date
ActiveWorkbook.Save
Sheets("Sheet4").Activate
Me.Label1.Caption = "更新終了！"
Me.Label2.Caption = "終了を押してください"
Me.CommandButton1.Visible = True
End Sub
よろしくお願いします。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
- 06/10/17(火) 12:55 -
