Range.NumberFormat プロパティ (Excel)
オブジェクトの表示形式を表すバリアント型 (Variant) の値を取得または設定します。 構文 expression.NumberFormat expression は Range オブジェクトを表す変数です。 注釈 指定されたすべてのセル範囲の表示形式が同じでない場合、Null を返します。 表示形式を示す文字列は、[ セルの書式設定] ダイアログ ボックスの [ 表示形式] の文字列と同じです。 この文字列は、NumberFormat プロパティと NumberFormatLocal プロパティで使われますが、Format 関数で使う表示形式とは異なります。 詳細については、 表示形式の書式記号 (Microsoft サポート) を参照してください。 例 次の使用例は、シート 1 のセル A17、行 1、および列 C にそれぞれ表示形式を設定します。 Worksheets("Shee
Workbook.Close メソッド (Excel)
ブックを次の受信者に回覧する必要がない場合 (回覧用紙がないか、既に回覧されている場合)、この引数は無視されます。 それ以外の場合、このパラメーターの値に応じてブックが回覧されます。 True を指定すると、次の受信者にブックが送信されます。 False を指定すると、ブックは送信されません。 この引数を省略すると、ブックを送信するかどうかを確認するダイアログ ボックスがユーザーに表示されます。 注釈 Visual Basic からブックを閉じるとき、ブックの Auto_Close マクロは実行されません。 RunAutoMacros メソッドを使用して、Auto_Close マクロを実行します。 例 次の使用例は、Book1.xls を閉じます。内容の変更は保存しません。 Workbooks("BOOK1.XLS").Close SaveChanges:=False サポートとフィードバ
Office TANAKA - Excel VBA Tips[正規表現のようなマッチング]
一般的な正規表現に比べると使用できるメタキャラクタの種類は少ないですが、いくつも条件分岐を重ねるよりは効率的にパターンマッチングできるでしょう。いくつか使用例をご紹介します。 上のような住所録で「東京、横浜、千葉ではない住所を赤字」にするには、次のようにします。 Sub Sample1() Dim i As Long For i = 1 To 8 If Cells(i, 1).Value Like "[!東京,横浜,千葉]*" Then Cells(i, 1).Font.ColorIndex = 3 Next i End Sub Like演算子を使わないなら、次のようになりますね。 Sub Sample2() Dim i As Long For i = 1 To 8 If Left(Cells(i, 1), 2) <> "東京" And _ Left(Cells(i, 1), 2) <>
Office TANAKA - VBAのステートメント[On Error]
On Errorステートメント 構文 On Error GoTo line On Error Resume Next On Error GoTo 0 lineには、分岐先の行ラベルまたは行番号を指定します。 解説 エラー処理ルーチンを有効にし、エラーが発生したときの処理を指定します。On Errorステートメントでエラー処理ルーチンを有効にしていないと、エラーが発生したときにプログラムは停止します。また、On Errorステートメントで、エラー処理ルーチンを無効にすることもできます。 On Error GoTo line では、エラーが発生するとlineで指定した行ラベルまたは行番号に処理が移ります。 On Error Resume Next では、エラーが発生するとエラーの発生した次の行から処理を続行します。 On Error Goto 0 は、エラー処理ルーチンを無効にします。 サンプ
Office TANAKA - Excel VBA Tips[入力されているデータの最終セルを取得する]
これは基本的なテクニックだと思って今まで解説しませんでしたが、セミナーなどで質問が多かったので、簡単に書いておきます。たとえば、下図のようなリストがあったとします。 この、現在入力されている最終セル(あるいは最終行)を取得するには、どうしたらいいでしょう。 Excelに詳しくない、VBAのプログラミング的なことしか知らないような方でしたら、次のように考えるかもしれませんね。「A列を上から順番に見ていって、空欄セルが見つかったら、その直前が最終セル」だと。その方法でやってみましょうか。 Sub Sample1() Dim i As Long, r As Long For i = 1 To 10000 Range("A" & i).Select If Selection = "" Then r = i - 1 Exit For End If Next i Range("A" & r).Sele
Office TANAKA - VBA高速化テクニック[個別に呼ばない]
昔、本項で比較したかったのは、要するに「For Next と For Each って、どっちが速いの？」ってことです。1995年にMicrosoftから出版されたVBAに関する公式本に「For Each の方が速いよ～理由はね～」って書いてあったからです。その頃調べた結果では、確かに For Each の方が速かったです。でも、時代は変わりました。と同時に、パソコンの性能も飛躍的に向上しています。理論的に速くても、体感速度として、あるいは計測結果としては、どうなんでしょう。 まず、For Next と For Each で比較してみましょう。 Sub Test1() Dim i As Long For i = 1 To 10000 Cells(i, 1) = 100 Next i End Sub Sub Test2() Dim c As Range For Each c In Range(
Office TANAKA - Excel VBA関数[VarType]
引数varnameにユーザー定義型を指定することはできません。 サンプル 次の例は、バリアント型変数の内部処理形式を表示します。 Sub Sample() Dim var As Variant var = "ABC" MsgBox VarType(var) '８を表示します var = 123 MsgBox VarType(var) '２を表示します var = 123.456 MsgBox VarType(var) '５を表示します var = Array("A", "B", "C") MsgBox VarType(var) '8204を表示します End Sub
Office TANAKA - Excel VBA Tips[メニューバーに独自のメニューを追加する]
VBA でシステムを作ったとき、機能をメニューから選択できると便利ですね。独自のメニューをメニューバーに登録する方法をご紹介しましょう。 Sub AddMenu() Dim NewM As Variant, NewC As Variant ''新しいメニューを追加する Set NewM = Application.CommandBars("Worksheet Menu Bar").Controls.Add(Type:=msoControlPopup) NewM.Caption = "新しいメニュー(&C)" ''オリジナルコマンドを追加する(1) Set NewC = NewM.Controls.Add With NewC .Caption = "保護解除(&U)" .OnAction = "UnProtectSheet" .BeginGroup = False .FaceId = 277
Office TANAKA - Excel VBA関数[MsgBox]
MsgBoxで、どんなときに括弧を使うのかと、メッセージを改行する"改行コード"について、詳しい解説を動画で公開しています。ぜひ、こちらもご覧ください。Youtubeでは、ほかにもたくさんの動画を公開しています。チャンネル登録をお忘れなく！ Office TANAKAチャンネル ■VBAのコードで、括弧はどんなときに使うのか 構文 引数promptは必ず指定します、ダイアログボックスに表示するメッセージを指定します。 引数buttonは省略可能です。ダイアログボックスに表示する、ボタンの種類やタイプなどを指定します。 引数titleは省略可能です。ダイアログボックスのタイトルバーに表示する文字列を指定します。 引数helpfileは省略可能です。ダイアログボックスの[ヘルプ]ボタンから開くヘルプファイルを指定します。引数helpfileを指定する場合は、引数contextも必ず指定しなけれ
VBAエキスパート公式サイト
全国にある最寄りのVBAエキスパート試験会場の検索が可能です。また試験当日に関する諸注意についてご案内しています。 試験会場を探す 試験当日について 企業・団体受験 Odyssey CBT＋(在宅テスト)で受験する 受験の流れ
VBAエキスパート - Wikipedia
VBAエキスパート（ブイビーエー・エキスパート）は、Microsoft OfficeアプリケーションのExcelやAccessに搭載されているマクロ・VBA（Visual Basic for Applications）のスキルを認定する資格試験制度である。2003年4月に開始され、主催元である株式会社オデッセイコミュニケーションズが認定している。 試験の概要[編集] 試験は、コンピュータ上で解答するCBT（Computer Based Testing）形式で行われ、試験終了直後に合否結果がわかる。合格すると、約1ヶ月後に合格認定証が送付される。受験資格は特になく、誰でもどの試験科目からでも受験できる。 試験のレベル[編集] 試験のレベルは3つあり、「ベーシックレベル」、「スタンダードレベル」、「プロフェッショナルレベル」の順に難しくなる。 ベーシックレベルは、VBAの基本文法を理解し、Vi
Office TANAKA - 変数の使い方[部屋数を変えられる動的配列]
配列は、いわば集合住宅のようなものです。1棟の建物に複数の世帯が同時に住むことが可能です。配列を使用するときは、配列の宣言時に部屋数(要素数)を指定します。 では、プログラムの実行中に、要素が増加するような場合はどうでしょう。あるいは、プログラムを作成する時点では、いくつの要素を格納するかわからないときは、どうしたらいいでしょう。そんなケースで役立つのが動的配列という使い方です。 動的配列は、宣言時に要素数を指定しません。 Sub Sample33() Dim Member() As String End Sub 一般的な配列では「Member(5)」などと要素数を指定するところを、「Member()」と括弧だけを指定します。これで、変数Memeberは配列として使用できます。ただし、この宣言時点では要素数が確定していませんので、実際には使えません。そこで、プログラムのコード中で要素数を再
Office アプリケーションのオートメーションでエラー 429 が発生する
概要 Microsoft Visual Basic で New 演算子または CreateObject 関数を使用して Microsoft Office アプリケーションのインスタンスを作成すると、次のエラー メッセージが表示されることがあります。 このエラーは、コンポーネント オブジェクト モデル (COM) が要求された Automation オブジェクトを作成できず、Automation オブジェクトが Visual Basic では使用できない場合に発生します。 このエラーは、すべてのコンピューターで発生するわけではありません。 この記事では、このエラーの原因となる可能性がある一般的な問題を診断して解決する方法について説明します。 詳細情報 Visual Basic では、エラー 429 の原因がいくつかあります。 エラーは、次のいずれかの条件に該当する場合に発生します。 アプリケ
VBAで独自の.NETライブラリを使うには？［VB］ - ＠IT
Microsoft Office製品（WordやExcelなど）に独自の処理を追加する方法としては、主に下記の3種類がある。 VBA（Visual Basic for Applications）マクロ Office COM（Component Object Model）アドイン Visual Studio Tools for Office（VSTO） このうち、最も手軽に作成できるのが、VBAマクロであるが、このVBAマクロでも、.NET Frameworkで作成した独自のクラスを活用できる。本稿ではその方法を紹介する。 ●VBA向けの.NETライブラリの作成 最初に、VBA向けに.NETのクラス・ライブラリを作成しよう。 管理者としてVisual StudioのIDEを立ち上げ、メニューバーから［ファイル］－［新規作成］－［プロジェクト］を実行すると表示される［新しいプロジェクト］ダイア
Office TANAKA - Excel VBA Tips[ブック・シートが存在するか調べる]
サイトをご覧になった方からリクエストをいただきました。「特定のブックを開いているか、どうやってチェックしたらいいですか？」と。また、別の方から「'合計'という名前のシートがあるかどうか調べたい」というメールもちょうだいしました。これらは同じ考え方で実現できますので、一緒に解説しましょう。 ブックが開いているか調べる このテクニックは、実は「ファイルの操作」の「現在開いているブックの一覧を取得する」で解説しています。念のため同じコードを再度ご紹介します。 Sub Sample01() Dim wb As Workbook, flag As Boolean For Each wb In Workbooks If wb.Name = "Book1.xlsx" Then flag = True Next wb If flag = True Then MsgBox "Book1 を開いています。",
Office TANAKA - セルの操作[セル範囲の取得]
操作の対象セル範囲が不定の場合 ここまでの解説では、操作の対象を「セルA1に」とか「セル範囲A1:C3に」などと簡単に決めてきました。もちろん解説なのですから、それは勘弁していただきたいのですけど、実際のマクロ作成では操作の対象を特定することに苦労するものです。操作の対象セルを、どう的確に特定するかが、VBAのビギナーとベテランで差が出るところでもあります。たとえば、次のようなデータを考えてみましょう。 このデータをマクロでクリアします。ただし、データが何行何列あるかは、そのときによって異なります。セルをクリアするにはRangeオブジェクトのClearContentsメソッドを使います。次のコードはセル範囲A1:D5をクリアします。 Sub Sample1() Range("A1:D5").ClearContents End Sub クリアすべきセル範囲の左上はセルA1です。したがって、セ
Office TANAKA - ファイルの操作[ブックを開く]
ブックを開くには、WorkbooksコレクションのOpenメソッドを使います。 Excelでは、同時に複数のブックを開くことができます。開いているそれぞれのブックはWorkbookオブジェクトとして操作できます。このWorkbookオブジェクトの集合体がWorkbooksコレクションです。新しいブックを開くということは、この集合体に、新しいメンバーを加えるということです。だからWorkbooksコレクションのOpenメソッドです。 次のコードは、C:\Book1.xlsxを開きます。 Sub Sample1 Workbooks.Open "C:\Book1.xlsx" End Sub Workbooks.Open Filename:="C:\Book1.xlsx" という書き方もできます。 「Filename:=」の意味や、つけるのとつけないのとでは何が違うかについては、下記ページを参考に
)
Office 2010 の 32 ビット バージョンと 64 ビット バージョンとの互換性
概要 : 2GB 以上のデータを扱っているユーザーのために、Microsoft Office 2010 の 64 ビット バージョンが提供されるようになりました。この記事では、32 ビット バージョンと新しい 64 ビット バージョンとの互換性に関する問題、および以前の 32 ビット Office アプリケーションとそのソリューションについて説明します (7 ページ)。 適用対象: Excel 2010 | Office 2007 | Office 2010 | Open XML | PowerPoint 2010 | SharePoint Server 2010 | VBA | Visual Basic for Applications 7.0 (VBA 7.0) | Word 2010 この記事の内容 Microsoft Office 2010 の 32 ビット バージョンと 64 ビ
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
File オブジェクト
「Excel」から「LibreOffice」へマクロを移行するためのマニュアルが無償公開