VBA

VBAで同じディレクトリ内にある画像を取り込むサンプルコードを紹介します。仕様用意するのは以下の2ファイルです。画像ファイルマクロ付きExcelファイルフォルダ構成マクロを実行する前、Excelの中身は何もありません。そしてマクロを実行すると、画像ファイルをシート上に取り込みます。実行前ソースコードVBAのエディタで以下のコードを記述します。Option ExplicitSub getPicture() '画像のパス Dim thisBookPath As String thisBookPath = ThisWorkbook.Path With ThisWorkbook.Sheets("Sheet1").Pictures.Insert(thisBookPath + "\2012-08-09 15.34.18.jpg") '位置 .Top = Range("B3").Top .Left = Range("B3").Left '縦と横の比率を保持しない ThisWorkbook.Sheets("Sheet1").Shapes(.Name).LockAspectRatio = msoFals...

VBAでExcel上にあるURLを取得し、ブラウザで表示するサンプルコードを紹介します。仕様ExcelシートにURLが記述されています。このURLをVBAで読み取り、ブラウザで表示します。ソースコードVBAのエディタで以下のコードを記述します。Option ExplicitSub openURL()'URL取得Dim url As Stringurl = ThisWorkbook.Sheets("Sheet1").Range("A1").Value'URLオープンThisWorkbook.FollowHyperlink Address:=url, NewWindow:=TrueEnd Subシート「Sheet1」のA1セルのURLを読み取り、新規ウィンドウに表示するソースコードです。※事前にExcelのシート「Sheet1」のA1セルにURLを入力しておきます。実行実行手順Alt + F8でマクロの一覧から、先ほどのマクロ関数を選択して実行します。実行結果マクロの実行ボタンを押下しました。すると、ブラウザが開きA1セルに記載のURLがブラウザで開きました。なお、ブラウザはOSで既定に指...

VBAでExcel表に対してフィルターをかけて、可視行のみをループするサンプルコードを紹介します。仕様VBAによりExcel表に対して、以下の処理を実行します。処理内容フィルターをクリアします。既に違う条件でフィルタがかかっていたら誤動作する可能性があるため。特定の条件でフィルタを絞り込む。　例として、年齢が20代の方で絞り込みます。可視行のみをループして、可視行に対して何らかの処理します。例として、可視行の名前列を抽出しメッセージボックスで表示します。今回は以下のようなサンプルExcelファイルを用意します。ソースコードVBAのエディタで以下のコードを記述します。Option ExplicitSub getTwentiesName() 'シートの指定 Dim wSheet As Worksheet Set wSheet = Worksheets("Sheet1") 'フィルタをクリア If wSheet.FilterMode = True Then wSheet.ShowAllData End If 'フィルタで年齢列を絞り込み(20代のみ） wSheet.Range("A1").A...

Excelシート上でクリックしたら「完了」と入力するVBAのサンプルコードを紹介します。仕様以下のような真っ白なシート1枚のExcelを用意します。そしてセルをクリックするごとに、「完了」と出力します。ソースコード以下の手順でコードを記述します。まずプロジェクトエクスプローラのThisWorkbookをダブルクリックします。次に上部のプルダウンメニューから以下を選択します。左のプルダウンメニューから「Workbook」右のプルダウンメニューから「SheetSelectionChange」次に以下のコードを記述します。Option ExplicitPrivate Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) ' もし1文字以上入力されているなら If Target.Count > 0 Then ' セルに「完了」と入力 Target.Value = "完了" End If End Subこれで準備OKです。補足関数の引数の意味は以下の通りです。引数名型意味ShObject新しい選択...

Excelの全シートのセル結合をまとめて解除するVBAのサンプルコードを紹介します。仕様以下のようなサンプル実行を想定します。シートが複数あり、それぞれのシートでセル結合されたセルがあります。そして、マクロの実行で全てのシートのセル結合を解除します。例えば以下のようなシートが用意されたブックのイメージです。シート「Sheet1」シート「Sheet2」シート「Sheet3」コピーの手間があったので全部同じような結合にしてしまいました。実用的なイメージとはかけ離れていますが、どのような結合でも問題ありません。ソースコードUnMerge関数を使用することによって、セル結合が解除できます。Worksheet(XXXXXX).UsedRange.UnMergeシートの数だけループし、UnMerge関数で各シートのセル結合を解除します。Option ExplicitSub unMergeAllSheets() Dim SheetNo As Long For SheetNo = 1 To Worksheets.Count 'セル結合解除 Worksheets(SheetNo).UsedRange.U...

VBAからExcel関数(ワークシート関数)を呼び出すサンプルコードを紹介します。仕様以下の仕様に沿って、VBAからExcel関数の呼び出しを説明します。VBAのコードからExcelのAverage、Min、Max関数を呼び出します。Excelのvlookup関数を呼び出して、表2の会員情報を検索して表1出力します。ソースコードVBAからExcel関数を実行するには以下の記述を入力します。Application.WorksheetFunction.ワークシート関数よって、上記の仕様を満たすには以下のコードを記述します。Option ExplicitSub calc() '平均年齢 Range("C8").Value = Application.WorksheetFunction.Average(Range("C3:C6")) '最年長 Range("C9").Value = Application.WorksheetFunction.Max(Range("C3:C6")) '最年少 Range("C10").Value = Application.WorksheetFunction.M...

Excelのセルの幅を一括で自動調整するVBAのサンプルコードを紹介します。仕様Excelを使っていると、以下のようなことがあります文字切れで文章が見えなくなる無駄にセルの幅が広くて見た目が悪い。例えば以下のキャプチャはIDや年齢の幅が広すぎますし、名前の幅は狭すぎて何が書いてあるかわかりません。今回のVBAのサンプルコードは、この幅を自動調整するサンプルコードです。手動で直す場合ちなみに手動で修正する場合は、以下の操作を実施します。対象のセルの幅を広げます。書式メニューから「列の幅の自動調整(I)」を選択します。※セルの境目でダブルクリックするともっと早いですね。すると、以下のように幅が調整されます。VBAもこれをプログラムにするだけですね。ソースコードソースコードは以下のとおりです。AutoFitを使用するのがポイントになります。そして実行していることは基本的に手作業でしていたことを、自動化しただけであるというのもポイントです。Option ExplicitSub AutoFitColumns() '最右端の列番号の取得(表が2行目から始まっているため、2行で評価していることに注意...

VBAによるswap関数(2つの変数の値を交換)のサンプルコードを紹介します。SWAP関数とはSWAP関数とは「二つの変数の値を入れ替える」基本的な関数です。ソートアルゴリズムを学ぶ際に、SWAP関数は必ず必要な知識になります。ここではVBAで、2ステップに分けてSWAP関数を作成していきます。二つの変数の値を入れ替えるコードを作成する上記のコードをSWAP関数化する二つの変数の値の入れ替えまずはシンプルに2つの変数の値を入れ替えます。関数化は後で実施します。ソースコードThisWorkbookの下にソースコードを記述しました。swap1.xlsmOption ExplicitSub main() Dim dataA As String Dim dataB As String Dim temp As String dataA = "AAAA" dataB = "BBBB" MsgBox "実行前:" & Chr(13) + Chr(10) & dataA & "," & dataB temp = dataA dataA = dataB dataB = temp MsgBox "実行後:...