エントリーの編集
![loading...](https://b.st-hatena.com/bdefb8944296a0957e54cebcfefc25c4dcff9f5f/images/v4/public/common/loading@2x.gif)
エントリーの編集は全ユーザーに共通の機能です。
必ずガイドラインを一読の上ご利用ください。
記事へのコメント0件
- 注目コメント
- 新着コメント
このエントリーにコメントしてみましょう。
注目コメント算出アルゴリズムの一部にLINEヤフー株式会社の「建設的コメント順位付けモデルAPI」を使用しています
![アプリのスクリーンショット](https://b.st-hatena.com/bdefb8944296a0957e54cebcfefc25c4dcff9f5f/images/v4/public/entry/app-screenshot.png)
- バナー広告なし
- ミュート機能あり
- ダークモード搭載
関連記事
エクセルのシートの数を数えたいのですが…
“1回1回開いて数える”をマクロにしてみました。新規のブックにこのマクロを貼り付けて、対象ファイル... “1回1回開いて数える”をマクロにしてみました。新規のブックにこのマクロを貼り付けて、対象ファイルのあるフォルダーに格納してマクロを実行してみてください。時間はかかると思います。 Sub SheetsCount() Dim i As Long Dim MySheet As Worksheet Set MySheet = ThisWorkbook.Worksheets("Sheet1") With Application.FileSearch .LookIn = ThisWorkbook.Path .SearchSubFolders = True .Filename = "*.xls" If .Execute > 0 Then MySheet.Cells(1, 1).Value = "ファイル名" MySheet.Cells(1, 2).Value = "シート数" For i = 1 To