はてなブックマーク

Excelのバージョンによって、VBAには違いがあります。 たとえば、文字列を分割するSplit関数はOffice 2000で追加されましたのでExcel 97やExcel 95では使用できません。 また、セルを検索するFindステートメントの引数SearchFormatは、Excel 2002で追加された引数ですので、Excel 2000のVBAで指定するとエラーになります。 異なるバージョンのExcelが混在するような環境では、マクロを実行する前にExcelのバージョンを調べる方が安全です。 Excelのバージョンは、ApplicationオブジェクトのVersionプロパティで取得できます。 Sub Sample1() MsgBox Application.Version End Sub Versionプロパティは、次の文字列を返します。 Excel 2010 → 14.0 Exce

セルを書式で検索する（Findメソッドと引数SearchFormat） (Excel 2002/2003/2007/2010) ツイート Findメソッドの引数SearchFormatをTrueにするとセルの書式を検索できます。ただし、FindNextメソッドでは書式の検索ができないので、条件を満たすすべてのセルを検索するときは、2回目以降の検索もFindメソッドを使用します。 引数SearchFormatはExcel 2002以降で使用可能です。 次のサンプルは、「実験結果」表の中で背景色が赤のセルを検索し、最小値・最大値・合計を求めます。 ●サンプル● Sub Sample() Dim c As Range Dim Rng As Range Dim firstAddress As String Application.FindFormat.Clear Application.FindF

サブフォルダを含めてファイル一覧を取得する（Dir関数の再帰呼び出し） (Excel 97/2000/2002/2003/2007) ツイート あるプロシージャが、そのプロシージャ内で自分自身を呼び出すような処理を再帰呼び出しと呼びます。 たとえば、簡単にいうなら次のようなパターンです。 Sub Sample1() ''何かの処理 ： Call Sample1 ： ''何かの処理 End Sub 再帰呼び出しを利用するのは「○○について××する」というようなケースが多いです。 このうち「××する」部分は共通ですが「○○について」の"○○"が定まっておらず次々と動的に変化します。 ここでは「"指定したフォルダ"について"存在するファイル名をセルに代入"する」というマクロを、再帰呼び出しで作成してみましょう。 なお、ここでは次のようなフォルダ構造を例にします。 C:\Work +- Sub1

マクロからワークシート関数を利用するには、WorksheetFunctionを使います。 次のコードは、セル範囲A1:A5をSUM関数で合計します。 Sub Sample1() Dim Result As Long Result = WorksheetFunction.Sum(Range("A1:A5")) MsgBox Result End Sub WorksheetFunctionは、ワークシート関数群をメンバーに持つコレクションですが、ワークシート上で使える関数をすべてVBAから使用できるわけではありません。 たとえば、VBAにも同じ働きをする関数がある場合、同名のワークシート関数は使用できません。 次のコードでは、Left関数がエラーになります。 Sub Sample2() MsgBox WorksheetFunction.Left("VBA", 1) End Sub また、中には

マクロにショートカットキーを設定する (Excel 97/2000/2002/2003/2007/2010/2013/2016) ツイート マクロ記録では、記録を開始するときに、そのマクロにショートカットキーを設定できます。 そうではなく、すでに作成してあるプロシージャに、後からショートカットキーを設定するにはどうしたらいいでしょう。 標準モジュールに次のプロシージャが記述されていたとします。 Sub Sample1() MsgBox "Hello" End Sub このSample1にショートカットキーを設定してみましょう。 プロシージャにショートカットキーを設定するには、ApplicationオブジェクトのMacroOptionsメソッドを使う方法と、ApplicationオブジェクトのOnKeyメソッドを使う方法があります。 ■MacroOptionsメソッドでマクロにショートカット

一部のセルを印刷・表示されないように設定する (Excel 2000/2002/2003/2007/2010/2013/2016) ツイート ●概要● シート内の「この項目は印刷したくない」という場合に、セルの書式設定で対応できます。 シート上は非表示になりますが、そのセルをアクティブにすると、数式バーに内容が表示されます。 ●詳細● 値を表示しないセルを選択してください。 右クリック－［セルの書式設定(F)...］を選択し、［セルの書式設定］ダイアログボックスを表示します。 ［表示形式］タブをクリックし、［分類(C)］ボックスの一覧から ［ユーザー定義］を選択します。 ［種類(T)］ボックスに表示された書式コードを削除します。 ［種類(T)］ボックスに、「;;;」(セミコロンを3 個)を入力します。 値はシート上では非表示になり数式バーにのみ表示され、印刷はされません。 ●補足● 非表示

DateSerial関数を次のように利用すると、今月/前月/翌月の月末日を取得することができます。 ●サンプル● Sub Sample() '今月の月末日 MsgBox DateSerial(Year(Date), _ Month(Date) + 1, 0) '前月の月末日 MsgBox DateSerial(Year(Date), _ Month(Date), 0) '翌月の月末日 MsgBox DateSerial(Year(Date), _ Month(Date) + 2, 0) End Sub ●詳細● DateSerial関数の構文と引数は以下のようになっています。 ＜構文＞ DateSerial(year, month, day) 指定項目 内容 year 必ず指定します。 整数型(Integer)のデータ形式で指定します。 年を表す100～9999の範囲の数値または数式を 指

まず、指定した時刻に実行するマクロを作成します。 Sub Test() MsgBox "時間です" End Sub 次に、次のマクロを実行します。 Sub Sample1() Application.OnTime EarliestTime:=TimeValue("11:58:00"), Procedure:="Test" End Sub これでスケジュールが有効になりましたので、普通にExcelで作業を続けます。 指定した時刻になると「時間です」というメッセージが表示されます。 指定した時刻にほかのマクロが起動していると、OnTimeメソッドで指定したマクロを実行できません。引数LatestTimeを指定するとその時刻まで実行を待ち、それまでに実行できなければマクロの実行はキャンセルされます。引数LatestTimeを省略するといつまでも待ち続けます。 OnTimeメソッドで設定したスケジ

■ 筆者紹介 堀内 辰男（ほりうち・たつお） 『モーグ　オートシェイプでお絵かきコンテスト』において、2006年度は絵画・人物画部門 大賞、2007年度は絵画・人物画部門 マイクロソフト賞を受賞。2008年度は、一般選考とは別に、審査員特別部門にてグランプリを受賞。 緻密な造形と圧倒的なクォリティでユーザーの注目を集めているオートシェイプ画家。 ホームページではさらに多くの作品を公開中。 Techno VitalとT.Horiuchiのホームページ

指定した文字列が含まれるかどうかを判断する (Excel 2000/2002/2003/2007/2010/2013/2016) ツイート ●概要● 数値の場合、指定した条件を満たすかどうかはIF関数だけで簡単に求めることができますが、文字列の場合、「○○という文字列を含む場合は～」といったようなあいまいな条件指定がIF関数だけではできません。これは、条件の指定にワイルドカードを使えないからなのですが、COUNTIF関数を組み合わせることにより、あいまいな条件指定が可能になります。 ●詳細● 結果を表示するセルを選択します。 選択したセルに、数式 =IF(COUNTIF(範囲,条件),真の場合,偽の場合) を入力します。 （例）セルA1に「Excel」という文字列が含まれている場合は「○」を表示し、そうでない場合は空白にする場合、 =IF(COUNTIF(A1,"*Excel*"),"○"

ツイート ブックに複数のシートが存在するとき、これらのシートをシート名の順に並べ替えるにはどうしたらいいでしょう。 2つの方法をご紹介します。 ■配列を使用する方法 1つ目は、すべてのシート名を配列に格納し、配列内のシート名を並べ替える方法です。 配列内の要素を並べ替えるにはいくつかのアルゴリズムがありますが、ここでは最も簡単な方法で行ってみましょう。 Sub Sample1() Dim i As Long, j As Long, cnt As Long Dim buf() As String, swap As String cnt = Worksheets.Count ReDim buf(cnt) 'ワークシート名を配列に入れる For i = 1 To cnt buf(i) = Worksheets(i).Name Next i '配列の要素をソートする For i = 1 To cn

他のデータベース内のテーブルにリンクしたテーブルを作成します。 ●準備● ここでは他のデータベース「出席者名簿1.mdb」内のテーブル「量子力学」を自データベース「NorthWind.mdb」にリンクさせます。 テーブル「量子力学」 学生番号　　　出席者名 0002　　　　田中 和明 0003　　　　平野 彩子 0004　　　　葛城 孝史 0006　　　　新田 哲也 0007　　　　山本 雅治 0008　　　　内野 義昭 0010　　　　稲垣 友子 ●サンプルプログラム● Private Sub Dao_Link1() 'リンクの作成 Dim DB As Database Dim tbl As TableDef Set DB = OpenDatabase("D:\NorthWind.mdb") 'リンクテーブル「量子力学出席者」を作成 Set tbl = DB.CreateTableDef

ツイート CSVのデータを扱うとき、次のようにブックとして開いていませんか。 Sub Sample1() Workbooks.Open "C:\Data\Sample.csv" End Sub CSVファイルはアイコンの絵がExcelでかつ、ダブルクリックするとExcelが起動して開かれます。そのことから「CSVファイルはExcelのデータファイル」と勘違いしているユーザーも多いですが、CSV形式のファイルは単なるテキスト形式のファイルです。 CSV形式は、Excelが登場するはるか以前の、MS-DOS時代から使われていた汎用のファイル形式です。決して、Excel専用のデータ形式などではありません。 Sample1のように、CSVファイルをブックとして開くと「001」が「1」になったり、「2-1」が「2月1日」のシリアル値に変換されるなど、自動変換機能が働いて読み込みと同時にデータが変換さ

セルに数式が入力されていたとします。 数式の計算結果は、セル(Rangeオブジェクト)のValueプロパティでわかります。 また、入力されている数式自体を調べたいときは、Formulaプロパティを使います。 Sub Sample1() MsgBox ActiveCell.Formula End Sub では、この数式がエラーになっているかどうかを調べるには、どうしたらいいでしょう。 ここでは、アクティブセルに入力した数式が「#NAME?」や「#DIV/0!」などのエラーを返しているとします。 任意の数式がエラーかどうかを判定するには、IsError関数を使えます。 Sub Sample2() If IsError(ActiveCell.Value) Then MsgBox "エラーです" Else MsgBox "正常です" End If End Sub 数式がエラーを返していると、Ran

次のマクロをご覧ください。 Private Target As String Sub Sample1() Dim i As Long For i = 1 To 100 If Cells(i, 1) = 99 Then Target = Cells(i, 1).Address End If Next I End Sub Sub Sample2() If Target <> "" Then MsgBox "見つかったセルは" & Target & "です" Range(Target).Select End If End Sub プロシージャSample1は、セル範囲A1:A100を調べて「99」が入力されているセルを見つけ出し、そのアドレスをモジュールレベル変数Targetに格納しています。 もうひとつのプロシージャSample2は、モジュールレベル変数Targetに格納されているアドレスをユ

セルが結合されているかどうかを判定する（MergeCells／MergeAreaプロパティ） (Excel 97/2000/2002/2003/2007/2010/2013/2016) ツイート ■結合されているかどうかを判定する セルの結合／解除にはMergeメソッドとUnMergeメソッドを使います。 では任意のセルが「結合されているかどうか」を判断するにはどうしたらいいでしょう。 それには、RangeオブジェクトのMergeCellsプロパティを使います。 ●サンプル1● Sub Sample3() Dim i As Long Range("A3:A5").Merge For i = 1 To 10 If Cells(i, 1).MergeCells Then Cells(i, 2).Value = "結合されています" End If Next i End Sub MergeCell

あるフォルダの中に保存されているファイルの一覧を取得するにはどうしたらいいでしょう。 真っ先に思いつくのは、Dir関数とDo Loopステートメントを使う方法です。 ここでは、C:\Workフォルダに、複数のファイルが存在するものとします。 取得したファイルの一覧は、アクティブシートのA列に書き出します。 Sub Sample1() Dim i As Long, buf As String Const Path As String = "C:\Work\" buf = Dir(Path & "*.*") Do While buf <> "" i = i + 1 Cells(i, 1) = buf buf = Dir() Loop msgbox "全部で" & i & "個ファイルがありました" End Sub これは、それほど難しくありませんね。 今回は、FileSystemObjectを

閉じたブックからデータを取得する (Excel 97/2000/2002/2003/2007/2010/2013/2016) ツイート ブックを開かないで、ブックのデータを読む方法を紹介します。 ここで言う「開く」とは、Excel上に読み込むことを指します。 サイズの大きなブックでは、Excelで開くだけでも時間がかかる場合があります。 ここでご紹介する方法を使えば、そうした時間的なロスを避けることができます。 ブックを閉じたままデータを読むには、Excel 4.0のマクロを使います。 次のコードは、C:\Book1.xlsのSheet1のセルA1を読んで表示します。 Sub Sample1() MsgBox ExecuteExcel4Macro("'C:\[Book1.xls]Sheet1'!R1C1") End Sub Excel 4.0マクロを使うにはExecuteExcel4Mac

ツイート ワークシートにたくさんのデータが入力されていたとします。たとえば会員の名前としましょう。この中から重複している名前を除いて、重複しないリストを作成するにはどうしたらいいでしょう。 Excelのメニューから操作するなら[データ]タブ→[詳細設定]または、[データ]メニュー→[フィルタ]から表示される[フィルタオプションの設定]などで実現できます。次のマクロは、セル範囲A1:A100に入力されているデータから重複しないリストを作成してC列に出力します。 ●サンプル1● Sub Sample1() Range("A1:A100").AdvancedFilter Action:=xlFilterCopy, _ CopyToRange:=Range("C1"), _ Unique:=True End Sub これはこれで便利ですが、重複しないリストをワークシートに出力するのではなく、直接変

サンプルではデータ入力範囲にある名前が既に定義されている場合にはRefersToプロパティーを用いて参照範囲を再定義し、まだ定義されていない場合にはAddメソッドを用いて名前を定義しています。 Sub RedifineNameRef() Dim Rng As Range Dim Nam As Name With ActiveWorkbook Set Rng = .Sheets("Sheet1").Cells(1, 1).CurrentRegion On Error Resume Next 'エラー時には次の処理へ Set Nam = .Names("Nam1") If Nam Is Nothing Then 'If Err <> 0 Then ・・・でも同じ .Names.Add Name:="Nam1", RefersTo:="=Sheet1!" & Rng.Address, _ Vis

Shapeを使う - 線を引く(AddLineメソッド） (Excel 2000/2002/2003/2007/2010/2013/2016) ツイート Shapeを用いて線を引くときにはShapesコレクションのAddLineメソッドを使用します。 作成する線の位置は、ワークシートの左上端を基点とした始点と終点の位置をポイント単位で指定します。 構文　Object.AddLine(BeginX, BeginY, EndX, EndY) 設定項目 内容 Object Shapesコレクションオブジェクト［省略不可］ BeginX 左上隅を基点とした線の始点のX座標［省略不可］ BeginY 左上隅を基点とした線の始点のY座標［省略不可］ EndX 左上隅を基点とした線の終点のX座標［省略不可］ EndY 左上隅を基点とした線の終点のY座標［省略不可］ 次のサンプルは、セルB2からJ2までの

DGET関数 次に、複数の条件で合致したデータを抽出するDGET関数を紹介します。 お客様情報リストには、「田中正美」という同じ名前の人が二人存在しています。このような場合、VLOOKUP関数では正しく抽出を行うことができません。DGET関数を使用すれば、「氏名」と「生年月日」の二つの条件から正しいデータを特定できます。

即効テクニックでは、随時テクニックの追加・見直しを行っております。 更新コンテンツは、即効テクニックトップページでご確認ください。　⇒ 即効テクニック トップページ

該当の記事は存在しません。 モーグQ&Aの閲覧期間は6ヶ月となっております。 記事が表示されない場合、閲覧期間終了または削除された可能性があります。 何卒ご了承ください。

これだけはおさえるセル操作（２）－Resizeで自由自在 (Excel 97/2000/2002/2003/2007/2010/2013/2016) ツイート セル（範囲）に関する基本事項で、RangeとCellsをマスターしたら、Offsetプロパティと一緒に、ぜひResizeプロパティの使い方をマスターしてください。 【基礎編】 Resizeプロパティはセル操作の重要基本テクニックの１つです。その名のとおり、リサイズ（セル範囲のサイズ変更）を行い、サイズ変更した後のセル範囲を返します。使い方は次のとおりです。 Rangeオブジェクト.Resize（変更後の行数, 変更後の列数） Offsetプロパティが現在の位置と移動後の位置との差分を引数で渡すのに対し、Resizeプロパティは差分ではなく変更後の行数・列数を渡します。 選択範囲を行・列ともに1ずつ拡張する場合は、次のように記述します

UserFormの[×]ボタンで閉じられなくする (Excel 97/2000/2002/2003/2007/2010/2013/2016) ツイート 一般的なUserFormでは、［閉じる］ボタンを用意しておきます。 UserFormを閉じるタイミングで、何らかの処理を行うには［閉じる］ボタンのイベントプロシージャに終了処理を組み込んでおけばよいでしょう。 しかし、ひとつ問題があります。 UserFormを閉じるとき、ユーザーが［閉じる］ボタンをクリックしてくれればいいのですが、UserForm右上の［×］ボタンをクリックされると、［閉じる］ボタンに仕込んだ終了処理が実行されないまま閉じられてしまいます。これは、困ります。 このとき、「［×］ボタンを消すにはどうしたらいいのだろう・・・」 と考えるかもれしれません。ですが、［×］ボタンを非表示にするプロパティを探しても、UserFormに