一応サンプルコード置いてますが、解説とかがメインです。 'メインプロシージャ（ByRef） Sub test_sub() Dim a as Long Dim b as Long Dim c as Long b = 10 c = 5 a = test_calc(b,c) MsgBox("a=" & a) MsgBox("b=" & b) MsgBox("c=" & c) End Sub '計算す…

'メインプロシージャ Sub test_sub() Dim a as Long Dim b as Long Dim c as Long b = 10 c = 5 a = test_calc(b,c) MsgBox(a) End Sub '計算するプロシージャ Function test_calc(ByVal d as Long, ByVal e as Long) as Long test_calc = d * e End Function…

ウイルスになるようなコードが転がっている…というのを聞いた事はありますが、そういうのは探さないとむしろなさそうです。 正直、最近で怖いのはVBA特有のコード省略をフル活用した、短縮コードです。 ぶっちゃけ下記のコードは短くて超便利なんですが、VBA…

主に日付関係のサンプルコードです。 '今日の日付と今の時間 Sub test1() Dim d as Date d = Now Call MsgBox(d) End Sub '今日の日付 Sub test2() Dim d as Date d = Date Call MsgBox(d) End Sub '今の時間 Sub test3() Dim d as Date d = Time Call MsgBo…

なんか仕事してて、欲しい機能のコード探す時に、ダラダラと仕組みの解説とかを見てると激烈に不快になる病気になってしまったので、とりあえず実現するためのサンプルコードを置いてるだけの記事欲しいなぁ。あったらいいなぁ。書くか。 ということで、適当…

サンプルコードだけ並べます。 Excelの表からデータ拾ってVBAで集計する仕事だと、ここのコードしってるとめっちゃ便利です。 ※事前にSheet1という名前のシートを作っておく必要があります。 'CellsでA1セルの値を取得 Sub test1() Dim val as Variant val =…