大好きな佐野ラーメンです。美味い！！お題「#この1年の変化 」 コロナ禍ですが、仕事はテレワークもなく何も変わってません。収入は減る一方です。元気だして頑張るしかないです。外食が少なくなりました。（そば・うどん・ラーメンくらいですかね）飲みに…

今週のお題「鬼」 EXCELで仕事される鬼の方是非必読です。 EXCELマクロの超初心者向け EXCELを操作する上でよく使用する操作をファンクションに設定することができます。例えば フィルター操作：[データ]-[フィルター]⇒F1キーに 設定します。（筆者はこれで…

今週のお題「大人になったなと感じるとき」 今現在ならばコロナ感染予防の行動ができる人が大人かなあ・・・緊急事態宣言が発令されて、 ・午後8時以降 不要不急の外出の自粛 ・飲食店などに対して営業時間を午後8時までに短縮し、 酒類の提供は午前11時から…

【VBA】ACCESS DB INSERT & UPDATEが遅い筆者の場合 DBのINSERT＆UPDATEする前にSELECT文のWHEREを見直しました。WHEREをINDEXで検索するようにしました。変更前 SELECT * DATA WHERE 色="赤" AND 品名="サンプルA" ;変更後 ID1="サンプルA" & "赤" & XXXX S…

'b列の最後の行を求める cnt = range("b11").end(xldown).row

１．列を別シートにCOPY ２．「データ」―「並べ替え」―「詳細設定」、重複データ無視をチェック ３．結果をコピペする

EXCELからコマンド・プログラム実行する方法です \\192.168.0.1\はネットワーク上のファイルです。 ローカルであればc:\prg\xxxx.bat などになります。Shell "cmd /c \\192.168.0.1\prg\TEST11.exe" 以上

EXCELで別シート参照するマクロを作成しましょう １．シート名を全部取得しテーブルにストア２．１シートずつ前のシートのセルを参照する式を作成 通常、新規シートはコピーで作成しますがシート名は手動で修正して行きます。しかし、修正削除などが発生する…

ＳＱＬで日付の空白データを検索する方法。 is null です。 例えば select xxx1 , sum(count) from data where 日付 is null group by xxx1 ; 以上

ＶＢＡからＢＡＴ(バッチファイル）を実行する方法はいろいろあるみたいですが１つの方法を紹介します。 同期ができる方法。 ＶＢＡ開発画面の参照画面で以下の"Windows Script Host Object Model"を追加します。 「ツール」－「参照設定」 ＶＢＡソース bac…

１．「開発」 ２．「デザインモード」 ３．ボタンをダブルクリック ４．パスワード入力画面ーパスワード入力 ５．「ツール」－「参照設定」

【ＥＸＣＥＬ VBA】 ＳＱＬ文でレコード数を取得する方法です。 Dim rs1 As New ADODB.Recordset Dim cmd1 As New ADODB.Command Dim FileName1 As String Dim DB1 As DAO.Database Set cn1 = New ADODB.Connection FileName1 = "\db1.mdb" cn1.Open Connect…

ＳＱＬ文を利用する場合 １．「開発」－「ＶＢ」（ＡＬＴ＋Ｆ１１キー） ＶＢＡ開発メニュー表示 ２．「ツール」－「参照設定」 これがないとエラーになってしまい実行できません。

DBのメンテナンス DB内部のデータを削除しDBのスペース確保します。 削除する前にBACKUP用DBにコピーします。 EXCEL＿VBAの内容 ・DBの変数定義 ・DBと接続 ・DBをOPEN＆データCOPY ・DBのデータ削除 Dim cn1 As ADODB.Connection Dim rs1 As New ADODB.Reco…

【EXCEL VBA】SELECTして検索したレコードをUPDATEします。 ’DBを定義します。 Set myCon2 = New ADODB.ConnectionDim myRs2 As New ADODB.Recordset FileName2 = "TEST.mdb" myCon2.Open ConnectionString:="Provider=Microsoft.ACE.OLEDB.12.0;" & "Data S…

ビルドエラー 【エラーメッセージ】 タイプ ライブラリ "ADODB" のラッパー アセンブリが見つかりません。次のことを確認してください。(1) COM コンポーネントが正しく登録されている。(2) ターゲット プラットフォームのビットが COM コンポーネントと同じ…

EXCELで絶対座標は ＄を付けます ＝A1＆B1 ＝＄A$1＆B1 EXCELで計算しなかったら忘れちゃいますね（笑）

EXCEL＿VBAで文字を結合、計算結果の列を揃える方法を説明します。 FORMAT文を使います。 Format(厚, "0.0") & " x " & Format(幅, "#") & " x " & Format(長, "#") & " " & Format(NDATE, "mmdd") 5.0 x 150 x 3000 1213 以上

VBAのバッチ処理で途中経過を確認したいとき、以下の処理をよく使います。 １．ソース If ins_cnt < 5 Or (ins_cnt Mod 500) = 0 Then If run_flgz = 0 Then MsgBox (ins_cnt & " " & 管理番号 & "：" & ID1 & " 追加成功") End If End If

【EXCEL VBA】SHEET追加 ' On Error Resume Next'Sheet1をコピーSheet2を作成work_s0 = "Sheet1 (2)"work_s1 = "Sheet1"work_s2 = "Sheet2"Sheets(work_s2).SelectSheets(work_s2).DeleteSheets(work_s0).Delete Sheets(work_s1).Copy Before:=Sheets(1) 'Sh…

【EXCEL VBA】EXCELからCMDを実行（ファイルCOPY) 1.Shell "cmd /c copy C:\aaa\FILE_ORG.xls C:\aaaa\data\FILE_フォーム.xls /y"

よく使う操作をF1キーにセットする方法 重宝します。 Application.OnKey "{F1}", "autofil" 以上

VBA+ACCESS2016で「引数が無効です」のエラーメッセージ プログラムテスト中なので バックアップしていたDBをコピーして解決。 じつはかなり悩みました。 バックアップはこまめにとらないといけませんね！！

１．変数の文字を検索する関数【instr】です。 n = InStr(1, work_s1, work_s2) InStr ( 開始位置 , 変数 , 検索する文字) Do While n > 0 cnt = cnt + 1 n = InStr(n + 1, work_s1, work_s2) Loop ソースは以下です。 ------------------------------------…

ボタンの文字を変更する場合。 ソースは以下です。 ------------------------------------------------------------------------------ ActiveSheet.CMD1.Caption = "A1" ActiveSheet.cmd2.Caption = "B1" ------------------------------------------------…

VBAのTABLE内、重複データを除いた件数を計算します。 ソースは以下です。menber2()テーブル内に重複したデータが存在したら””（ブランク）にします。------------------------------------------------------------------------------ work_i = mem_cnt2 Fo…

シートを削除して名前変更する作業だけど、プログラム作ったら随分楽になった。 Public Sub シート削除リネーム() Dim sss Dim shtname1 Dim shtname2 sss = Range("A1") shtname1 = sss & "注文データ" shtname2 = sss & "注文データ (2)" Worksheets(shtna…