対象範囲の一番下の行を選択。 Cells(65536, 1).End(xlUp).Select 今居るセル(例えば "B35" とする)から対象範囲の一番右までを選択。 Range(Range("B35"), Range("B35").End(xlToRight)).Select 対象範囲の一番下の行番号を取得。 Dim lin As Long lin = Ce…

Windows(数値).Visible = False Windows(ウィンドウ名).Visible = False ブック「sample.xls」ウィンドウを非表示にする。 Windows("sample.xls").Visible = False アクティブウィンドウを非表示にする。 Windows(1).Visible = False アプリケーションのウィ…

Midステートメントでは文字列の置き換えが出来る。 以下では "いう" を "イウ" に置き換えている。 Dim str As String str = "イウ" Mid("あいうえお", 2, 2) = str

以下の6つの関数がある。 Left LeftB Mid MidB Right RightB このうち、「Left」「Mid」「Right」は文字数単位で 「LeftB」「MidB」「RightB」はバイト数単位で処理を行う。 Left 左端から文字の切り出しを行う。 Left(文字列, 切り出し文字数) LeftB(文字列…

Application.WorksheetFunction.(Excel関数) 数値の切捨てをする場合は Dim num As Integer num = Application.WorksheetFunction.RoundDown( 123, 7 )

Private Sub Workbook_Open() Call MyMacro End Sub