Excel VBA質問箱 IV

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

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


38382 / 76732 ←次へ | 前へ→

【43488】エクセル2003と2000のコードの違...
質問  勉強中です E-MAIL  - 06/10/17(火) 12:55 -

引用なし
パスワード
   みなさま こんにちは、いつも参考にさせていただいております。
私物のパソコンはエクセルが2003なんですが 会社は2000を使用しています。2003で作成したコードを2000では使用できない部分があり困っています。 会社のパソコンにはVBAのヘルプファイルがインストールされておらず オフィスのCDもこの場所にありません。それはおかしい!と思いますが、パソコンを導入している業者任せの設定をしたらしく現状マクロを作成は私しか行っていないため、考えていなかったようです。 前置きが長くなりましたが、困っている部分は シート1の指定範囲をコピーして シート2〜4の入力のあるセルの一番右端に貼付けをしていくというものです。マクロの記録でもしてみたのですがうまく行きません。 どこが悪いのか指摘していただけないでしょうか。お願いいたします。 以下にコードを載せます。 2003使用になっているので、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
よろしくお願いします。

0 hits

【43488】エクセル2003と2000のコードの違... 勉強中です 06/10/17(火) 12:55 質問
【43489】Re:エクセル2003と2000のコードの... Statis 06/10/17(火) 13:09 回答
【43490】Re:エクセル2003と2000のコード... 勉強中です 06/10/17(火) 13:26 お礼
【43495】Re:エクセル2003と2000のコード... 勉強中です 06/10/17(火) 15:30 発言
【43496】Re:エクセル2003と2000のコード... Statis 06/10/17(火) 15:57 回答
【43498】Re:エクセル2003と2000のコード... 勉強中です 06/10/17(火) 17:14 お礼
【43501】Re:エクセル2003と2000のコード... りん 06/10/17(火) 19:04 発言
【43503】Re:エクセル2003と2000のコード... 勉強中です 06/10/17(火) 19:56 発言
【43504】Re:エクセル2003と2000のコード... りん 06/10/17(火) 20:18 発言
【43505】Re:エクセル2003と2000のコード... 勉強中です 06/10/17(火) 20:49 お礼

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