2000/10/14

エクセルＶＢＡ覚え書き

　エクセルＶＢＡでよく使うマクロの覚え書きページです。思いつきで増やしていくつもりです。私が利用するために作ったページですが、よければコピー＆ペーストしてご活用ください。
　※便利なマクロがあれば教えてね。

■変数
○変数の宣言　（この場合は変数x）
Dim x As Integer　　'整数型（-32,768～32,767）
Dim x As Long　　　　'長整数型（-2,147,483,648～2,147,483,647）
Dim x As Byte　　　　'バイト型（0～255）

Dim x As Boolean　　'ブール型（真True/偽False）
Dim x As String　　　'文字列型

Dim x As Single　　　'実数型
Dim x As Double　　　'長実数型

Dim x As Currency　　'通貨型
Dim x As Date　　　　'日付型

Dim x As Object　　　'オブジェクト型
Dim x As Variant　　'バリアント型（全てのデータ）

■新規データ入力位置の取得
　選択した列データの最上行の空白セルにカーソルを移動するマクロです。（この場合はxシートのＡ列）
Sheets("x").Select　　　　　　　　　　　'xシートを選択します
Range("a65536").End(xlUp).Activate　'a列の最下行から上へ最初にデータの入っているセルをアクティブにします
ActiveCell.Offset(1, 0).Activate　　　　'１行下の空白セルにカーソルを移動します

■メッセージボックスの表示
○シートxの印刷前にメッセージボックスを表示し、印刷前に確認をするマクロです。
Dim msg As Integer
msg = MsgBox("印刷を実行しますか？", vbOKCancel + vbDefaultButton1 + vbInformation, "印刷確認")
　If msg = 1 Then
　　Sheets("x").Select
　　ActiveWindow.SelectedSheets.PrintOut Copies:=1
　End If

○押されたボタンで処理を分岐する必要がなく、単にメッセージを表示する場合。
　改行はメッセージとメッセージの間に　& Chr(13) &　を打ちます。１行空けると見栄えが良いのでは・・・。
MsgBox "１行目のメッセージ" & Chr(13) & Chr(13) & _
"２行目のメッセージ" & Chr(13) & Chr(13) & _
"３行目のメッセージ" , , "タイトル"

※書式
戻り値 = MsgBox("メッセージ",ボタン種類 + デフォルトボタン設定 + マーク, "タイトル")

コード	値	内容
（ボタン種類）
vbOKOnly	0	「ＯＫ」
vbOKCancel	1	「ＯＫ」「キャンセル」
vbAbortRetryIgnore	2	「中止」「再試行」「無視」
vbYesNoCancel	3	「はい」「いいえ」「キャンセル」
vbYesNo	4	「はい」「いいえ」
vbRetryCancel	5	「再試行」「キャンセル」
（デフォルトボタン設定）
vbDefaultButton1	0	第１ボタン
vbDefaultButton2	256	第２ボタン
vbDefaultButton3	512	第３ボタン
vbDefaultButton4	768	第４ボタン
（マーク）
vbCritical	16	警告「×」
vbQuestion	32	問い合わせ「？」
vbExclamation	48	注意「！」
vbInformation	64	情報「ｉ」
（戻り値）
vbOK	1	「ＯＫ」
vbCancel	2	「キャンセル」
vbAbort	3	「中止」
vbRetry	4	「再試行」
vbIgnore	5	「無視」
vbYes	6	「はい」
vbNo	7	「いいえ」

なんだかエクセルＶＢＡのヘルプを作ってるような気が．．．。無駄なことをしているような．．．。（笑
それにしてもヘルプってどうしてあんなにわかりにくいのでしょうか？

■マクロ実行中の処理（画面更新）を隠すには
Application.ScreenUpdating = False
　画面表示を隠したい処理
Application.ScreenUpdating = True

■必要のないセルを隠す
○「PageUp」キー等を誤って押してしまい、変なセルにワープして、カーソルがどこに行ったのか訳が分からなくなることがありませんか？
　このマクロは不必要なセルを消す（幅や高さを０にする）ことで、カーソル移動を制限します。
　※消すセルに式があっても大丈夫♪　☆に消したい最左列名を、◎に消したい最上行番号を入力し実行します。
Sub MaskCell()
　Columns("☆:iv").ColumnWidth = 0
　Rows("◎:65536").RowHeight = 0
End Sub

■条件分岐処理１
○変数の内容や条件の結果により、処理を分岐する。よく使います。
Ａ：
If 条件１ Then
　条件１成立の場合の処理
EndIf

Ｂ：
If 条件１ Then
　条件１成立の場合の処理
Else
　条件１不成立の場合の処理
EndIf

Ｃ：
If 条件１ Then
　条件１成立の場合の処理
ElseIf 条件２
　条件２成立の場合の処理
（ElseIfの繰り返し可能）
Else
　全ての条件不成立の場合の処理
EndIf

■条件分岐処理２
○１つの変数の内容や条件の結果により、複数の処理に分岐できるステートメントです。
Select Case 条件/変数
　Case a
　　aの場合の処理
　Case b To c
　　b～cの場合の処理
　Case d,e
　　dまたはeの場合の処理
　Case Is >=f Or 変数<g　
　　f以上またはg未満の場合の処理
　Case Else
　　上記以外の場合の処理
End Select

■繰り返し処理１
○条件を満たす間、又は満たすまで処理を繰り返すステートメントです。
Ａ：条件が成り立っているとき処理する。最初から成り立たないときは処理しない。
Do While 条件式
　繰り返したい処理
Loop

Ｂ：条件が成り立つまで処理する。最初から成り立つときは処理しない。
Do Until 条件式
　繰り返したい処理
Loop

Ｃ：条件が成り立っているとき処理する。最低１回は処理する。
Do
　繰り返したい処理
Loop While 条件式

Ｄ：条件が成り立つまで処理する。最低１回は処理する。
Do
　繰り返したい処理
Loop Until 条件式

■繰り返し処理２
○繰り返しの回数を指定できる場合に使うループ処理。あんまり使ったことがない。
　変数に最初は開始値が代入され、１回の処理が終わるたびに増加数分が加えられ、終了値まで処理が繰り返されます。
For 変数 = 開始値 To 終了値 Step 増加数
　繰り返したい処理
Next 変数

【ご注意】マクロウィルスに注意しましょう！ファイルを開くときに警告が出たら要注意ですよ。
しかしマイクロソフ○もやってくれるぜ。対策は警告表示するしか無いのかな～(T_T)