変数のデータ型・宣言（Dim ステートメント）

2015/02/25 2016/02/05

変数の宣言

一般的な方法

【書式】
Dim varname [ As type, …… ]

varname ・・・変数名
type ・・・データ型（Integer, Long, Date, String 等）

「type」は省略可能。省略した場合は、バリアント型（Variant）になります。

　
'整数型
Dim num As Integer

'xnum:長整数型、ynum:倍精度浮動小数点型
Dim xnum As long, ynum As Double

'A、B:バリアント型、C:可変長文字列型
Dim A, B, C As String

'固定長文字列型
Dim varstr As String * 10

'整数型

Dim num As Integer

'xnum:長整数型、ynum:倍精度浮動小数点型

Dim xnum As long, ynum As Double

'A、B:バリアント型、C:可変長文字列型

Dim A, B, C As String

'固定長文字列型

Dim varstr As String * 10

省略記号を使用する

【書式】
Dim varname<ellipsis>

varname ・・・変数名
<ellipsis>・・・省略記号（% & @ $ 等）

　
'num:整数型、str:可変長文字列型
Dim num%, str$

'kingaku:通貨型
Dim kingaku@

'num:整数型、str:可変長文字列型

Dim num%, str$

'kingaku:通貨型

Dim kingaku@

データ型一覧

データ型	意味	サイズ・データの内容	省略記号
Boolean	ブール型	[2バイト]　true（真）-1 / false（偽）0
Byte	バイト型	[1バイト]　正の整数（0～255）
Integer	整数型	[2バイト]　整数（-32768～32767）	%
Long	長整数型	[4バイト]　整数（-2147483648～2147483647）	&
Currency	通貨型	[8バイト]　-922,337,203,685,477.5808 ～ 922,337,203,685,477.5807の固定小数点数	@
Single	単精度浮動小数点数型	[4バイト] -3.402823E38 ～ -1.401298E-45 (負の値) 1.401298E-45 ～ 3.402823E38 (正の値)	!
Double	倍精度浮動小数点数型	[8バイト]　 -1.79769313486232E308 ～ -4.94065645841247E-324 (負の値) 4.94065645841247E-324 ～ 1.79769313486232E308 (正の値)	#
Date	日付型	[8バイト] 西暦100年1月1日0:00:00 ～西暦9999年12月31日23:59:59
String	可変長文字列型	任意の長さの文字列	$
String * length	固定長文字列型	長さ length の文字列
Object	オブジェクト型	[4バイト]　オブジェクト
Variant	バリアント型
Type	ユーザー定義型	Type ステートメントで定義されたデータ型

- VBA基本エクセルVBA, 変数のデータ型, 変数宣言

Comment

石川成美より:

2017年6月13日 2:42 PM

VBA初心者です

インプットBOXにユーザーが入力した日付をセルA1に日付として出力したいのですが、
下記コードでは　型が一致しません　というメッセージが帰ってきてうまくいきません。

どこがいけないのかいくら考えてもわかりません。どなたかアドバイスいただけますよう、
お願い申し上げます。

Sub Auto_Open()

Dim ans As Date
ans = InputBox(“顧客がファイルを作成した年月日をYYYY/MM/DD形式で入力してください”, “”)
If ans “” Then
Sheets(“納期回答調査最終”).Range(“A1”).Date = ans
End If
End Sub

返信
- サイト管理人より:
  
  2017年6月28日 12:01 PM
  
  コメントありがとうございます
  こんな感じでどうでしょうか？
  
  Sub Auto_Open()
  Dim ans As String ans = InputBox("顧客がファイルを作成した年月日をYYYY/MM/DD形式で入力してください", "") If StrPtr(ans) = 0 Then MsgBox ("キャンセルしました") If IsDate(ans) Then Sheets("納期回答調査最終").Range("A1") = ans Else MsgBox "入力形式が違います" End If
  End Sub
  
  返信