ホーム
Office
- Excel
- Access
VBA
- Excel VBA
- Access VBA
Adobe
- PhotoShop
- Illustrator
Myスニペット
- Excel VBA スニペット
- ExcelVBA コード

データの最終行を取得

2019.07.07

データの最終行を取得

'最終行を取得する
cnt = Cells(Rows.Count, 1).End(xlUp).Row

MitoNote

関連記事

ブックが開かれているか確認

Sub Sample() Dim fName As String fName = "test.xlsx" If IsOpenBook(fName) Then '処理 End If ...

ブックを開く

'指定したブックを開く(ドライブ名・・・拡張子) Workbooks.Open Filename:="C:\・・・\test.xlsx"

ブックを保存

'上書き保存 Workbooks("Dummy.xlsx").Close SaveChanges:=True '保存せずに保存 Workbooks("Dummy.xlsx").Close SaveChanges:=False

処理を待たせる

'1秒間処理を中断する Application.Wait Now + TimeValue("00:00:1")

ファイルオブジェクト生成

Dim fso As Object Set fso = CreateObject("Scripting.FileSystemObject")

画面描画の停止

Application.ScreenUpdating = False Application.ScreenUpdating = True

ファイル選択ダイアログボックスの表示

ブックを開く

コメント

コメントをどうぞコメントをキャンセル

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

コメント ※

名前 ※

メール ※

サイト

次回のコメントで使用するためブラウザーに自分の名前、メールアドレス、サイトを保存する。

Δ

カテゴリー

Access VBA
Excel VBA
PhotoShop

Myスニペット

Excel VBA スニペット
Excel VBA関数
ExcelVBA コード

最近の投稿

配列
画像の解像度
VBEの行番号を表示(Office 64ビット)
VBEの行番号を表示(Office 32ビット)
エラーのトラップ

アーカイブ

2019年9月
2019年7月

© 2019 MitoNote.

メニュー
- ホーム
- Office
  - Excel
  - Access
- VBA
  - Excel VBA
  - Access VBA
- Adobe
  - PhotoShop
  - Illustrator
- Myスニペット
  - Excel VBA スニペット
  - ExcelVBA コード
MitoNote
検索

タイトルとURLをコピーしました