日記 拡張子を含まないファイル名の取得方法
拡張子を含まないファイル名の取得方法'ファイル名取得Dim trueName As StringtrueName = ActiveWorkbook.NameDim kcsi As Longkcsi = InStrRev(trueName, ...
アプリで便利！
日記 日記 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 = ...
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:= は、省略できるけど、完全一致、部分一致は、設定した方...
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...