使用されているセル範囲を全て取得する方法

UsedRangeとAddressを組み合わせることで、使用中のセル全てを取得することも可能です。

    '使用されているセルアドレスを取得
    Dim sAddress As String
    sAddress = UsedRange.Address
    'Rangeとして取得する
    Dim rng As Range
    Set rng = Me.Range(sAddress)
    '最終行
    '★開始行に行数を足すと1セル下の値が返されるので-1しておくこと★
    Debug.Print (rng.Row + rng.Rows.Count - 1)

送料無料 日本製 pcd-1875 PCデスクラック (本体/幅75cmタイプ) 高さ180 奥行45パソコンデスク pcデスク デスク 書斎机 棚付き ラック付き ハイタイプ 壁面収納 壁面家具 本棚 ラック 収納 木製 おすすめ 白 収納 収納付き おしゃれ 北欧 モダン 大洋 works

PCD パソコンデスク ハイタイプ 一体型デスク 幅60cm PCD-1860 本棚 書棚 キャビネット 収納棚 パソコンラック ブックシェルフ ブックラック 壁面収納 壁面ラック ウォールシェルフ キッチンデスク 書斎 本棚 通販 書棚 通信販売 大洋

エクセルVBAで最終行を見つける方法

Excel VBA マクロの最終行を取得

Range.End メソッドで最終行を取得可能

定数名	値	説明
xlUp	-4162	上端
xlDown	-4121	下端
xlToLeft	-4159	左端
xlToRight	-4161	右端
End.EntireRow		指定すると終端の行を取得できます。

Dim r As Range
‘セル「A1」の下端の行を取得
Set r = Range("A1").End(xlDown).EntireRow
r.Select

途中の行に空白セルがある場合は上記の方法で最終行取得ができません。

この場合、空白セルの上のセルが最終行と判定されます。

こういうときはシートの最終行から上端のセルを取得します。

‘エクセルにおける最終行を取得（空白も含めて）
Dim intLast As Integer
intLast  = Rows.Count
‘取得したい列番号を設定(A列⇒1,B列⇒2,C列⇒3,･･･E列⇒5･･･)
Dim intCol As Integer
intCol  = 5
‘最終行を探す(値が入っているセル)
Dim r As Range
Set r = Cells(intLast , intCol ).End(xlUp) 
r.Select

UsedRange で取得した範囲から最終行を取得

Dim r As Range
'使用している範囲を取得
Set r = ActiveSheet.UsedRange 

UsedRangeを使用する際の注意点としては、値が入っているセルだけでなく【書式設定】されているセルも対象となります。

【送料無料】デル Dell ノートパソコン Vostro 15 3000 3561 NI05Y-7WL 15.6型/Windows 10/Celeron /メモリ 4GB/HDD 500GB /DVDスーパーマルチ/ブラック 【新品】

期間限定SALE！【11/12 (月) までの特別価格】Dell Inspiron 13 5000 2-in-1 ノートパソコンプレミアム・IRカメラ・フルHDタッチパネル(256GB SSD搭載)

フォルダ内の全ファイルを取得する方法(サブフォルダも含めて取得)

' フルパスを格納するリスト
Public lstFullPath As Collection

' 呼出し：ルートパスを指定
Public Sub GetAllFilePath()
    ' 初期化
    Set lstFullPath = New Collection
    ' ルートパスを指定(最後の\マークは不要)
    Call GetSubDir("c:\root\src")
End Sub

' サブフォルダを含めてファイルのフルパスを全取得
Sub GetSubDir(Path As String)
    Dim buf As String, f As Object
    buf = Dir(Path & "\*.*")
    Do While buf <> ""
	' フルパスを格納
	Dim sCurFullPath As String
            sCurFullPath = Path & "\" & buf
            lstFullPath.Add(sCurFullPath )
            ‘次ファイルを検索
            buf = Dir()
    Loop
    ‘ サブフォルダへ移動
    With CreateObject("Scripting.FileSystemObject")
        For Each f In .GetFolder(Path).SubFolders
            Call GetSubDir(f.Path)
            DoEvents
        Next f
    End With
End Sub

【Microsoft Office2010】【Win10】TOSHIBA B551 /第二世代 Core i5/メモリ4GB/HDD250GB/DVDドライブ/15.6インチ/Wifi/中古ノートパソコン

富士通 15.6型 ノートパソコンFMV LIFEBOOK AH77/B1 プレミアムホワイト（Office Home＆Business Premium プラス Office 365） FMVA77B1W

富士通 15.6型 ノートパソコンFMV LIFEBOOK AH77/B1 シャイニーブラック（Office Home＆Business Premium プラス Office 365） FMVA77B1B

任意フォルダ内の全てのエクセルに対して同じ処理をしたい場合

' ========================================================
'@ 機能：全てのブック、シートに対して同じ処理をしたい場合
'@ 日付：2014.01.20
'@ 作成：D.O Revolutions エンターテイメントカレッジ
' ========================================================
Sub ExeOperationTemplate()
    On Error GoTo ERR001
    '-----------------------------------------------------
    '変数宣言
    '-----------------------------------------------------
    Dim wsSheet As Worksheet
    Dim wbCurrent As Workbook
    Dim DIR_PATH As String
    Dim fl_name As String
    '-----------------------------------------------------
    '固定値
    '-----------------------------------------------------
    Const S_TARGET_SHEET = "10桁を6桁変換"
    Const S_PATH_CELL = "C6"
    '-----------------------------------------------------
    'エクセルの保存パスを取得
    '-----------------------------------------------------
    ThisWorkbook.Activate
    ThisWorkbook.Worksheets(S_TARGET_SHEET).Activate
    DIR_PATH = ThisWorkbook.ActiveSheet.Range(S_PATH_CELL).Value
    '-----------------------------------------------------
    'アラート非表示
    '-----------------------------------------------------
    Application.DisplayAlerts = False
    '-----------------------------------------------------
    'エクセルファイルを検索
    '(無ければエラーメッセージ)
    '-----------------------------------------------------
    fl_name = Dir(DIR_PATH & "\*.xls*")
    If fl_name = "" Then
        MsgBox "Excelファイルがありません。"
        Exit Sub
    End If
    '-----------------------------------------------------
    'フォルダの全エクセルファイルを取得ループ
    '-----------------------------------------------------
    Do
        ' 現在のワークブックを取得
        Set wbCurrent = Workbooks.Open(Filename:=DIR_PATH & "\" & fl_name, UpdateLinks:=False)
        '-----------------------------------------------------
        '現在ワークブックの全シートを取得ループ
        '-----------------------------------------------------
        For Each wsSheet In wbCurrent.Worksheets
            ' カレントシートをアクティブ化
            wsSheet.Activate
            Debug.Print wsSheet.Name & "の処理中･･･"
            '★=================================================
            '★実行処理はここに記述
            '★=================================================
            '★例)シートの｛A1｝セルに"ABC"と入力したい場合★
            'wsSheet.Range("A1").Value = "ABC"
            '★=================================================
            ' 各シートの先頭セルを選択状態にする
            wsSheet.Range("A1").Select
        Next
        ' 各ブックの先頭シートを選択
        wbCurrent.Worksheets(1).Activate
        '保存して閉じる
        wbCurrent.Save
        wbCurrent.Close (True)
        '-----------------------------------------------------
        '次のエクセルを探す
        '(無ければ処理終了)
        '-----------------------------------------------------
        fl_name = Dir
    Loop Until fl_name = ""
    ' 正常終了時
    '-----------------------------------------------------
    'アラート表示
    '-----------------------------------------------------
    Application.DisplayAlerts = True
    MsgBox "正常終了"
    Exit Sub
ERR001:
    ' 異常発生時
    MsgBox "エラー番号:" & Err.Number & vbCrLf & "エラーソース:" & Err.Source & vbCrLf & _
           "エラーの種類:" & Err.Description, vbExclamation
    '-----------------------------------------------------
    'アラート表示
    '-----------------------------------------------------
    Application.DisplayAlerts = True
End Sub

UフォレストPC 第8世代CPUG搭載 大容量SSD ハイスペックゲーミングモデル【CPU Core i7 8700K/メモリ16GB/HDD2TB/SSD 1TB/GTX1060/Blu-Ray/OS Windows10pro】 (ブラック 新モデル[Windows10Pro])

Grafu S156 Pro 1.8kg超薄軽量大画面ノートパソコン 高速Intel静音CPU 搭載 メモリ6GB Windows10 15.6インチ大画面ノートPC 6GB RAM/64G ROMハイスペック性能 Google Chrome/Adobe PDF Readerインストール済 大容量バッテリー採用、8時間連続使用可能 充電式無線マウス付き 無線LAN内蔵 (EMMC 64G, シルバー)

UフォレストPC ウルトラハイスペックゲーミングデスクトップパソコン【CPU Core i7 8700K/メモリ16GB/SSD480GB/HDD3TB/Blu-Rayマルチドライブ搭載/GTX1080Ti/OS Windows10pro】

エクセルのVBAマクロでセルをFind検索する際に下から上に逆方向で見つける方法

検索方向パラメータ：SearchDirectionにxlPreviousを設定します。

Sub 下から検索する()
　Dim rng As Range
　Set rng = Range("A:A").Find(What:="検索文字", SearchDirection:=xlPrevious)
　If rng Is Nothing Then
　　MsgBox "存在しません"
　Else
　　MsgBox rng.Address(False, False)
　End If
End Sub

UフォレストPC ウルトラハイスペックゲーミングデスクトップパソコン【CPU Core i7 8700K/メモリ16GB/SSD480GB/HDD3TB/Blu-Rayマルチドライブ搭載/GTX1080Ti/OS Windows10pro】

【6GBメモリ/15.6インチ大画面】初期設定不要 1.5kg狭額縁ベゼルレス 薄型軽量高性能ノートパソコン Office搭載 高速Intel N3450静音CPU メモリ6GB 6時間長時間駆動 無線LAN内蔵 6G Windows10ノートPC 無線マウス付き (HDD容量(64G), シルバー)

UフォレストPC　第8世代 Core i7搭載ゲーミングデスクトップパソコン24インチフルセットモデル【CPU Core i7 8700K/メモリ8GB/SSD240GB/HDD1TB/DVDマルチドライブ搭載/GTX1060/OS Windows10pro】 (ブラック[Windows10フルセットモデル)

エクセルVBAの参照設定を動的に変更する方法

‘ 参照設定追加
Sub AddReferences()
On Error Resume Next
    Dim Ref
    With ActiveWorkbook.VBProject
                Call .References.AddFromFile("C:\work\common1.xlam")
                Call .References.AddFromFile("C:\work\common2.xlam")
    End With
End Sub

‘ 参照設定削除
Sub RemoveReferences()
On Error Resume Next
    Dim Ref
    With ActiveWorkbook.VBProject
        For Each Ref In ActiveWorkbook.VBProject.References
	‘ common1.xlamを参照していたら削除（チェックを外す）
            If ((InStr(Ref.FullPath, "common1.xlam") > 0 )) Then
                Call .References.Remove(Ref)
                GoTo C_FOR
            End If
	‘ common2.xlamを参照していたら削除（チェックを外す）
            If ((InStr(Ref.FullPath, "common2.xlam") > 0 )) Then
                Call .References.Remove(Ref)
                GoTo C_FOR
            End If
C_FOR:
        Next Ref
    End With
End Sub

ASUS ノートブック N552VX ウォームグレー ( WIN10 64Bit / インテル Core i7-6700HQ / 15.6インチ / 16G / SSD 256G ) N552VX-FI135T

ASUS X751LDV-T4371H Windows8.1 64Bit Core i7-5500U 8GB 1TB DVDスーパーマルチ 無線LAN IEEE802.11b/g/n NVIDIA GeForce 820Mグラフィックス webカメラ SDカードリーダー USB3.0 HDMI 17.3型1920x1080FullHD液晶搭載 ハイスペックノートパソコン

Access(テーブル、クエリ)をCSVファイルとして出力する方法

VBAでCSVファイルを作成して出力する方法

Sub Exp_CSV()
Dim dbs As DAO.Database
Dim rst As Dim rst As DAO.Recordset
Dim lngFileNum As Long
Dim strOutPut As String
lngFileNum = FreeFile()
Open "C:\work\expdata.csv" For Output As #lngFileNum
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("M_DATA")
With rst
strOutPut = ""
Do Until .EOF
strOutPut = strOutPut & !コード & "," & !品名 & "," & _
!備考 & "," & !数量 & "," & !仕入先 & vbCrLf
.MoveNext
Loop
.Close
End With
Print #lngFileNum, strOutPut
Close #lngFileNum
End Sub

【重要】「DoCmd.TransferText」を使えば上記処理が１行で完了する！！！

DoCmd.TransferText acExportDelim, , "M_DATA", "C:\work\expdata.csv", True

【クアドラモニター 22インチ液晶x4台セット】 DELL デル 【第三世代Core i7-3770 8GBメモリ SSD256GB スペックカスタマイズ】 Windows10 Windows7 【USB3.0 光学ドライブ 正規版Office付き 新品キーボード&マウス標準搭載】 中古パソコン 中古デスクトップPCFX向け

中古ノートパソコン ノートパソコン【3年保証】【送料無料】【セットアップ済】中古 パソコン ノートPC Windows10 Office付き Core i5 Office付 メモリ4G HDD250GB DVDROM 15.6インチ【法人】【あす楽対応】【ハイスペックノート】