新しい行を追加して同じ書式と式をコピー

-1

たとえば、コマンドボタンをクリックして最後の行の下に新しい行を追加する必要があります。新しい行は、上記の他の行と同じ書式と数式を持つ必要があります。上記の行には、条件付き書式設定、色、ドロップダウンリスト、データ検証、固定行の高さと公式があります。これらはすべて、新しい行が作成されたときに自動的にコピーされます。ワークシートは保護されています。あなたは最高の結果を得るために書くべきコードを教えてください。また、シートでは、選択した行を削除することができます。ありがとう。新しい行を追加して同じ書式と式をコピー

Sub Add_row() 
    ActiveSheet.Unprotect 
    ActiveSheet.Range("A13").CurrentRegion.Offset(ActiveSheet.Range("A13").CurrentRegion.Rows.Count - 1).Resize(2).EntireRow.FillDown 
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingCells:=True, AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True 
End Sub

出典

2017-04-13 Vinz B

ようこそStackOverflow。このウェブサイトは無料のコード作成サービスではありません。既に持っているコードを表示してください。 –

申し訳ありませんが、私はまだVBAの初心者ですので、コードはありません。それは私が助けを求めている理由です。 –

ようこそスタックオーバーフロー。 "私のためのコード"、 "コードを教える"、または "どこから始めるべきかを示す"サイトではありません。この問題を克服するための具体的な助けを得るために、特定の問題を持つ既存のコードを持つ人たちのための場所です。まだコードを作成する方法がわからない場合は、学習する必要があります。まず、Excelであなたがやりたいものを記録してください：https://www.youtube.com/watch?v=Q_HQGHPBYooその後、コードを見て理解してみてください。また、あなたはこれを読んでみたいかもしれません：http://www.homeandlearn.org/そして、上記の問題に対する最初の解決法を自分自身で提供できるはずです。 – Ralph

はRange.Copy Methodを見てください：

Worksheets("Sheet1").Range("A1:D4").Copy 'example

とRange.PasteSpecial Method：

Worksheets("Sheet1").Range("D5").PasteSpecial Paste:=xlPasteFormats

いくつかのpaste typesがあります。たとえば、xlPasteFormatsはペースト形式のみです。

出典

2017-04-13 08:23:42

新しい行を追加して同じ書式と式をコピー

答えて

関連する問題