日記 項目を既定の順番に並べなおす
Sub 項目を既定の順番に並べなおす()Dim i_1, i_2, i_3Dim ii '項目名用宣言Dim nx As Integer '指定回数用宣言Dim koumoku '項目用宣言Range("A1").Select i_1 = ...
日記 Excel VBA メニュー作成
エクセルの上部に、メニュー形式を追加します。また、名前を付けて保存【Excelアドイン（*.xlam）】することで、マクロのみのファイルを作ることが出来るので、マクロをエクセルファイルに依存させる必要がありません。非常に便利なので、これは覚...
日記 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;