日志

VBA 常用命令

已有 614 次阅读2010-10-14 12:20 |

http://www.docin.com/p-31966497.html

★実用vba命令まとめ

1.単元格の命令

①単元格データを取る
Range("A3")

②単元格データにデータを書き込み
　Range("A3")
または
　Cells(3,1).Value

③指定したエリーアのデータをクリア
Range("A3:D1234").Select
Selection.ClearContents

④シートを全部選択
Cells.Select

⑤行と列を選択
行
Rows("1").Select
列
Columns("A").Select

2.文字列について

①文字列の長さの計算
Dim Con As Long
Con = LenB(Str) / 2

②文字列の一部を取る
　1.1    Trim(String)   '文字列の両側の空文字を削除する
1.2    Mid(String,indx,leng) '文字列中で左側から第indxの文字から長さがlengの文字列を取る
1.3　　Left(String, leng)    '文字列中で左側から長さがlengの文字列を取る

3.シートについて
①Subマグロで他のSubマグロを追加する時、
Call subName(パラメタ1、パラメタ2、パラメタ3) 追加マグロ名(パラメタ1必ず値を定義)

Sub subTry()

Call mmm(23, 34, 2) 'iInput=23, iInput2=34, iInput3=2

End Sub

②シートを追加
　1.1追加したシート名を指定時
　　　Worksheets.Add().Name = "追加したシート名"
1.2最後のシートでシート名を指定して追加
　　　Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = "追加したシート名"

③現在のシートから新シートに遷移してデータを書き込み
　Sheets("新シート").Activate
Sheets("新シート").Range("A3")="成功"

4.vab文法

①数値定義
Const 定数 = "値"
Dim 変数 As Integer[またはString /Long]

　②マグロ
    Private Sub メソッド名()
    .......
    End Sub
③If 条件式 Then
    .........
    End If

④Do Until 条件式
    .........
    Loop

   ⑤Do While 条件式
     ........
    Loop

   ⑥For 変数 =数字1 To 数字2
     ........
     Next 変数

If 要素.Value = Empty Then

要素.Interior.ColorIndex = 5

★記号
文字　" はchr(34)で表示
空格:　vbNullString
下一行:　vbCrLf
換行符:　vbLf

GoTo 88(番号自由設定)
文で　番号を設定

配列
    Dim a
    a = Array( _
    "項目1", _
    "項目2", _
    "項目3" _
    )
'b配列の大きさ
le = UBound(b)

'指定領域の値を目標場所にコピー
Range("A1", "A3").Copy Destination:=Range("C1", "C3")

’普通ダイアログ
MsgBox(”禁止です。”)

'はいといいえのダイアログ
Private Sub CommandButton1_Click()
Dim msg As String

msg = MsgBox("Test", vbYesNo)
Select Case msg
        Case vbYes
        Range("A1") = "Yes"
        Case vbNo
        Range("B1") = "no"
End Select

End Sub

\文字列型と数字型変換

(1) MyString = Str(-459.65) ' 返回 "-459.65"。
MyString = Str(459.001) ' 返回 " 459.001"。

(2) MyValue = Val(" 2 45 7") ' 返回 2457。
MyValue = Val("24 and 57") ' 返回 24。

a = Split(value2, ";")

文字列の位置を検索
InStr(String, flg)　返回型　Integer

文字列替換
String = Replace(xmlName, "_", "\")

空値判断
（文字列の長さが0で判断）
Len(value2)＝0

行を削除(残った行が上移)
Rows("1").Delete '第一行を削除