○第165回目 エクセルマクロの基本コマンド
エクセルマクロの基本コマンドは何か、というものです。
基本とは、結構、頻繁に使われるというコマンド群をさします。
これさえあれば、骨格の70%はできるというものです。
┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━┓
┃ 初心者の方へ
┃ 以下のそれぞれのマクロ(□以下に書かれているもの。不適
┃なものもある。)を、モジュールに貼り付けて、デバックして
┃、それぞれの変数にどのような数値がはいるのか試してくださ
┃い。変数の初期値はゼロなので、うまく動かないものもありま
┃す。
┃ マクロのイメージが少し分かります。
┃ ・エクセルのマクロの世界への移行。＝⇒エクセルシートに
┃いて、Alt+F11を押す。+は同時押しの意味です。すなわち、Al
┃tとF11を同時に押す。
┃ ・(以下はマクロの世界での操作)モジュールシートを作る＝
┃⇒Alt、I、M(この場合は逐次押しで良い)
┃ ・(以下はモジュール上での操作)"sub test01()" を貼り付
┃ける。自動的に、"End Sub"が付加される。
┃ ・Sub test01()とEnd Subの間に、以下のマクロを貼付ける。
┃ ・F8を押すと色のついたマクロ行が1行ずつ実行される。
┃ ・処理後のマクロ行の変数にカーソルを置くと、その変数の
┃ ・処理後のマクロ行の変数にカーソルを置くと、その変数の
┃内容が表示される。つまり、そのマクロ行の処理内容がわかる
┃ ・一気に処理を進めたい場合は、任意のマクロ行にカーソル
┃を移し、Ctrl+F8を押す。そこまで処理が一気に進む。
┃ End Subにカーソルを置き、Ctrl+F8を押すと、終了直前の
┃状態になる。この状態でも変数の内容の確認ができる。
┃ ・モジュールを削除する(必要な場合(モジュールつきのブッ
┃クを保存する場合、拡張子を変更する必要があるので、気持ち
┃が悪いという人の場合))＝⇒画面左上のプロジェクトウィンド
┃ウのmodule1などを右クリックし、モジュールの解放を選択。
┃保存の有無が聞かれるが、保存してもしなくても良い。
┃ ・エクセルの世界へ戻る＝⇒Alt+F11を押す。
┃ ・エクセル2010の場合、モジュール付きのブックを登録する
┃時は、拡張子を"xlsm"にする必要があります。
┃ ・おまけ。以下は完結したマクロです。これも貼り付けで試
┃してみてください
┃ Sub 和を求める()
┃ '数値の指定
┃ Suuti = InputBox("数値を入れてください。", , 10)
┃
┃ kotae = 0
┃ For i = 1 To Suuti Step 1
┃ kotae = kotae + i
┃ Next
┃ MsgBox ("1から" & Suuti & "まで加算した答えは、" &
┃ kotae & "です。")
┃
┃ End Sub
┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━┛
□実行時のブック(ファイル)の属性(ぶっく名、シートの属性)の取得
fname1 = ActiveWorkbook.Name
shname1 = ActiveSheet.Name
ii_max = Sheets.Count
ii0 = ActiveSheet.Index
□実行時のセルの指定範囲の情報の取得
''範囲情報の取得
AAA = Selection.Address
gyo1 = Selection.Row
gyo_cnt = Selection.Rows.Count
gyo9 = gyo1 + gyo_cnt - 1
retu1 = Selection.Column
retu_cnt = Selection.Columns.Count
retu9 = retu1 + retu_cnt - 1
AAA11 = Cells(gyo1, retu1).Address
AAA9 = Cells(gyo9, retu9).Address
□シート名の取得
'シート名の取得
Dim p_mm0(100)
cc = Sheets.Count
For i = 1 To cc 'ワークシートの数だけ繰り返す
p_mm0(i) = Sheets(i).Name '取得したシート名を取得する
Next i
□(例えば、設定された)範囲のセル群から値を取得
Dim atai(100,110)
for i = 1 to gyo_cnt
for j = 1 to retu_cnt
atai(i,j) = Cells(4 + i - 1, 3 + j - 1).Value
next
next
□(例えば、設定された)範囲のセル群から計算式を取得
'計算式の取得
Dim shiki(100)
for i = 1 to gyo_cnt
If Cells(4 + i - 1, 3).HasFormula = True Then
shiki(i) = "xxx" & Cells(4 + i - 1, 3).Formula
Else
shiki(i) = ""
End If
next
□ブック、シートの指定
Windows(fname1).Activate 'ブック名
Sheets(ii0).Select 'シート番号
Sheets(shname1).Select 'シート名
□セルの指定
Range(AAA).Select 'AAAには、"A5"、"B5:B10"などの座標が入っている。
Cells(4, 3).Select
Range(Cells(4, 3),Cells(10, 6)).Select
□コピー
Dim b_name(100)
Windows(fname1).Activate '現在のブックであれば省略可能
Sheets(ii0).Select '現在のシートであれば省略可能
Range(Cells(4 , 3 ), Cells(10, 6)).Select
Selection.Copy
Windows(b_name(bk_no)).Activate '現在のブックであれば省略可能
Sheets(h2).Activate '現在のシートであれば省略可能
Cells(24, 23 + cc).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'計算式
Selection.PasteSpecial Paste:=xlPasteFormulasAndNumberFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
'数値と数値の書式
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
'列幅
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
'書式
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
'リンク貼付け
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
ActiveSheet.Paste Link:=True
'縦横変換コピー。値及び数値書式のみ
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
□セルに数値を書きだす
Cells(4 + i - 1, 3 + j - 1) = atai
□セルに計算式を書きだす
Cells(4 + i - 1, 3 + j - 1) = atai '=から始まっている文字列
□画面から入力
h1 = InputBox("飛び先のシート番号を入れてください。 そのままのシートの場合は、0。-1,*1も可" & vbCrLf ,, 1)
□画面に出力
Suuti = 10
kotae = 55
MsgBox ("1から" & Suuti & "まで加算した答えは、" & kotae & " です。")
□セルの座標の入力1(画面から)
Dim セ As Range
Set セル範囲 = Application.InputBox(Prompt:="次のセット範囲の先頭のセルを指定してください", Default:=AAA1, Left:=10, Top:=2, Type:=8)
aaa2 = セル範囲.Address
' Type:=の値 意味
' 0 数式
' 1 数値
' 2 文字列(テキスト)
' 4 論理値(TrueまたはFalse)
' 8 セル参照(Rangeオブジェクト)
' 16 エラー値(#N/Aなど)
' 64 数値配列
□セルの座標の入力2(画面から)
Dim せる範囲 As Variant
'セルの設定
in_rrcc01 = "C4"
せる範囲 = Application.InputBox(Prompt:="使用するセルを指定してください。終了はキャンセルキー。", Default:="=" & in_rrcc01, Left:=10, Top:=2, Type:=0)
If せる範囲 = False Then errflag = 0: Exit Do
'セルの座標をA1形式にするための処理
in_rrcc2 = Application.ConvertFormula(Formula:=せる範囲, _
FromReferenceStyle:=xlR1C1, ToReferenceStyle:=xlA1, ToAbsolute:=xlAbsolute)
in_rrcc2 = Mid(in_rrcc2, 2)
Range(in_rrcc2).Select
gyo21 = Selection.Row
retu21 = Selection.Column
□計算式の入力(画面から)
Dim せる範囲 As Variant
in_rrcc01 = "C4"
keisansikin = Application.InputBox(Prompt:="計算式を入力してください。終了はキャンセルキー。", Default:="=" & in_rrcc01, Left:=10, Top:=2, Type:=0)
□時間の取得、処理時間の算定
t10 = Time
t9 = Time
Cells(p1 + pp1, 3) = " 終了時間は、" & Application.WorksheetFunction.Text(t9, "hh:mm:ss") & "です。": pp1 = pp1 + 1
Cells(p1 + pp1, 3) = " 処理時間は、" & Application.WorksheetFunction.Text(t9 - t10, "hh:mm:ss") & "です。": pp1 = pp1 + 1
□連続してセルに出力(下方向)するときの工夫
pp1 = 3
p1 = pp1 + 1: pp1 = 0
Cells(p1 + pp1, 3) = " 終了時間は、" & Application.WorksheetFunction.Text(t9, "hh:mm:ss") & "です。": pp1 = pp1 + 1
Cells(p1 + pp1, 3) = " 処理時間は、" & Application.WorksheetFunction.Text(t9 - t10, "hh:mm:ss") & "です。": pp1 = pp1 + 1
Cells(p1 + pp1, 3) = " 処理レコード数は、" & Str$(jj_cnt) & "件です。": pp1 = pp1 + 1
Cells(p1 + pp1, 3) = " 出力件数は、" & jj_cnt2 & "件です。": pp1 = pp1 + 1
□inputboxを使用したメニュー表示
Dim b_name(100)
bk_no = InputBox("使用したいブックを指定してください。そのままは0。そのままのシートの場合は、99。 " & vbCrLf & _
"終了はキャンセルキー。" & vbCrLf & _
"01=⇒" & b_name(1) & vbCrLf & "02=⇒" & b_name(2) & vbCrLf & _
"03=⇒" & b_name(3) & vbCrLf & "04=⇒" & b_name(4) & vbCrLf & _
"05=⇒" & b_name(5) & vbCrLf & "06=⇒" & b_name(6) & vbCrLf & _
"07=⇒" & b_name(7) & vbCrLf & "08=⇒" & b_name(8) & vbCrLf & _
"09=⇒" & b_name(9) & vbCrLf & "10=⇒" & b_name(10) & vbCrLf & _
"11=⇒" & b_name(11) & vbCrLf & "12=⇒" & b_name(12) & vbCrLf & _
"13=⇒" & b_name(13) & vbCrLf & "14=⇒" & b_name(14) & vbCrLf & _
"15=⇒" & b_name(15) & vbCrLf _
, xpos:=2000, ypos:=3000, Default:=99)
' ※vbCrLfは改行のこと
□画面の抑止･解放
'画面を止める
Application.ScreenUpdating = False
'画面を更新する
Application.ScreenUpdating = True
□自動計算の抑止･解放
'再計算を停止
With Application
.Calculation = xlManual
End With
'再計算を実施
With Application
.Calculation = xlAutomatic
End With
□エラーになった場合の処理(エラーになった場合、次の行の処理をする)
On Error Resume Next
□エラーになった場合の処理(エラーになった場合、特殊な処理をする)
On Error GoTo ErrorTrap
ErrorTrap:
errflag = 99
Resume Next
