日記 vba 忘備録
'ウィンドウの最大化、最小化、標準（高速化2）Application.WindowState = xlMaximizedApplication.WindowState = xlMinimizedApplication.WindowState...
日記 日記 シートが複数あると中止
'シートが複数あると中止Dim sht1stop As Stringsht1stop = Sheets.CountIf sht1stop > 1 Then MsgBox "シートが複数あります。" & vbCrLf & "不要なシートを削除...
Excel VBA メニュー形式（エクセルのアドインタブにメニューを追加する）
メニュー形式（エクセルのアドインタブにメニューを追加する）Option ExplicitSub Auto_Open()With CommandBars("worksheet menu bar").Controls.Add(Type:=mso...
Excel VBA vba 検索置換で気を付けたいとこ
vba 検索置換で気を付けたいとこSelection.Replace What:="A", Replacement:="B", LookAt:=xlWhole部分一致の LookAt:= は、省略できるけど、完全一致、部分一致は、設定した方...
日記 ASUS X205TA windowsアップデート後に、キーボードが効かなくなる問題を解決！
■■■■■■■ASUS X205TA windowsアップデート後に、キーボードが効かなくなるなんだか、windowsupdateをしたら、キーボードが反応しません。まったくの無反応、、、かろうじて、マウスが動くのが救いでした。ドライバ関係...
Excel VBA 最終行と最終列の取得
'最終行列の取得（入力値のみ、書式有り空白セル含まず）Dim MaxRow, MaxCol As LongWith ActiveSheet.UsedRange MaxRow = .Find("*", , , , xlByRows, xlPr...
日記 最終行・最終列を取得
'最終行・最終列を取得Dim MaxRowDB As Long, MaxColDB As LongWith Worksheets(2).UsedRange MaxRowDB = .Find("*", , , , xlByRows, xlPr...
Excel VBA ループ処理を強制的に止めたり、任意のところに飛ばす方法
For文のループを強制的に抜けるExit For----- べんりあつめ。-----好きなところへ移動するスキップするGoTo ContinueContinue;
Excel VBA データ型について
データ型についてvba で変数宣言するときに使うやつDim 変数 As データ型ってやつですね。今の自分のレベルだと省略しても vba は動いて問題ないものばかりなので、ついつい省略しちゃいがちなんだけど、調べてみると、厳密には実行速度が関...
Excel VBA データ量が多すぎて vlookup が限界なので vba で二次元配列でやる方法
vlookup は、すごく便利だけど、データ量が多すぎると時間掛かるし、限界だと感じるので、vba でやった場合の忘備録。基本を理解しておけば、かなり便利だから、メモメモ。考え方としては、DBに該当するシートの内容を全部配列に入れて、検索さ...