中年男が書いたVBA,SQLのプログラミング

Accessからデスクトップにあるｐｄfファイルを起動させます。 API ShellExecuteAにパス名や、Null値等をいれて 必要な引数をいれて実行します。 ,----------------------------------------------------------------- Option Compare Database Option Explicit Private Declare Function ShellExecute Lib "shell32.dl... ...続きを見る

ブログ気持玉 / トラックバック / コメント

VBAというフォルダー内のファイルのブック名、拡張子、親フォルダー名 最終アクセス日時、最終更新日をループでシートに転記して拡張子を基準に 並べ替えます。サブフォルダーの情報は取得しません。 項目名は、配列で値を取りシートに書込みます。 Scripting.FileSystemObjectでファイルやフォルダー操作の応用範囲が 広がります。 ,------------------------------------------------------------ Option Ex... ...続きを見る

ブログ気持玉 0 / トラックバック 0 / コメント 1

検索条件はフィールド「社員名」がフォームの テキストボックスの値に一致するレコードです。 一致する最初のレコードを検索し一致する全ての レコードを検索し、検索されたレコードにブックマーク を設定してそのブックマークの次のレコードから再検索 していきます。 ,----------------------------------------------------------------- Option Compare Database Option Explicit Privat... ...続きを見る

ブログ気持玉 / トラックバック / コメント

二次元配列で値をセルに転記するサンプルコードです。 配列変数「clData」に12個の値を代入します。 シート上の実行結果は、セルA1からD3までの範囲で 下記のようになります。 ...続きを見る

ブログ気持玉 / トラックバック / コメント

ちょっと面白いVBA小技です。 ウィンドウを左右に並べて同時にスクスロールさせます。 片方のウィンドウのセルに文字を入力すると もう片方のウィンドウと同期をとり同じ文字が入力 されます。解除する時は「SyncVertical:=False」に して下さい。 ,------------------------------------------- Option Explicit Sub Scroll_Dual() ...続きを見る

ブログ気持玉 / トラックバック / コメント

シートのセルH3にヤフーサイトのハイパーリンクを設定する サンプルソースです。 HyperlinksコレクションにAddメッソドを使いアドレスを指定します。 メールアドレスもlinkできます。 ,---------------------------------------------- Option Explicit Sub hlink() ...続きを見る

ブログ気持玉 / トラックバック / コメント

予めレポートをデザインビューにしてテキストボックスを 詳細に配置します。テキストボックスは「行番」とします。 後は、レポートヘッダー、詳細を選択してイベントを発生 させ下記のソースコードを書き、印刷ビューで行番が表示 されます。 ,--------------------------------------------------- Private Sub レポートヘッダー_Format(Cancel As Integer, FormatCount As Integer) ... ...続きを見る

ブログ気持玉 0 / トラックバック 0 / コメント 1

久々の投稿です。今回はSQLで大事なコマンドの一つ グループ化してテーブルのレコードを抽出するサンプルです。 フィールド「社員名」の個数をカウントして重複した 数字とそれに対応するフィールド「目的地」を抽出します。 ,-------------------------------------------------- Option Compare Database Option Explicit Sub Sort_Record() ...続きを見る

ブログ気持玉 / トラックバック / コメント

パスワードが設定されたデーターベースに接続して 新規でクエリを作成します。 ソースコード「pwd」の後に実際のパスワードを書いて下さい。 ,----------------------------------------------- Option Compare Database Option Explicit Sub Change_Password() ...続きを見る

ブログ気持玉 / トラックバック / コメント

同じフォルダ内にあるcsvファイルのレコードを 新規でテキストを生成して出力します。これと似た サンプルでエクセルファイルをテキストに出力する ソースもこのブログに投稿してあります。 今回はｃｓｖのファイルとシートと両方をSETステートメント で変数を取得しEraseでｃｓｖの列数を一旦配列処理して 初期化してます。約2万レコードを処理するのに ２秒程で終わっています。 因みにパソコン環境は、WindowsXP,Excel2007。 メモリー1G,ローカルデスクが140Gで動作... ...続きを見る

ブログ気持玉 0 / トラックバック 0 / コメント 5

フォーム起動時に、リストボックスに配列で取った値を追加して テキストボックスの値を末尾に追加して、選択した項目を 削除します。ListIndexが返す値が-1の場合は項目が選択 されていない状態です。 ,---------------------------------------------------- Option Compare Database Dim strsyain() As String Private Sub Form_Load() ...続きを見る

ブログ気持玉 / トラックバック / コメント

ループ処理で文字列と数字が混在している一列のセルの値 から数時だけ取り出して、隣のセルに書込みます。 特にパスワードとかから数時だけ抽出したい時に有効 かもしれません。下記のソースで実行できました。 ...続きを見る

ブログ気持玉 / トラックバック / コメント

VBAでのちょっとしたお遊びです。 1から100までの正数値で偶数の数字だけ加算 するプログラミングソースです。 MOD関数を使い、2で割り算して余りが0なら ループで加算して行きます。 ,----------------------------------- Option Explicit Sub even_Calculate() ...続きを見る

ブログ気持玉 / トラックバック / コメント

複数のシートの携帯番号をハイフォンで区切り 分割された文字をセルに書込みます。 関数「Split_PNum」にシート名とsplit関数で 分割された文字を引数にしてＣａｌｌで 呼び出し実行すればセルに区切られた番号 が転記されます。 ...続きを見る

ブログ気持玉 / トラックバック / コメント

mdbファイルはレコードを更新したり追加したり等の処理 をしているうちに容量が大きくなります。 ここでは、コマンドボタンをクリックした時に 最適化をして保存終了するまでのサンプルソースです。 ,------------------------------------------ Option Compare Database ...続きを見る

ブログ気持玉 / トラックバック / コメント

３つのcsvファイルをシートに読み込むサンンプルコードです。 同じ読み込むコードを３回書くと、記述が長くなります。 Sub csv_Input(fname As String, sh_name As Worksheet, cnt_csv As Integer) という風にインスタンスを作成して、標準モジュールでは csv_Inputの引数に値や変数を代入してcallメッソドで呼び出します。 最初に開いたcsvは1とカウントされ、以降2,3----とカウントされます。 モジュール内のc... ...続きを見る

ブログ気持玉 / トラックバック / コメント

連結フォームのレコードを削除します。 フォームのBookmarkメッソードを使い複製を作り 削除したいフォームのレコードに移動させ 実行さます。勿論フォームが連結している テーブルのレコードも削除されます。 ,------------------------------------ Private Sub コマンド18_Click() ...続きを見る

ブログ気持玉 / トラックバック / コメント

DoCmd.TransferDatabaseメッソードを使い、カレントデータのテーブルレコード を外部のｍｄｂファイルのテーブルに出力します。 ,---------------------------------------------- Option Compare Database Option Explicit Sub OutPut_RECORD() Dim mdbpath As String Dim strmdb As String D... ...続きを見る

ブログ気持玉 / トラックバック / コメント

csvファイルをシートに取込むコマンドです。 知っている方も多いとかと思います。 他にもcsvを外部データから取込むやり方 もあります。下記のメソドがよく使われて いると思います。 '-------------------------------------- Sub csv_取込み() ...続きを見る

ブログ気持玉 / トラックバック / コメント

'カレントデータベースから外部のデータベース上の テーブルを開きます。としてのAccessのアプリケーション のオブジェクトを作成してmdbを起動させて、テーブル を開きます ,-------------------------------------- Sub Open_External_Data() ...続きを見る

ブログ気持玉 / トラックバック / コメント