@echo off echo. echo ============================================================ echo サービスSQLServerを起動します。 echo. echo 本バッチファイルは管理者権限で実行して下さい。 echo =========================================================…

Dim c As Range Set c = Thisworkbook.Worksheet("Sheet1").Range("A1") If c.MergeCells Then MsgBox "結合されています。" If c.Areas.Count = 1 And c.Count = 1 Then MsgBox "選択セルは1つです。" If c.Interior.ColorIndex >= 0 Then "背景色が設定さ…

■Sheet1に追加 Option Explicit Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) Dim myCB As CommandBar Dim myCBCtrl As CommandBarControl On Error Resume Next CommandBars("User_Short_Menu").Delete On Error GoT…

'ファイルパス、ファイル名＋拡張子の状態からファイル名だけを取り出す処理。 '[\]でSplitをかけて最後を取得、[.]でSplitをかけて最初を取得すればOK Function getFileName(file_path) As String Dim temp As String Dim tmp_array2 As Variant, tmp_array…

Dim wb As Workbook, wsh As Worksheet Set wb = Workbooks(file_name) Set wsh = wb.Sheets(1) 'シート1枚目 '同じ名前のシートがあっても「シート名(2)」とかになってコピーされる。 wsh.Copy After:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Cou…

file_name = Dir(target_dir & "*.csv") Do While file_name <> "" file_name = Dir() '次のファイル Loop ※Dirはファイル名が返される。 ファイルが見つからない場合には空文字が返る。

DoEvents おまじない。 画面更新されなかったり処理停止したい時に書くおまじない。 深く考えない！