2019-01-01から1年間の記事一覧
Excel からメールが送信できる。今ごろ知ったのが少し恥ずかしいです。 CreateObject("CDO.Message") を使うと簡単にできるのですね、 www.google.com すると記事が沢山でてきます。 この機能で、HTML 本文、HTML署名 さらに添付ファイルもできる。 ーーー …
中国語の簡体字を、SQLサーバに登録する。というテーマです。 自分は いつもExcelシートで登録データを編集して、VBAでSQLサーバにアップロードしています。 ところが、Excelで簡体字は編集できまがVBAでは Unicode が扱えず、結果として簡体字が '???' と壊…
罫線を引く を解読する なにもないシートに 罫線を引きます。 この 罫線を引く動作を マクロの記録 でコードをとります。 取得したコード こんなに沢山コードができます。------------------------ Sub Macro6() Range("B2:D4").Select Selection.Borders(xl…
必要に迫られて、Case When 内に サブクエリをいれてみました。 備忘でここに記します。 ----------------------------------- ,case when Cnt = (select count(distinct(Place)) PlaceCnt from [dbo]. [Table_xxxx] where InspstepsID = A.InspstepsID and …
外部システムへのアクセスや、システム間通信などの時、グローバルIPアドレスの登録を求められることがあります。調べ方を探すのが面倒な時は、こちらのグローバルIPアドレス取得プログラムをご利用ください。 ↑クリックでダウンロード
自分が使っているExcelのバージョンは何? これが Excelのバージョンによって、調べ方が異なるので(?)迷うこともあるかと思います。 またExcelマクロがバージョンによって動作が異なることがあるなど、調べる必要がでてきます。 それで PCのExcelバージョ…
SQLテーブルのレコードの日付列が空白になっている!! エッ その日付で集計分析しているのに!! 登録するタブレット側のプログラムを修正するには時間がない。 こんな時はトリガーの出番です。トリガーとは、レコードが新規追加や更新が発生した時に作動す…
同じ品物を何度も購入したとき、最安値は? 同じ品物を何度も購入したとき、最後に購入した時の価格は? など いろんな条件でデータが欲しくなります。 そんなとき、ROW_NUMBER() OVER(partition を使うと便利です。 元々のデータ 検索するコード SELECT * F…
VBA で Excelシートを、Read Write するとき、そのシートにフィルターがかかっていると誤動作しやすいです。 それで、シートを扱う前に オートフィルターを次の方法で調整します。 ①もし フィルターがかかっていたら、フィルターを解除する。 ②後で利用者の…
このテーマで、関数をつかうと、シンプルに作れます。 EOMONTH という関数は 月末を求める関数です。 EOMONTH('対象日', 追加月数) 月数はマイナスもあり ------------------------------------------------ サンプルコード SELECTDATEADD(Day,1,EOMONTH(ge…
SQL で データ集計して、時系列のデータの累積を求める というテーマがあります。 つまり 開始から各行までの合計だったり、過去7回の累計で移動平均を求める など これまではストアドプロシジャのカーソル処理で1行づつ計算する方法を採っていました。 と…
Excel VBA での月初と月末日を求める関数です。 日付の操作は毎回調べるので、ここに記します。 --------------------------------------- '指定日の月初日を取得するPublic Function fnc_xlGetDateFirstofMonth(ByVal d As Date) Dim dRes As Date dRes = D…
10, 20, 30, , , といった数字文字を 0010, 0020, 0030, , , のような 4桁数字に変換することはよくあります。 --- コード ---- DECLARE @No nvarchar(20) = '20' SELECT RIGHT('0000' + @No,4) as Num4 ---- 結果 ----- Num40020 ------------------ それ…
よく使うのですが、毎回コーディングすると大変なので、備忘でしるします。 SELECT dateadd(day,0,convert(date,convert(nvarchar,year(dateadd(MONTH,0,dateadd(hour,9,getdate())))) + '/' + convert(nvarchar,month(dateadd(MONTH,0,dateadd(hour,9,getda…
職場で隣の部署の方に頼まれた。 アンケートの名簿が2つあり、結合したいのですが、名前が '山田一郎', '山田 一郎', ’山田 一郎' というような、空白なし、全角空白、半角空白 が混在していて Vlookupでマッチングできなくて困ってます。 とりあえず、急ぎ…
SQLストアドで 実行時刻を表示させた EXEC sp_executesql @InnerSQLprint '実行時刻= ' + convert(nvarchar,DateAdd(Hour,9,getdate())) 結果 ================= 実行時刻= Aug 17 2019 7:53AM ========================
SQLテーブルを見るとき テーブルの 「行数」「最初データ」「最後データ」を見ます。 その いつものコードです。 SELECT count(*) as Cnt , Min(WorkStateDT) as SttDT ,Max(WorkStateDT) as EndDT FROM [テーブル名] Cnt SttDT EndDT699965 2019-04-01 00:0…
よくありそうで すぐにつくれないので ここに記録します。 Private Sub mc() ' MsgBox (fnc_getMacAddress) MsgBox (fnc_GetMacAdrs)End Sub Public Function fnc_GetMacAdrs() As String ' ????_MAC?A?h???X????() Dim objConf, objMACEna, strIP Set objCo…
インタフェース機能で 実現しました。(2019年 初研究です) ---フォームから クラスモジュールを呼び出す処理--------------Private Sub UserForm_Initialize()~ 略 ~On Error GoTo MyErrstrLEBEL = "はじめにクラスモジュールをセットする" ~ 略 ~args = "…