Excel VBA ノート(サンプルコード) イメージ画像
このExcel VBA ノートは、プログラムを再利用したり、コピペで入力の手間を省く為に作ったネット上のノートです。
詳しい解説は書いておりません。エラー等のトラブルには責任は負いません。利用者の環境に合わせて書き換えてご利用ください。

更新情報

特定のセルをR1C1形式で得る次の例では、Debug.Print により、イミディエイトウィンドウに書き出している。’現在選択されているセルをR1C1形式で得るDebug.Print Selection.Address(ReferenceStyle:=xlR1C1)’A4セルをR1C1形式で得るDebug.Print Range("A4").Address(Refere

別ブックのデータを、そのブックを開くことなく得るこの方法により、複数のブックからデータを抜き出して集計する時などに役立つ。次の例では、Debug.Print により、イミディエイトウィンドウに書き出している。例)Book1.xlsxブックの SheetAシートのR1C1(A1)セルのデータ

Excelには、関数が存在するが、「ユーザー定義関数」として自分で関数を作ることができる。ユーザー定義関数の作成は、とても簡単です。VBE を開いて(Excel で Alt + F11)、標準モジュールに、例として次のコードを入力してみてください。Function 損益分岐点売上高(ByVal
『Excel VBA教室 5 関数を作る(ユーザー定義関数)』の画像

ユーザーフォームのTextBoxに入力した文字を、別ブックのユーザーフォームのTextBoxでも表示する(テキストファイルに書き出し&読み込み)下は、UserForm3 の TextBox12 に入力した文字を、別ブックでも利用できるように、「更新情報.txt」というテキストファイルに書き出して

Range.Find メソッド (Excel) を使ってサーチする際、サーチ先の範囲の列幅が狭いと検索できない。例えば、以下はマイクロソフトのサイトに表示されている使用例ですが、下の例では、a1~a500 の範囲にある数値の2を検索しています。この時 a列の幅が狭く、数値が ### と表

Application.Run を使って別ブックのマクロを実行する時のエラーですセルC17には、「出納帳.xlsm」というブック名が入っています。    strSuitoName = Sheets(Sht_設定).Range("C17").Value        Application.Run strSuitoName & "!UF3表示"今までは、この書き方で

これまでは、条件に当てはまるセルがあるかどうかを検索する為に、Findメソッドを利用していました。例えば、ある表の列にデータナンバーが入っていて、その列に検索したいデータナンバーがあるかどうかを調べる時など。ところが、その表にオートフィルターを使用してしまう

日付をWeekday 関数で曜日を調べます。vbSunday なら日曜日。Sub FstSunday()    Dim i As Long    Dim lngYear As Long    Dim lngMonth As Long    Dim strDate As String    Dim myWeekDay As String        lngYear = Val(Range("C5").Value) '年    ln

閏年は、調べたい年の、3月1日の前日の日にちを調べて、29日かどうかで判定する。Sub 閏年判定()    Dim lngYear As Long    Dim lngFebDay As Long        lngYear = Val(Range("C5").Value) '年        lngFebDay = Day(DateAdd("d", -1, lngYear & "/3/1"

セルに算式が入っているかどうか調べたい。セルの HasFormula プロパティが True なら、セルに算式が入っています算式が入っていたらユーザーフォームのテキストボックのBackColorを変えてロックをかけたい。(ロックするのではなく、Enabled = False にしてもいいが、文字が

↑このページのトップヘ