2

私はこのワークブックを持っています: ユーザーがクリックできる「ここをクリックしてコピー」というマクロ ボタンが必要です。次に、「TC-Star Here」というタイトルのシートの行番号 5 ～ 25 をコピーするコードが必要です。コピーした行を挿入する必要があります（以前にあった行を自動削除しないように貼り付けた行が必要なので、挿入された行は前の行を下に移動する必要があります）「タイムカード」という名前の別のシートに。挿入された行は、セル A1 からコードを挿入する必要があります。したがって、マクロ ボタンがクリックされるたびに、行がコピーされ、以前のデータが変更されていない/削除されていない状態で挿入されます。

私はこれまでにこのコードを持っています:

Sub CopyInfo()
On Error GoTo Err_Execute
    Sheet2.Range("A1:F11").Value = Sheet1.Range("A1:F11").Value
    Sheet1.Range("A1:F11").Copy
    Sheet2.Range("A1").InsertCopiedCells
Err_Execute:
    MsgBox "All have been copied!"

End Sub

ただし、ボタンをクリックするたびに、既存の行の上に行が貼り付けられます。

助けてください。

4

5 に答える 5

1

この行

Sheet2.Range("A1:F11").Value = Sheet1.Range("A1:F11").Value

Sheet2のこれらのセルの値をSheet1の値に設定します。つまり、値をコピーして、そこにあったものを置き換えます。次に、コピー挿入操作を実行します。

その行を削除/コメントアウトして、何が起こるかを確認します。

また、コピー領域と貼り付け領域は同じサイズでなければならないと思います。作ってみてくださいSheet2.Range("A1:F11").InsertCopiedCells

于 2012-08-07T17:18:21.850 に答える
0

投稿者のおかげで〜、各回答プロバイダーが私の問題を解決します〜。
これがExcelでのコーディングの使用です。各選択はシート2に挿入されます。

  Private Sub CommandButton2_Click()

      Selection.Copy
      Sheet2.Range("A4").Rows("1:1").Insert Shift:=xlDown
      Sheets("Sheet1").Select
      Application.CutCopyMode = False
      Selection.Delete Shift:=xlUp

  End Sub
于 2016-04-11T06:33:20.120 に答える