Excel VBA | VBA データ型練習用 Excel ファイルを作る

VBA

2010.04.042025.10.17

ファイル概要
構成イメージ
1. 1. シート
2. 2. モジュール内容（コード）
作成手順（初心者向け）

ファイル概要

タイトル： VBA データ型練習ファイル
目的： 主要なデータ型（String, Integer, Double, Date, Boolean など）の使い方を確認
内容：

シートにボタン「データ型を試す」
クリックで MsgBox に結果を表示
各変数の型の説明コメント付き

構成イメージ

1. シート

名前：「データ型練習」
A1：タイトル「VBA データ型練習」
A3：ボタン「▶ データ型を試す」

2. モジュール内容（コード）

Option Explicit

Sub データ型を試す()
    ' 文字列型
    Dim name As String
    name = "山田太郎"
    
    ' 整数型
    Dim age As Integer
    age = 25
    
    ' 倍精度浮動小数点型
    Dim height As Double
    height = 172.5
    
    ' 日付型
    Dim joined As Date
    joined = #2022/4/1#
    
    ' 真偽値型
    Dim active As Boolean
    active = True
    
    ' 結果をまとめて表示
    MsgBox "【VBA データ型サンプル】" & vbCrLf & _
           "名前：" & name & vbCrLf & _
           "年齢：" & age & "歳" & vbCrLf & _
           "身長：" & height & "cm" & vbCrLf & _
           "入社日：" & joined & vbCrLf & _
           "在職中：" & active, vbInformation, "データ型の確認"
End Sub

Option Explicit

Sub データ型を試す()
    ' 文字列型
    Dim name As String
    name = "山田太郎"
    
    ' 整数型
    Dim age As Integer
    age = 25
    
    ' 倍精度浮動小数点型
    Dim height As Double
    height = 172.5
    
    ' 日付型
    Dim joined As Date
    joined = #2022/4/1#
    
    ' 真偽値型
    Dim active As Boolean
    active = True
    
    ' 結果をまとめて表示
    MsgBox "【VBA データ型サンプル】" & vbCrLf & _
           "名前：" & name & vbCrLf & _
           "年齢：" & age & "歳" & vbCrLf & _
           "身長：" & height & "cm" & vbCrLf & _
           "入社日：" & joined & vbCrLf & _
           "在職中：" & active, vbInformation, "データ型の確認"
End Sub