なにげにぷろぐらまーWiki

Dim 変数名 As データ型

Dim B As String * 10 ' 10文字に限定

Private Const CONST_VAL_0 = 10
Public Const CONST_VAL_1 = 20	' Public 定数は宣言できないっぽい。エラーになる。

Const CONST_STR As String = "文字列定数"

Public Enum ParamType
    None = 0
    TypeInt = 1
    TypeStr = 2
End Enum

Dim myVar As Variant
Debug.Print VarType(myVar)   '--> 0（定数vbEmpty）と表示される
Debug.Print TypeName(myVar)  '--> Empty　と表示される
Debug.Print IsEmpty(myVar)   '--> True　と表示される

Dim myVar As Variant                    '初期値はEmpty
If myVar = 0 Then Debug.Print "True"    '--> True　と表示される
If myVar = "" Then Debug.Print "True"   '--> True　と表示される

Dim myVar As Variant        '初期値はEmpty
myVar = Null                'Nullを代入
Debug.Print VarType(myVar)  '--> 1（定数vbNull）と表示される
Debug.Print TypeName(myVar) '--> Null　と表示される
Debug.Print IsNull(myVar)   '--> True　と表示される

If myObj Is Nothing Then
    Set myObj = Forms![フォーム1]
End If

Dim valA As Integer
Dim valB As Integer
Dim valC As Integer
valA = 3
valB = 2
valC = valA / valB  'valC = 2 となる

Dim str As String
Dim a As Integer, b As Integer

a = 3
b = 1
str = IIf(a > b, "大きい", "等しいか小さい")
MsgBox str

Type Point
    x As Long
    y As Long
End Type

Sub Test()
	Dim str As String
	str = "text"
	Call SubTest(str)
End Sub

Sub SubText(str As String)
	MsgBox "テキスト : " + str
End Sub

Sub Test()
	Dim v As Integer
	v = FuncAdd(10, 20)
End Sub

Function FuncAdd(a As Integer, b As Integer) As Integer
	FuncAdd = a + b		' 計算結果を返す
End Function

Sub Test()
	Dim str As String
	str = "text"
	Call Func(str)
End Sub

Sub Func(ByRef a As String)
   a = "suzuki"         ' 受け取った値を書き換える
End Sub

Sub TestFunc(textBox As MSForms.textBox)
    textBox.Text = "text"
End Sub

Dim a As String
Dim v As Integer
a = "123"
v = val(a)

Dim a As Integer
Dim t As String
a = 123
t = str(a)

If ActiveCell.Value = "text" Then
	MsgBox "等しい"
Else
	MsgBox "等しくない"
End If

If ActiveCell.Value <> "text" Then
	MsgBox "等しくない"
Else
	MsgBox "等しい"
End If

If InStr(ActiveCell.Value, "text") > 0 Then
	MsgBox "含まれている"
Else
	MsgBox "含まれていない"
End If

' abc, xyz の間に任意の文字列が入ってもOK
If ActiveCell.Value Like "abc*xyz" Then	'

' 1〜5で始まる文字列
If ActiveCell.Value Like "[1-5]*" Then

' 都道府県名のうち、北海道、東京都、神奈川県、和歌山県、鹿児島県 以外がtrueになる
If Not c.Value Like "??[県府]" Then

例
Left(str As String, length As Long)
Left$(str As String, length As Long) As String

Dim list As Collection
Set list = New Collection

' listに要素を追加する
Dim col As Integer
col = 1
Do While ActiveSheet.Cells(1, col) <> ""
	list.Add ActiveSheet.CelllS(1, col)
	col = col + 1
Loop

' リストの要素を順に処理する
Dim str As String
str = ""
For Each v In list
	str = str & v.Value
Next

Dim dict As Scripting.Dictionary
Set dict = CreateObject("Scripting.Dictionary")

dict.Add "A1", ActiveSheet.Cells("A1")
dict.Add "A2", ActiveSheet.Cells("A2")
dict.Add "A3", ActiveSheet.Cells("A3")

Dim key As Variant
For Each key In dict.Keys
	Debug.Print key, dict(key).Value
Next

Private v0 As Integer
Private v1 As Integer

Public Sub SetParam(a As Integer, b As Integer)
    v0 = a
    v1 = b
End Sub

Public Sub Output()
    MsgBox "add : " & (v0 + v1) & vbCrLf & "sub : " & (v0 - v1)
End Sub

Dim testClass As TestClass
Set testClass = new TestClass

Call testClass.SetParam(10, 20)
Call testClass.Output