VBA

VBA

Excel VBA:[ファイルを開く]ダイアログボックスを表示(GetOpenFilenameメソッド)してファイル名を取得する方法

ExcelのVBAを使用してダイアログボックスを表示し、選択されたファイルの名前を取得するサンプルプログラム。ExcelのVBAではAccessと違って最初からダイアログボックスを開くための"GetOpenFilename"メソッドが用意さ...
VBA共通

ODBC:udlファイルを使用して接続文字列を簡単に作成する方法

VBやVBAなどでデータベースに接続するプログラムを作る際に接続文字列を打ち込むのはとてもめんどう。"udl"ファイルを使えばダイアログボックス上で設定していけば簡単に接続文字列を作ってくれる。接続文字列作成のためのウィザードみたいな感じ。...
Excel VBA

ExcelのVBA(CopyFromRecordset)でADOを使ってAccessのデータをExcelのアクティブセルに貼り付けるサンプルプログラム

ExcelのVBAでADOを使ってデータベースに接続し、テーブルやクエリー(SQL文を含む)をレコードセットで取得してCopyFromRecordsetメソッドを使用してワークシートのアクティブセルに貼り付けるサンプルプログラムを覚書しまし...
Excel

Excel:入力規則で選択された値によって他のセルの入力規則リストを変更する方法

入力規則の設定されているセルで選択された値によって、別のセルの入力規則のリストを変更する方法をVBAを使用してを作成したので覚書しておく。Accessのフォームなどではよく使う機能で、1つ目のリストで選択された値を基に2つ目のリストに表示す...
VBA共通

VBA共通:API関数を使用してWindowsにログイン(ログオン)しているユーザー名をVBAで取得するサンプルプログラム

プログラムが実行されるマシンにログイン(ログオン)しているユーザー名(ユーザーID)をWindowsのAPI関数を使用してVBAで取得するサンプルプログラムを覚書。サンプルの実行は、ExcelのVBAでもAccessのVBAでも実行できます...
VBA共通

VBA共通:半角カタカナを全角、全角英数、記号を半角に変換するユーザー定義関数

以前にも似たようなサンプルコードを作成して記事にしたけれど、今回は、半角のカタカナを全角に、全角の英字、数字、記号を半角に変換するユーザー定義関数のサンプルプログラムを作ったので覚書。"半角のカタカナを全角に、全角の英字、数字、記号を半角に...
Access VBA

VBA:AccessからMySQLにデータソース(DSN)を作成せずにODBCデータソースレス接続してSQLの結果を取得するサンプルプログラム

AccessのVBAを使ってMySQLのデータベースにODBCのデータソース(DSN)を作成せずにデータソースレスで接続する際の接続文字列とデータソースレス接続を使用したサンプルプログラムについて覚書。
Access

ODBCデータソース(DSN)を作成せずにAccessデータベースにデータソースレスで接続するサンプルプログラム

ODBCドライバ経由でAccessのデータベースに接続する際にODBCデータソースを作成せずにVBAのプログラム中のODBC接続文字列に直接指定して接続するサンプルプログラムを覚書。通常ODBCドライバ経由でデータベースに接続する場合、 >...
Excel VBA

Excel VBA:選択したセル範囲に重複データがあるかどうかチェックするユーザー定義関数のサンプルプログラム

指定したセル範囲に指定した値が重複しているかどうかを返すユーザー定義関数を覚書。引数として、重複があるかどうか探すセル範囲と重複チェックする値を指定し、指定した値がセル範囲の中で重複していればTrue、してなければFalseを返します。
VBA

Excel VBA:選択した範囲に重複データがあるかどうかをチェックするサンプルプログラム

Excelで選択したセル範囲の値に重複データがないかどうか調べるためのVBAのサンプルプログラムを覚書。ワークシート関数のCOUNTIF関数をVBAの中で利用して重複をチェックする。