VBAで「セルのコピー」を表示する

目安時間:約 2分

今回は、前回の「文字、背景色も含めセルのコピー」ではなく
「文字、背景色」以外のセルのコピーをしてみました。
このセルのコピー方法については、下記の2つの方法をお伝えします
【課題】
・A1セル~B6セルをコピーする
・D1セル~E6セルにペーストする

【VBA】

※方法1

Sub セルコピー()
    Range("A1:B6").Copy
    Range("D1").PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
End Sub

※方法2

Sub セルコピー()
    Range("D1:E6").Value = Range("A1:B6").Value
End Sub


簡単な説明
【方法1】
「Range("A1:B6").Copy」は、A1〜B6をコピーする
「xlPasteValues」は、値のみ貼り付けする
「Application.CutCopyMode = False」は、貼り付けが終わってコピーモードを解除する
【方法2】
「Range("D1:E6").Value = Range("A1:B6").Value」は、A1〜B6の範囲をD1〜E6に貼り付ける

あなたのお役に立てるなら、コピーして使用してください。

今後も勉強した内容を記載して行きますので、お役に立てるものがあれば使ってください。

VBA開発もしておりますので開発のご要望があればご連絡をください。

VBA開発依頼受付はこちらから

VBAで「文字、背景色も含めセルのコピー」を表示する

目安時間:約 2分

今回は、セルのコピーをしてみました。
文字の色、背景色もコピーします。
このセルのコピー方法については、下記の2つの方法をお伝えします
【課題】
・A1セル~B6セルをコピーする
・D1セル~E6セルにペーストする

【VBA】

※方法1

Sub セルコピー()
    Range("A1:B6").Copy Range("D1")
End Sub

※方法2

Sub セルコピー()
    Range("A1:B6").Copy Destination:=Range("D1")
End Sub


簡単な説明
【方法1】
「Range("A1:B6").Copy Range("D1")」は、A1〜B6をコピーしてD1〜E6にペーストする
【方法2】
「Destination」は、貼り付け先のセル範囲を表す

あなたのお役に立てるなら、コピーして使用してください。

今後も勉強した内容を記載して行きますので、お役に立てるものがあれば使ってください。

VBA開発もしておりますので開発のご要望があればご連絡をください。

VBA開発依頼受付はこちらから

VBAで「罫線」を表示する

目安時間:約 4分

今回は、比率の計算と、計算結果にて、文字の色、背景色を付けるようにしました。
【課題】
・客単価を計算してD列に入れる。
・客単価は「売上 ÷ 客数」で計算し、小数以下2桁で表示する。
・罫線を表示する。

【VBA】

Sub 罫線()
    Dim i As Long
    Dim lastRow As Long
    lastRow = Cells(Rows.Count, 1).End(xlUp).row
    For i = 2 To lastRow
        Cells(i, 4) = Cells(i, 2) / Cells(i, 3)
    Next
    Range(Cells(2, 4), Cells(lastRow, 4)).NumberFormatLocal = "#,##0.00"
    Range(Cells(1, 1), Cells(lastRow, 4)).Borders.LineStyle = xlContinuous
    Range(Cells(1, 1), Cells(lastRow, 4)).Borders.Weight = xlHairline
    Range(Cells(1, 1), Cells(lastRow, 4)).BorderAround Weight:=xlMedium
    Range(Cells(2, 1), Cells(2, 4)).Borders(xlEdgeTop).Weight = xlThin
    Range(Cells(1, 2), Cells(lastRow, 2)).Borders(xlEdgeLeft).Weight = xlThin
End Sub


簡単な説明
・「Cells(Rows.Count, 1).End(xlUp).row」は以前説明をしたのでこちらを御覧ください
・「For」は、客単価の計算をして設定
・「NumberFormatLocal = "#,##0.00"」は、小数以下2桁表示にする
・罫線の種類は「Borders.LineStyle」にて設定
・「xlContinuous」は、罫線の直線を表す
・罫線の太さは「Borders.Weight」にて設定
・「xlHairline」は、罫線の太さを表し、「極細」を設定
・罫線の外枠は、「BorderAround Weight:」にて設定
・「xlMedium」は、罫線の太さを表し、「中」を設定
・「xlEdgeTop」は、罫線の位置で「上端」
・「xlThin」は、罫線の太さを表し、「細」を設定
・「xlEdgeLeft」は、罫線の位置で「左端」

あなたのお役に立てるなら、コピーして使用してください。

今後も勉強した内容を記載して行きますので、お役に立てるものがあれば使ってください。

VBA開発もしておりますので開発のご要望があればご連絡をください。

VBA開発依頼受付はこちらから

プロフィール

50歳、派遣社員。コロナ禍の中いつもいつも派遣切りにビクビクしながら生きています。50歳という大台を迎えると、次の就職先は無いに等しい状況なのに現在ではコロナ禍で、さらに就職先がないです。でも、家庭を支えなければならない。だから私は、複数の仕事が出来るように在宅ワークが出来るプログラミング、ブログを選択。50歳からの挑戦です。フリーランスを目指してプログラミング、ブログを始めました。

それと、子供が私立の中学校に行っているので学費を稼がなければ・・・

私と一緒に始めませんか?

お問い合わせ
プログラミング依頼

 

最近の投稿
アーカイブ

ページの先頭へ