はてなブックマーク

今回のエントリーはExcelのシートに作成した表のデータをADOを使ってテーブルとして読み込む方法をアップしたいと思います。 関連するエントリー「Excelのシートを複数条件で検索するVBAサンプルコード（ADO）」も参考下さい。 今回のサンプルの表はかなりシンプルなものですが・・・。動作イメージは以下の通りです。 ADOを使う為、まずはVBE(Visual Basic Editor)の参照設定でMicrosoft ActiveX Data Objects 2.X Libraryにチェックを入れましょう。 ※参照設定の方法はこちらのページを参照 1.ボタンをクリックした際の読み込み用のコード Private Sub cmdDisp_Click() Dim adoCON As New ADODB.Connection Dim adoRS As New ADODB.Recordset Dim

かなり久しぶりの投稿になり申し訳ありません。 事務所も変わり、気分も一新して改めてブログを更新していこうと思います。 以前アップしたExcelの検索フォームで複数検索条件のご要望がありましたので、今回はFindメソッドを使った応用編で複数条件（AND条件）の検索サンプルを説明します。 尚、細かな条件等は前回の記事をご参考下さい。 1.動作イメージ 動作イメージは以下の通りです。 検索ボタンをクリックすると指定したキーワードが全て含まれているセルの値をフォーム内のリストボックスにピックアップするようにします。 2.検索用フォームを作成 サンプルではフォームのデザインは以下のようなコントロール名で作成しています。 3.検索用VBAコード 検索ボタンをクリックした際の動作を設定します。 VBAコードは以下の通りです。 '**************************************

ExcelのワークシートからAccessにADOを使って接続し、テーブルに書き込むVBAを作成してみましょう。 今回の事例ではIDをキーとしたテーブルへの新規登録・更新までのお手軽なサンプルです。 尚、今回の関連記事としてADOを使ってテーブルを読み込む「ADOを使ってExcelからAccessデータを利用してみよう」があります。ExcelのシートやAccessのテーブルは前回のものをそのまま利用しますので、テーブルデザインや参照設定等はそちらのエントリーをご参考下さい。 テーブルをADOで書き込む為のVBAコード Sub DB_Write() Dim adoCON As New ADODB.Connection Dim adoRS As New ADODB.Recordset Dim strSQL As String Dim odbdDB As Variant Dim wSheetNam

今回はさくらインターネットなど外部接続を許可していないレンタルサーバのデータベース（今回はMySQL）にローカルPCのAccessやExcelからもODBC経由で接続出来る方法を紹介します。 SSH接続に便利なツール「PortForwarder」 このようなケースの場合、SSHのポートフォワード機能を利用してlocalhostとしてレンタルサーバのデータベースに接続します。 通常SSH接続をする際にはtera termやPuTTYなどのSSHクライアントツールを利用する事も多いですが、今回は簡単・シンプルに利用・接続できる事でおすすめの「PortForwarder」というフリーツールを利用してみます。 インターフェースがとてもシンプル！[Connect]ボタンをクリックしてパスワードを入力するだけでSSH接続とポートフォワードが一発で実行出来ます。 接続後はアプリ自身がタスクバーに格納され

エクセルで表を作成するときによくありがちですが、半角で入力すべきところが全角になったり（逆も然り）、文字数がオーバーしたりと後で「入力内容のチェックが必要になって面倒！」なんて困った経験ありませんか？ そんなときはVBAにまかせて、事前にチェックを済ませて「後で困った」なんて問題が無いようにしましょう。 Excelの入力時に文字チェックを行う 今回の入力チェックサンプルは「文字数チェック」、「全角・半角チェック」、「数字チェック」の4通りを解説します。 セルに文字を入力するとチェック処理が実行されますが、エラーの場合は以下の通りエラーメッセージをダイアログ表示します。 各項目のチェック内容は以下の通りとします。 A列：IDの制御 文字数のチェック。※10文字までとする。 半角英数字のみ許可する。 B列：商品名の制御 全角文字のみ許可する C列：品番の制御 半角英数字のみ許可する。 D列：単

Excelから直接Accessデータベースに接続して、レコードを表示してみましょう。 今回はADOADOを使ってAccessに接続し、指定したテーブルのレコードを全てExcelに表示するといった、お手軽なサンプルです。 それでは一覧の流れを説明していきます。 Accessのテーブルを作成 今回のサンプルではテーブル名を[T_item]として作成します。テーブルデザインや入力内容は以下の通りです。 ■入力内容 ■テーブルデザイン ExcelからAccessのテーブルをADOで読み込む為の設定 Excelを起動し、VBE(Visual Basic Editor)を[Alt]+[F11]で起動し、ツール(T)　→　参照設定(R)　をクリックして下さい。 参照設定のウィンドウが開いたらMicrosoft ActiveX Data Objects 2.X Libraryにチェックを入れます。 テーブ

前回に引き続き現金出納帳を例に、「実践！Excelマクロ」をアップします。 今回は科目など、よく繰り返して利用する項目を検索フォームから呼び出して入力を楽に、スピードアップするためのマクロを作成してみましょう！ ※検索関連のエントリー「Excelのシートを複数条件で検索するVBAサンプルコード（ADO）」もご参考下さい。 動作イメージは以下の通りです。 今回のマクロ化に必要な工程は以下のステップです。 科目マスタ用のSheetを作成する 科目検索用フォームを作成する 出納帳sheetの科目欄をダブルクリックすると検索フォームを開く 検索フォームが開いたら科目マスタのシートからリストボックスにセットするデータを取得 検索フォームに科目検索機能を実装する 検索フォームのリストボックスをダブルクリックすると出納帳sheetに反映する。 1.科目マスタ用のsheetを作成します 検索フォームに表示

見積書や予実績表などの作成やちょっとしたデータベースなど、様々なビジネスシーンで大活躍するソフトがExcelです。Excelには豊富な関数も用意されているので少し勉強するだけで複雑な表も作成できるのが魅力ですよね。 そんな便利なExcelを出来るだけ楽に、便利に使うためにあるのがマクロ機能です。 今回からExcelのマクロ機能を実際のシーン（現金出納帳）を想定して実装してみましょう。初回はとりあえず簡単な処理ですが、行の追加と削除をマクロ化してみます。 上記、現金出納帳のような表の場合、計算式もセットされていたりするので、行を追加する場合は計算式もコピー＆ペーストしないといけなかったりしますよね？ そんな面倒な作業をボタン一発で実行出来るようにしてみましょう。 行の挿入マクロを作成する カーソールがあるセルの一つ下に行を挿入し、更に残高欄の計算式をコピー&ペーストするVBAコードを設定しま

自作のAccessアプリケーションにひと手間かけてちょっとカッコよくしてみようか！？と言うのが今回のテーマです。 正直、自己満足なテクニックになりますが・・・、アプリケーションを起動した際に自作のスプラッシュ画面を表示させてみましょう。 ちなみにスプラッシュ画面とはExcelやAccessなどソフトを起動するときに表示される以下の画面の事です。 スプラッシュ用のフォームを作成しましょう。 まずはスプラッシュ用のフォームを作成します。仮にフォーム名は[frm_splash]とします。 フォームには好みのテキストやイメージ画像を配置して下さい。 フォームのプロパティは以下の設定をご参考下さい。 [境界線スタイル：なし]、[ポップアップ：はい]、[作業ウィンドウ固定：はい]、[レコードセレクタ：いいえ]、[移動ボタン：いいえ]、[自動中央寄せ：はい]、[コントロールボックス：いいえ]、[閉じるボ