VBA講座 セルの操作

Step 3 セルにFormat関数で書式を指定し文字と数値をセットする

Excel VBA講座のメニューに戻る

スポンサーリンク






プログラムを入力する

前回の、Private Sub CommandButton1_Click() と End Sub の間を変更してください

VBE画面

Private Sub CommandButton1_Click()
    '大文字にしセットします。
    Range("B8").Value = Format("Hello", ">")    '---------@
    
    '小文字にしセットします。
    Range("B9").Value = Format("Hello", "<")    '---------A
    
    '各種形式で日付、時刻を表示します。 '---------B
    Range("B10").Value = Format(Now, "yyyy.mm.dd")
    Range("B11").Value = Format(Now, "yyyy.m.d")
    Range("B12").Value = Format(Now, "yy.mm.dd")
    Range("B13").Value = Format(Now, "yy.m.d")
    Range("B14").Value = Format(Now, "'yy.mm.dd")
    Range("B15").Value = Format(Now, "'yy.m.d")
    Range("B16").Value = Format(Now, "yyyy/mm/dd")
    Range("B17").Value = Format(Now, "yyyy/m/d")
    Range("B18").Value = Format(Now, "yy/mm/dd")
    Range("B19").Value = Format(Now, "yy/m/d")
    Range("B20").Value = Format(Now, "gee.mm.dd")
    Range("B21").Value = Format(Now, "gee.m.d")
    Range("B22").Value = Format(Now, "e.mm.dd")
    Range("B23").Value = Format(Now, "e.m.d")
    Range("B24").Value = Format(Now, "ggee.mm.dd")
    Range("B25").Value = Format(Now, "ggge.m.d")
    Range("B26").Value = Format(Now, "yy年mm月dd日")
    Range("B27").Value = Format(Now, "yy年m月d日")
    Range("B28").Value = Format(Now, "yyyy年mm月dd日")
    Range("B29").Value = Format(Now, "gee年mm月dd日")
    Range("B30").Value = Format(Now, "gggee年mm月dd日")
    Range("B31").Value = Format(Now, "mm月dd日")
End Sub

スポンサーリンク



プログラム説明

Format関数を使うと、色々な書式でセットすることができます。
基本的な使い方は、Format(データ、書式)になります。

@文字を大文字にしセット
書式を ">" とします。

A文字を小文字にしセット
書式を "<" とします。

B各種の日付、時間の書式例です。

実行結果

Excel画面に戻り、コマンドボタンをクリックしてください。
 ・セルB8に大文字で「HELLO」
 ・セルB9に小文字で「hello」
 ・セルB10から、各種の書式で日付、時間が表示されています。
Format関数使用シート


スポンサーリンク






Excel VBA講座のメニューに戻る

■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します


Copyright (c) Excel-Excel ! All rights reserved