つらつら Excel VBA

私の備忘録です。

2014-01-21から1日間の記事一覧

サービスを起動するバッチファイル

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

セルの結合、セルの個数などの確認

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をかけて最初を取得すればOKFunction getFileName(file_path) As String Dim temp As String Dim tmp_array2 As Variant, tmp_array1 …

他ワークブックのシートを最後尾にコピー

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.Count…

ディレクトリ内のファイル検索(Dir)

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

DoEvents

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