日記 拡張子を含まないファイル名の取得方法
拡張子を含まないファイル名の取得方法'ファイル名取得Dim trueName As StringtrueName = ActiveWorkbook.NameDim kcsi As Longkcsi = InStrRev(trueName, ...
日記
日記 
日記 スパークスGとは、、、
■■■■■■■※写真は、内容と関係ありません。スパークスGとは、スパークス・グループ株式会社のこと。2019年3月に東京一部上場。東京都港区にあり、創業 1989年7月1日資本金 8,585百万円（2019年3月末現在）グループ従業員数 1...
日記 環境管理とは、、、
■■■■■■■※画像は、内容と関係ありません。環境管理とは、株式会社環境管理センターのこと。東京都八王子市にある。資本金 8億5,844万円従業員数 272名その名の通り、環境に関する事業が中心で、研究開発に力が入っているけど、土壌・地下水...
日記 ワイヤレスGとは、、、
■■■■■■■※画像は、内容と関係ありません💦ワイヤレスGとは、株式会社ワイヤレスゲートのこと。東京品川区にある。事業内容は、ワイヤレス・ブロードバンド関連事業であり、複数の公衆無線LAN事業者のWi-Fiスポット及び複数の通信事業者の通信...
日記 vba 忘備録
'■日付を8桁で取得Dim strYYYYMMDDstrYYYYMMDD = Format(Now, "yyyymmdd")'■ログインユーザー名を取得するDim loginUser As StringloginUser = CreateO...
日記 項目を既定の順番に並べなおす
Sub 項目を既定の順番に並べなおす()Dim i_1, i_2, i_3Dim ii '項目名用宣言Dim nx As Integer '指定回数用宣言Dim koumoku '項目用宣言Range("A1").Select i_1 = ...
日記 vba 忘備録
'ウィンドウの最大化、最小化、標準（高速化2）Application.WindowState = xlMaximizedApplication.WindowState = xlMinimizedApplication.WindowState...
日記 シートが複数あると中止
'シートが複数あると中止Dim sht1stop As Stringsht1stop = Sheets.CountIf sht1stop > 1 Then MsgBox "シートが複数あります。" & vbCrLf & "不要なシートを削除...
日記 ASUS X205TA windowsアップデート後に、キーボードが効かなくなる問題を解決！
■■■■■■■ASUS X205TA windowsアップデート後に、キーボードが効かなくなるなんだか、windowsupdateをしたら、キーボードが反応しません。まったくの無反応、、、かろうじて、マウスが動くのが救いでした。ドライバ関係...
日記 最終行・最終列を取得
'最終行・最終列を取得Dim MaxRowDB As Long, MaxColDB As LongWith Worksheets(2).UsedRange MaxRowDB = .Find("*", , , , xlByRows, xlPr...