新規エントリーボタンVBAプレディクト

Question

私は最近VBAを新しくしています。私は初心者です。 必要な手順は、「ボタン」が選択されていることです。コードが実行され、その結果、新しい行（上記の行のコピーであり、いくつかの変数とデータ検証が含まれています）が最後の行の下に入力されます。少しの文脈では、ユーザが新しい「状況」を入力しなければならないたびに、新しい行が常に最後のエントリの下に表示されなければならないため、「NEW」が選択されます。それは理にかなっている場合はここ

マクロコードはこれまでです：任意の小説のミスのため

Sub Macro6() 
' 
Application.ScreenUpdating = False 

    Range("A2:F2").Select 
    Selection.Copy 
    Range("A5").Select 
    ActiveSheet.Paste 
    Application.CutCopyMode = False 

Application.ScreenUpdating = True 

End Sub 

は申し訳ありませんが、私はわずか約20分前VBAを開始しました。ヒントとして

Sub Macro6() 

    Dim lastRow As Long 

    Application.ScreenUpdating = False 
    lastRow = 1 + Cells(Rows.Count, "A").End(xlUp).Row 

    Range("A2:F2").Select 
    Selection.Copy 

    Range("A" & lastRow).Select 
    ActiveSheet.Paste 
    Application.CutCopyMode = False 
    Application.ScreenUpdating = True 

End Sub 

：私は、しかし、我々はそれを

よろしく

Answer 1

をクラックすることができませんでした。これは、あなたのコードが実行可能になります何か、あなたがそれを望むようには、ヘルプのための仲間の同僚に尋ねました次のステップのために、あなたはVBAに20分以上を費やした後、選択してActivesheetを回避しよう - あなたは、マクロレコーダーを使用して作業しているときHow to avoid using Select in Excel VBAさらに

、Ctrlキーを使用してくださいをクリックして、Excelアプリケーションをナビゲートします。通常は良い結果が得られます。