VBA

VBAで「表示形式」を変更する

目安時間 4分
  • コピーしました

今回の表示形式の変更は、「日付」「金額」です。
その他にも、日付の分解をし、表示するやり方についてお伝えします。
【課題】
・金額を計算して、D列に入れて下さい。
・A列の日付を、yyyy/mm/dd形式にしてください。
・D列の金額を、カンマ編集にして下さい。
・A列の年月日を分解して、B列から列挿入しB列、C列、D列に年月日を追加する
・タイトルも列にも「年」「月」「日」を追加する

【VBA】

Sub Dispconv()
    Dim i As Long
    Dim row As Long
    Cells(1, 5) = " 年"
    Cells(1, 6) = " 月"
    Cells(1, 7) = " 日"
    row = Cells(Rows.Count, 1).End(xlUp).row
    '日付を、yyyy/mm/dd形式
    Columns(1).NumberFormatLocal = "yyyy/mm/dd"
    For i = 2 To row
        Cells(i, 4) = Cells(i, 2) * Cells(i, 3)
        Cells(i, 5) = Year(Cells(i, 1))
        Cells(i, 6) = Month(Cells(i, 1))
        Cells(i, 7) = Day(Cells(i, 1))
    Next
    '金額を、カンマ編集
    Columns(4).NumberFormatLocal = "#,##0"
     'セル範囲の外枠に罫線を引く
    Range(Cells(1, 5), Cells(row, 7)).BorderAround LineStyle:=xlContinuous
    'セル範囲に格子状に罫線を引く
    Range(Cells(1, 5), Cells(row, 7)).Borders.LineStyle = xlContinuous
End Sub


簡単な説明
・「Columns(1).NumberFormatLocal = "yyyy/mm/dd"」は日付列の表示形式を変更
・「Cells(i, 4) = Cells(i, 2) * Cells(i, 3)」は、金額を計算
・「Cells(i, 5) = Year(Cells(i, 1))」日付を分解して「年」を表示
・「Cells(i, 6) = Month(Cells(i, 1))」日付を分解して「月」を表示
・「Cells(i, 7) = Day(Cells(i, 1))」日付を分解して「日」を表示
・「Columns(4).NumberFormatLocal = "#,##0"」計算した金額に、カンマを追加する表示変更
・「Range(Cells(1, 5), Cells(row, 7)).BorderAround LineStyle:=xlContinuous」は、セル範囲の外枠に罫線を引く
・「Range(Cells(1, 5), Cells(row, 7)).Borders.LineStyle = xlContinuous」は、セル範囲に格子状に罫線を引く

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

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

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

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

  • コピーしました

この記事に関連する記事一覧

この記事を書いた人

すーさん

生きるためにはお金が必要

すーさん

50歳を超えてから副業を始めました。 どのような副業をしようか、悩みに悩んだ結果、『どんなものでも売る力』をつける。 これしかないです。 そのために、マーケティングを学ぶことを決めました。 古来より、価値の交換(ものを売る)は行われてきました。 これからも、価値の交換(ものを売る)は無くなるとは思えません。 今だけ稼ぎたいなら他にも選択はあるが、年と共に覚えも悪くなるので、いつまでも使える知識としてマーケティングを選びました。 マーケティングは学べば学ぶほど面白いものです。 人はどうしてそれを選ぶのだろう、人はどうしてそれを買うのだろう、人はどうしてそれを買わないのだろう。 このようなことがわかれば、後はどのようにすれば、人は選び、買ってくれるのかがわかります。 あなたも少しでも興味がありましたら、私と一緒に学びましょう。 「売れなかったものでも」「どんなものでも」『売る力』を身につけましょう。 お問い合わせ

コメントフォーム

名前  (必須)

メールアドレス (公開されません) (必須)

URL (空白でもOKです)

コメント

CAPTCHA


トラックバックURL: 
 プロフィール

すーさん

生きるためにはお金が必要

すーさん

50歳を超えてから副業を始めました。 どのような副業をしようか、悩みに悩んだ結果、『どんなものでも売る力』をつける。 これしかないです。 そのために、マーケティングを学ぶことを決めました。 古来より、価値の交換(ものを売る)は行われてきました。 これからも、価値の交換(ものを売る)は無くなるとは思えません。 今だけ稼ぎたいなら他にも選択はあるが、年と共に覚えも悪くなるので、いつまでも使える知識としてマーケティングを選びました。 マーケティングは学べば学ぶほど面白いものです。 人はどうしてそれを選ぶのだろう、人はどうしてそれを買うのだろう、人はどうしてそれを買わないのだろう。 このようなことがわかれば、後はどのようにすれば、人は選び、買ってくれるのかがわかります。 あなたも少しでも興味がありましたら、私と一緒に学びましょう。 「売れなかったものでも」「どんなものでも」『売る力』を身につけましょう。 お問い合わせ

最近の投稿
アーカイブ