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

更新情報

並べ替え用の「ふりがな」を隣のセルに自動表示します。指定されたセルの「ふりがなテキスト文字列」を右隣のセルに表示します。(コピーした場合など、指定されたセルに「ふりがなテキスト文字列」が無いこともあります。)方法まず、指定したセルに「ふりがなテキスト文字

コード番号を入力することで、複数の関連情報を転記する時に利用します。使用頻度の高く、重要度の高いサンプルコードです。ExcelVBAリファレンスに「Findメソッド」の使用例が次のように出ています。https://msdn.microsoft.com/ja-jp/library/office/ff839746.aspx--------

まず・・・あるタイミングで、Enterキーを押した後の、セルの移動方向を右に行くように変更しておきます。    'セルの移動方向 右    Application.MoveAfterReturnDirection = xlToRight元に戻す時は、    'セルの移動方向 下(標準)に戻す    Application.MoveAf

ワークシート名や、表の見出し行(列)番号、特定セルなどは、変更になる場合があります。その際には、「全て置換」で書き換えするのではなく、予めパブリック定数にしておく事で、修正を一カ所で済むようにしておく。私の場合は、新たに標準モジュールを挿入し、オブジェク

ファイルを開く時に自動で動いて欲しいプログラムがあります。例えば・・・ファイルを起動した時には、必ず最初に表示させたいワークシートがある場合。Enterキーを押した時にセルを移動する方向を、下方向ではなく右方向にしたい場合。ユーザーフォームを表示させたい場合。

突然、Excelを閉じると「VBAProject パスワード」が表示されるようになりました。このトラブルの解決方法について発生条件 ExcelExcel VBA を保護するため、プロジェクトのプロパティに保護(プロジェクトのプロパティ表示のためのパスワード)をかけている場合。UserFormを

ユーザーフォームの TextBox3 に入力されたデータ1-20, 30, 40-50, 70,から、1以上20以下、30、40以上50以下、70 と導き出す事で、印刷範囲やCSV書き出し範囲として利用する文字や空白、ゼロは無視する事で、余計なカンマにも対応Sub csvtest()    Dim tmp As Variant, tm

2014年12月10日のWindows Update の後、ActiveXオブジェクトが使えなくなった。「オブジェクトが挿入できません」 と表示されたり、コマンドボタンが押せないなどのトラブルが発生しました。対応方法を調べ、トラブルを回避できました。私の行った方法を2つ書いておきます。
『Excel-VBA 問題・トラブル・バグ 2014年12月10日のWindows Update でActiveXオブジェクトが挿入できない。コマンドボタンが押せない。MSForms.exdを削除! ( MSForms.exd KB2596927 KB2553154 KB2726958 )』の画像

Sub Sample6()    Dim i As Long        For i = 1 To 5            If TypeName(Cells(i, "A").Value) = "String" Then                    MsgBox "このセルのデータは文字列です"                End If        Next i    End

シングルステップでプログラムを動かして、変化を確認してください。'Excel2013以上のバージョンでテストしてください'Excel2013では、アプリケーションウインドウの中でブックがxlNormalサイズになることはない'Excelブックのウインドウとアプリケーションのウインドウは一

↑このページのトップヘ