プログラミングに興味持ってくれた人にVBA教えてたことがあった。
VBA微妙だよみたいなこと言ってたら勉強辞めちゃって悲しかったし、誰も良い気分しないのであんまり言語の悪口とか言わないようにしてる。
けどVBA辛いみたいな話があったのでそれは気のせいじゃないと思うよってなんか書きたくなった。
もちろん良いところもあって、Excel VBAはどこにでもあって、ちょっとした動くものを作るのにちょうどいいと思う。
いつもちゃんとやろうとしてやりすぎることが多い。犬小屋建てるのに高層ビル建設と同じ技術はいらない。
ポエムとExcelへのフォローは以上。
自分の無知から来るところもあると思うので生暖かくお願いします。
変数の宣言と同じ行で代入ができない
変数の初期化を2行に分ける必要がある。
Dim foo As String
foo = "bar"
Dim foo As String = "bar"みたいには書けない。
コロンで2行の文を1行で書けるので、こうは書ける。
Dim foo As String: foo = "bar"
ただし定数なら1行で書ける。
Const foo As String = "bar"
じゃぁ全部Constにすればいいじゃんって思いましたよね。
VBAのConstにはほんとに定数(マジックナンバー)しか入れられないので無理です。
変数を使用した値は代入できません。
関数(プロシージャ)の宣言方法が3種類ある
-
Sub: 値を返さない -
Function: 値を返す -
Property: モジュールのセッタ・ゲッタ
値を返す・返さないで関数の書き方が変わる言語ほかに知らない。
標準モジュールってところにFunctionを作るとExcel側の数式内で使えるようになる。
Subを引数なしで作るとマクロとして実行できる。
関数の戻り値を返す方法がreturnじゃない。
Function greeting(currentHour As Long) As String
If currentHour < 9 Then
greeting = "おはよう"
ElseIf currentHour < 15 Then
greeting = "こんにちわ"
Else
greeting = "こんばんわ"
End If
greeting = greeting & "、たかし！"
End Function
Debug.Print greeting(7)
'=> おはよう、たかし！
Functionと同じ名前の変数に代入した値がその戻り値になる。
何が辛いかって
関数を作るたびに少なくとも一回は関数名をコピペしなきゃいけない。
関数名を変えるたびに値を代入してるところ全部置換しなきゃいけない。
だから基本はresultとか適当な変数をつくって最後に代入するんだけど、それでも関数名を変えるたびに置換するのだるい。
例を見て分かるとおり、returnでなく変数に値を代入してるだけなので、そこで処理は終わらず続く。
関数の処理を終わらせたいときはExit SubまたはExit Function。
VBAを知ったとき、なんでこういう仕様の言語がほとんどないのか理解した。
関数の引数のデフォルトが参照渡し
Sub subByVal(ByVal n As Long)
n = n + 10
End Sub
Sub subByRef(ByRef n As Long)
n = n + 10
End Sub
Sub exec()
Dim num As Long
num = 10
Debug.Print "[ByVal] before: " & num '=> 10
subByVal num
Debug.Print "[ByVal] after: " & num '=> 10
Debug.Print "[ByRef] before: " & num '=> 10
subByRef num
Debug.Print "[ByRef] after: " & num '=> 20
End Sub
[ByVal] before: 10
[ByVal] after: 10
[ByRef] before: 10
[ByRef] after: 20
仮引数の前にByValをつけると値渡し、ByRefをつけると参照渡しになる。
省略すると参照渡しになる。もちろんByValつけてもオブジェクトは参照渡しになる。
全部ByValつけとけばいいんじゃない？
ちなみに参照渡しのときにAs Stringの型にVariant(any型みたいな感じ)を渡すとエラーになる。
値渡しにしておけば勝手にStringにしてくれてエラーは出ない。
戻り値を利用しない関数呼び出しで括弧つけるとエラー
MsgBox "hello!", vbYesNo
' こう書くとエラー
' MsgBox("hello!", vbYesNo)
Call つけて呼ぶとエラーにならない。どっちでもいいでしょ。
Call MsgBox("hello!", vbYesNo)
' 逆に括弧はずすとエラー
' Call MsgBox "hello!", vbYesNo
オブジェクト型とプリミティブ型で値の代入方法が違う
文字列や数値の変数にはそのままhoge = fugaできる。
オブジェクト型にはSetつけてSet hoge = fugaしなきゃだめ。
地味に最初のつまづきポイントだと思う。
Dim foo
Set foo = Range("A1") 'A1セルが代入される
Dim bar
bar = Range("A1") 'A1の値が代入される
オブジェクトを変数に代入したいときSetつけ忘れると.Valueが参照されるので、これでつまづく人もいそう。
これを避けるためにもなるべく型は明示するのがおすすめ。
ちなみにRangeの.Valueはセル1つだとその値、セル2つ以上だとそれらの値の2次元配列が返ってくるのもつまづきポイント。
だけど慣れるとそれを使った小技がけっこうある。
複数行のコメントがない
一応、ツールバーに複数行をコメントにするボタンはある。(デフォルトでは隠れてる)
複数行に分けて式を書くのが面倒
Sub hello()
MsgBox _
"hello", _
vbYesNo
End Sub
一応、行末にアンダーバーつけると複数行にできるけど、アンダーバーの後や途中の行にコメントかけなかったりコピペ面倒だったりいろいろ辛い。
文字列の途中に値を埋め込むのが辛い
変数nの値を埋め込むには"foo " & n & " bar"みたいな感じ。
今更だけど文字列を結合する演算子は&。
多いなら${key}みたいに書いてReplaceするのがいいかも。こんなん。
Function replaceTags(ByVal text As String, dict As Object)
Dim k As Variant
For Each k In dict.Keys
text = Replace(text, "${" & k & "}", dict(k))
Next
replaceTags = text
End Function
Sub aaaaa()
Dim template As String: template = "${name}(${age})"
Dim dict As Object: Set dict = CreateObject("Scripting.Dictionary")
dict.Add "name", "たかし"
dict.Add "age", 26
Debug.Print replaceTags(template, dict)
'=> たかし(26)
End Sub
文字列で特殊文字を入力(エスケープ)できない
\nで改行とか\tでタブとか入力できない。
タブはvbTab、改行はvbNewlineを文字列の途中に結合する。"1行目" & vbNewline &"2行目" これほんとにだるい。
それか上記みたいに自分で置換してもいいかも。
ちなみに文字列はダブルクォーテーションのみ。シングルはコメントで使われてるので。
文字列の中のダブルクォーテーションを使いたい場合は重ねる。"a""b"で a"b
複数行の文字列リテラルがない
素朴に&で結合してくとか、テキストファイルに書いて読み込むとか、Excel側のどこかのセルに書いておくとかして頑張る。
等号が「==」ではなく「=」
もちろんここまで使ってる通り、代入演算子も「=」。
行頭に書くかどうかで代入か等号か決まる。
ちなみに不等号は「!=」じゃなく「<>」。
これで辛いのはVBA書いてるときじゃなくて他の言語に戻ったとき。
if文の条件式の中で代入しちゃったりして見つかりにくいバグが生まれかねない。
True = -1
別に何か不便になるわけじゃないけどすごい。Falseはもちろん0。
Integerの最大値が32767
ちょっと頑張るとすぐ溢れてエラーになる。
Integerに存在意義はないので小さい数値でも脳死でLongだけ使おう。
日付・時刻の型が浮動小数点数
日付は1900年1月1日からの日数。
Serial Numberと呼びます。日付に番号振ってるだけ。
シリアル値って訳さないほうが分かりやすいと思う。
時刻は1日(24時間)が1.0。
0.5なら昼12時、0.25なら朝6時。
たまに時刻同じように見えてもイコールにならないのは小数計算のズレのせい。
条件の「and」「or」がショートサーキットじゃない
Sub execA()
If 処理A() And 処理B() Then
Debug.Print "成功!"
End If
End Sub
こういう処理があったとして、並みの言語なら処理Aの結果がfalseなら処理Bは実行されない。
だからJavaScriptで処理A() && 処理B() && console.log("成功!")みたいに書く人がいる。
VBAは違う。ぜんぶ実行してくれる。
処理Aがfalseなら処理Bで時間がかかろうがエラーが出ようが無視していいのに。
だから処理時間の向上やエラー処理の回避を考えると本当はこう書いたほうがいい。よっぽどのことがない限りやんないけどね。
Sub execB()
If 処理A() Then
If 処理B() Then
Debug.Print "成功!"
End If
End If
End Sub
ループ内で「continue」にあたる文がない
continueなんて軟弱なものはない。
処理全体をif文で囲もう。
ソースに大文字・小文字の区別がない
しかもエディタが勝手に大文字・小文字をあるべき姿に置換しておいてくれる。
Range("a1").valueって書いたらRange("a1").Valueになる。
だけどDim value as Variantって自分で変数を作ったらValueになるとこ全部valueに統一される。
だから処理上で問題なくても単語を被らせたくない。
予約語が多い(気がする)
一般的な単語使うとやたら怒られる。あと上記の勝手に大文字小文字が置換される問題もある。
あんまり覚えてないし覚えたくもないからmyValueとか絶対に被らないものにしてる人が多い印象。
上のほうでcurrentHourと書いてるのもそれが理由。
VBAはスネークケース使う文化ないので、スネークケースにすると絶対に被らないから個人的に好き。
スタイルガイド？しらね。
三項演算子がない
bool ? trueValue : falseValueのこと。
使わないほうがいいってよく言われるけどたまにどうしても使いたくなることはある。
一応IIf(bool, trueValue, falseValue)って書き方がある。
だけどただの関数なのでショートサーキットでない問題を抱えてる。boolがtrueでもfalseValueは実行される。
ないよりマシか。
インクリメント・デクリメントがない
まぁi = i + 1でいいけど。
複合代入演算子がない
i += 1したいよ・・・。
除算の余りを求める演算子が「%」でなく「Mod」
10 Mod 3 '=>1
慣れたら別にいいや。
除算の商(整数部分)を求める演算子「￥」がある
別にいいけどなんで剰余の演算子がModなのにそれはあるんだろう？
表計算だとよく使う・・・のか？
配列を動的に拡張しにくい
配列のインデックスの開始値が一定でない
for-each文でVariant型を使うよう強制される
コレクション型の相互変換が面倒
連想配列が使いにくい
正規表現が使いにくい
セルを取得するCellsでサジェストが効かない
Excel側とVBA側で関数名に一貫性がない
VBAで文字列を置換するReplace()にあたるものはExcel関数ではSUBSTITUTE()
Excel関数にはREPLACE関数もあってこれは置換する場所をインデックスで指定する
Excel関数をVBAで呼んで失敗するときいちいちエラー出る
間違ってないんだけどエラー処理が貧弱だからだるい
結合されたセルの最初のセル以外の値は空白扱い
エラー処理が貧弱
エラー時にスタックトレースが見れない
エラー文が不親切
エラーがバグってる
エディタが実質1種類
エディタのデフォルトの設定が使いにくい
エディタで行数が表示できない
ライブラリの参照時に絞り込み検索できない
コンソール(REPL)が独特
print文(Debug.Print)にオブジェクトを渡せない
print文で改行しないようにする書き方がきもい
Debug.Print "abc";ってセミコロンつけると改行しなくなる。何で？
Excel VBAと他Officeソフトで微妙に仕様が異なる(未確認)
ググって出てくる情報がだいたい古い
ググって出てくる情報がだいたいVBS、VB.NETで流用できない
互換性を維持しすぎて古いまま進化しない、できない、ユーザーが求めてない
パッと思いついたのはこんな感じ
疲れたから気が向いたら書く
でもたぶんもう書かないかも