これはこのブログが100記事記念ということですごいものを作ってみたい！と思って作っていました。

（ 作り終わった後にいろいろと調べてみると、Excel ピアノって世の中に出回ってるとしてすこしがっかりしましたが、、、）

興味があればぜひどうぞ！

Excel ピアノの作り方は下記二つです。

これらを順に説明します。

ピアノ用のExcelシートを準備

まずExcel シートを下記の画像のように準備します。

これは実際にこのページからダウンロードできる Excel を見たほうが速いと思うので、説明は簡略化します。

しかし注意点はこのシートには非表示列（上記画像の赤枠の箇所）がある点です。

Excel Vba で ピアノを実装する

今回 Excel ピアノを実装する上で下記のような3つのプロシージャ（関数）を用意しました。

これはいまは意味がわからなくても大丈夫です。

(　´_ゝ｀)ﾌｰﾝって感じでさらーっと流してもらえればと思います。

selectCol プロシージャ・・・いま読み込んでいる列を表示させる処理

いま読み込んでいる列を表示させる処理というのは

下記のように列が順番に選択されてくる処理を意味します。

これは3列から順に列を選択していくだけのすごく簡単な処理です。

たとえば Columns("C:C").Select とすると C列が選択されます。

それをC,D,E .... と順にずらしていくということです。

myBeepプロシージャ・・・ BeepAPI で音を出す

今回ピアノの「ドレミファソラシド」を鳴らすために BeepAPI というAPI を用いりました。

このAPIではパソコンのBeep音（パソコンのピーとかブーってなる音）を鳴らすことができます。

BeepAPIを用いるには、はじめに下記のようなおまじないを書く必要があります（意味はわからなくても動きます）。

Declare Function BeepAPI Lib "kernel32.dll" Alias "Beep" _
(ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

注意点ですが、これをつかうときは「標準プロシージャ」でプログラムを実装する必要があります。

そして実際にBeepAPI から「ドレミファソラシド」を出すには周波数と鳴らす時間間隔（今回は200と設定）の設定が必要です。

なおBeepAPI で「ドレミ」を使う上で下記の周波数表を使いました。

※ 周波数についてはドレミファ音階のHz対応表を参考にしました。

たとえば「ド」を鳴らそうとします。

その場合は BeepAPI(262, 200)のように呼び出してやればOKってことです！

pianoプロシージャ・・・Excel ピアノのメインの処理

piano プロシージャとは前章で説明しました、下記処理をまとめて実行する処理（いわばメイン処理）です。

まとめただけなので、特に説明することもないので割愛します。。

Excel ピアノのソースコード

プログラミングのソースコードは下記になります。

Declare Function BeepAPI Lib "kernel32.dll" Alias "Beep" _
(ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Const TIME_INTERVAL = 200
Const CELL_START_COL = 4

Const CELL_CHECK_ROW = 3
Const CELL_VOICE_ROW = 4
Const CELL_START_ROW = 5

Sub piano()
    
    Dim i
    Dim voice, voiceRow
    
    i = CELL_START_COL
    
    While Cells(CELL_CHECK_ROW, i) < 10 And Cells(CELL_CHECK_ROW, i) <> ""
        
        Call selectCol(i)

        voiceRow = Cells(CELL_VOICE_ROW, i).Value + CELL_VOICE_ROW
        
        If voiceRow <> 0 And voiceRow <> "" Then
            voice = Cells(voiceRow, 1).Value
            Call myBeep(voice)
        Else
            Sleep TIME_INTERVAL
        End If
        i = i + 1
        
    Wend
    
End Sub

Private Sub selectCol(i)


    buf = Cells(1, i).Address(True, False)
    buf = Left(buf, InStr(buf, "$") - 1)
    Columns(buf & ":" & buf).Select
    
End Sub

Private Sub myBeep(voice)

    Call BeepAPI(voice, TIME_INTERVAL)

End Sub

そんな悩みがあると思います。

Excel ファイルを CSV 形式に変換する方法はすごく簡単で

Excel ファイルを保存するときに「ファイルの種類」に「CSV」を選択すればOKです。

その後、「名前をつけて保存」をクリックします。

保存する前に、下記のようなメッセージが表示されますが、「はい（Y)」をクリックします。

すると下記のように「CSV形式のファイル」として保存されることが確認できます。

Excel ファイルをCSV ファイルに保存する上での注意点

Excel から CSV ファイルに保存する上の注意点です。

これらは実際に検証した結果をもとにまとめたものです。

Excel のデザイン性とは、表や枠線の色やフォントサイズなどです。

これらは CSV ファイルで保存する上ではやむを終えない事象となります。

また画像も試しの保存しようとしてみましたが、無理でした。

また CSV ファイルなのでカンマ区切りの保存しか無理でした

（ CSV はそもそもカンマ区切りもファイル保存形式なので特に気にする必要もないとは思いますが、、、）。

ですので、Excel ファイルを CSV形式 で保存する場合は上記注意点を踏まえて充分に注意する必要があります。

そんな悩みがあるのではないかと思います。

この記事では「Excel で表の縦横を入れ替える２つの方法」について簡単に解説します。

Excel には縦横を並び替える方法は二つあります。

この記事では上記①②のやり方について画像を使ってわかりやすく説明します！

よければぜひご覧いただければと思います。

こちらがExcel の縦横を入れ替える一番簡単な方法です。

まず縦横を入れ替えたい表を選択して右クリック→「コピー」をクリックします。

そして適当なセルを右クリック→「行/列を入れ替え（T)」（画像の赤枠の箇所）を選択します。

すると表が縦横入れ替わって貼り付けされることが確認できます。

Excel の数式バー（下記の赤枠）に「=TRANPOSE(C4:F9)」と入力します（C4:F9は縦横入れ替える前の表の範囲を示します）。

そして、「Ctrl」 + 「Shift」+ 「Enter」と入力します。

すると表のように縦横が入れ替わった表が出力されます。

TRANSPOSE 関数とは？

TRANSPOSE 関数とは「配列の縦方向と横方向のセルの範囲の変換を行う」関数です。

TRANSPOSE(セル範囲)とすることで縦横が入れ替わった値が取得できます。

しかし取得できる値は配列（値がいっぱい入っている入れ物と思ってください）となるため、

下記のようにセルの範囲を指定する必要があったということです。

私はある日、お客さんから「100ファイル近くのExcelファイルのファイル名を手作業で変更してくれ～」っていう依頼がありました。

具体的には「ファイル名_v1.2.xlsx」→「ファイル名_v1.3.xlsx」にしてくれ～～っていう内容です。

もちろん、ファイル数が少ないなら手でやったほうが速いと思いますが、

毎回、100ファイル近くを手作業でやるのにどれだけ時間がかかるか・・

しかし仕事をしていれば、少なからずそんなめんどくさい作業をすることがあると思います。

そこでこの度はExcel をつかってボタン一つでファイル名を一括置換するツールを作りました！

このツールは Excel Vba というプログラミングで作成されています。

この記事では「Excelでできる複数のファイル名を一括置換するツール」の使い方と作り方をご紹介します！

この「Excelでできる複数のファイル名を一括置換するツール」では以下の用に使います。

「検索ボタン」を押下してリネームしたいファイル一覧を取得

まず「検索ボタン」を押下します。

すると下記のようなダイアログが表示されるので、ファイル名を変換したいファイルが配架されているフォルダを選択します。

このときファイル名が表示されませんが、問題ありません。

これにてB列とＣ列にファイル名とフォルダ名がそれぞれ出力されます。

ファイル名、フォルダ名を手入力しても問題ないですが、入力し間違えないようにする必要があります。

ファイル名（置換後）列にファイル名を入力

ファイル名（置換後）列にファイル名を入力します。

このツールではファイル名（置換前）→ファイル名（置換後）のようにファイルがリネーム（名前が変更）されます。

ファイル名（置換後）列に入力後、チェック列（E列）の値がOKになっていれば問題なしです。

なおチェック列がOK以外の値の場合はファイル名置換処理が実行されません。

チェック列がＯK以外のケース

チェック列では入力した値に誤りがあるかどうかをチェックします。

もし上記項目を満たした場合、下記画面のようにエラーメッセージが表示されるようになっています。

※ なおこのエラーメッセージはH列（非表示列）に入力していますので、H列は消さないようにお願いします！

「一括置換」ボタンでファイル名が変更

最後に「一括置換」ボタンを押下します。

すると下記のような処理完了メッセージが表示されます。

フォルダを確認しに行くとファイル名が一括置換されていることが確認できます！

以上がこのツールの使い方です。

続いてはこのツールの使い方を説明します。

このコードを Excel の開発タブ→ Visual Basic で表示されるエディタに貼り付ければOKです。

※ 開発タブがない場合は下記ページを参考にしてください。

３分でできる！Excel VBA の開発を行うために必要な事前準備

2018.11.14

いまから 「vba を始めたいけれど、Excel で何をどうやってすればいいかわからない」という悩みはありませんか？ 本ページでは vba をどうやってはじめるか３分以内に終わる方法を解説します。 v...

'=================================================================================
' 複数ファイル名を一括置換マクロ
'=================================================================================

Const SEARCH_WORD = "\*.*"

Const CELL_PRINT_COL = 2
Const CELL_PRINT_ROW = 2
Const CELL_SEARCH_WORD = "B3"


' ファイル一覧取得
Sub getFileList()

    Application.ScreenUpdating = False

    Dim folderName
    Dim lastRow
    
    folderName = getFolderName()
    fileList = Dir(folderName & SEARCH_WORD)
    
    ' 最終行取得
    If Cells(CELL_PRINT_ROW + 1, CELL_PRINT_COL) = "" Then
        lastRow = CELL_PRINT_ROW + 1
    Else
        lastRow = Cells(CELL_PRINT_ROW, CELL_PRINT_COL).End(xlDown).Row
    End If
    
    Do While fileList <> ""
                
        Cells(lastRow, CELL_PRINT_COL) = folderName
        Cells(lastRow, CELL_PRINT_COL + 1) = fileList
        lastRow = lastRow + 1
        fileList = Dir()
        
    Loop
    
    Application.ScreenUpdating = True
    
End Sub


' ファイル名を一括置換
Sub replaceFile()

    Application.ScreenUpdating = False

    Dim folderName
    Dim beforeFile
    Dim afterFile
    Dim i
    
    On Error Resume Next
    i = CELL_PRINT_ROW + 1
    
    While Cells(i, CELL_PRINT_COL) <> ""
    
        folderName = Cells(i, CELL_PRINT_COL)
        beforeFile = folderName & "\" & Cells(i, CELL_PRINT_COL + 1)
        afterFile = folderName & "\" & Cells(i, CELL_PRINT_COL + 2)
        
        If check(beforeFile, afterFile) And Cells(i, CELL_PRINT_COL + 3) = "OK" Then
            Name beforeFile As afterFile
            Cells(i, CELL_PRINT_COL + 4) = "OK"
        Else
            Cells(i, CELL_PRINT_COL + 4) = "NG"
        End If
    
        i = i + 1
    
    Wend
    
    Application.ScreenUpdating = True
    
    MsgBox "ファイル名を一括置換しました！"
    
End Sub

' 初期化
Sub reset()

    Application.ScreenUpdating = False
    
    Range(Cells(CELL_PRINT_ROW + 1, CELL_PRINT_COL), Cells(Rows.Count, CELL_PRINT_COL + 2)).ClearContents
    Range(Cells(CELL_PRINT_ROW + 1, CELL_PRINT_COL + 4), Cells(Rows.Count, CELL_PRINT_COL + 4)).ClearContents
     
    Application.ScreenUpdating = True

End Sub


' 入力精査
Private Function check(ByVal beforeFile, ByVal afterFile) As Boolean

    If Dir(beforeFile) <> "" And Dir(afterFile) = "" Then
        check = True
    Else
        check = False
    End If
    
End Function


' ダイアログでフォルダ名取得
Private Function getFolderName()

    Dim folderPath As Variant
    
    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show = 0 Then
            End
        End If
        folderPath = .SelectedItems(1)
    End With
    
    getFolderName = folderPath
  
End Function

今回のツールでの「（リネームする）ファイル一覧を取得」と「ファイル名を一括置換」する方法について説明します。

※ reset（）については割愛します。

Excel で（リネームする）ファイル一覧を取得・・・getFileList()

ファイル一覧を取得する方法は下記になります。

フォルダ名取得用のダイアログ画面は Application.FileDialog(msoFileDialogFolderPicker)で取得します。

戻り値として選択したフォルダ名（フルパス）で取得できます。

その取得したフォルダ名から Dir 関数でファイル一覧を取得し、シートに出力するだけです。

' ファイル一覧取得
Sub getFileList()

    Application.ScreenUpdating = False

    Dim folderName
    Dim lastRow
    
    folderName = getFolderName()
    fileList = Dir(folderName & SEARCH_WORD)
    
    ' 最終行取得
    If Cells(CELL_PRINT_ROW + 1, CELL_PRINT_COL) = "" Then
        lastRow = CELL_PRINT_ROW + 1
    Else
        lastRow = Cells(CELL_PRINT_ROW, CELL_PRINT_COL).End(xlDown).Row
    End If
    
    Do While fileList <> ""
                
        Cells(lastRow, CELL_PRINT_COL) = folderName
        Cells(lastRow, CELL_PRINT_COL + 1) = fileList
        lastRow = lastRow + 1
        fileList = Dir()
        
    Loop
    
    Application.ScreenUpdating = True
    
End Sub

' ダイアログでフォルダ名取得
Private Function getFolderName()

    Dim folderPath As Variant
    
    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show = 0 Then
            End
        End If
        folderPath = .SelectedItems(1)
    End With
    
    getFolderName = folderPath
  
End Function

Excel でファイル名を一括置換・・・replaceFile()

シートに記述されている置換前後のファイル名を取得し、それらを Name 関数で取得します。

このリネーム（ファイル名を変更する）処理は一行ずつ実行されます。

このファイル名変更処理をシートの表の（B列）に値が実行されるまで実行します。

' ファイル名を一括置換
Sub replaceFile()

    Application.ScreenUpdating = False

    Dim folderName
    Dim beforeFile
    Dim afterFile
    Dim i
    
    On Error Resume Next
    i = CELL_PRINT_ROW + 1
    
    While Cells(i, CELL_PRINT_COL) <> ""
    
        folderName = Cells(i, CELL_PRINT_COL)
        beforeFile = folderName & "\" & Cells(i, CELL_PRINT_COL + 1)
        afterFile = folderName & "\" & Cells(i, CELL_PRINT_COL + 2)
        
        If check(beforeFile, afterFile) And Cells(i, CELL_PRINT_COL + 3) = "OK" Then
            Name beforeFile As afterFile
            Cells(i, CELL_PRINT_COL + 4) = "OK"
        Else
            Cells(i, CELL_PRINT_COL + 4) = "NG"
        End If
    
        i = i + 1
    
    Wend
    
    Application.ScreenUpdating = True
    
    MsgBox "ファイル名を一括置換しました！"
    
End Sub

' 入力精査
Private Function check(ByVal beforeFile, ByVal afterFile) As Boolean

    If Dir(beforeFile) <> "" And Dir(afterFile) = "" Then
        check = True
    Else
        check = False
    End If
    
End Function

また上記処理では入力したファイル名が正しいかどうかを精査する check 関数も実行しております。

この check関数は下記条件すべてを満たす場合に True、それ以外は False を返します。

このツールさえあればどれだけファイル数が多くてもファイル名の一括置換がラクラクできます！

そんなことしたら日が暮れるわ！！！

そう思いながら Excel ファイルをひとつひとつ探した。

そんなつらい思いをされた方もいるかもしれません。

また Excel ファイルというのは、外部ツール（たとえばサクラエディタの grep 機能など）で検索できません。

そんな状況で大量の Excel ファイル から文字検索するの～～～

ですが、そんな悩みも今日で解消です。

この度、サブフォルダ含むすべてのフォルダの Excel を文字検索するマクロを作成しました！！

このページではサブフォルダ含むすべてのフォルダの Excel を文字検索するマクロの使い方と作成方法についてご紹介します。

もしよければ参考にしてみてください。

※ いつものようにつくったのも共有しときますので、よければどうぞ。

※ 2022/02/07 マクロに一部バグがあったので、修正しました。

まず検索ワードを B3 セルになんでもいいのでいれます。

この時入力し忘れていれば、後の検索処理できないようになっています。

そして検索ボタンを押下します。

するとフォルダダイアログが表示されます。

ここでは検索先のフォルダを選択してOKをクリックします。

検索処理が実行され、検索結果が表示されます。

ここで「サブフォルダ含むすべてのフォルダの Excel を文字検索するマクロ」の仕様について書いておきます。

「サブフォルダ含むすべてのフォルダの Excel を文字検索するマクロ」の作り方です。

今回は Excel VBA をつかって処理を実現しています。

処理の中身はこんな感じになっています。

多いように見えますが、これを処理に起こせば「サブフォルダ含むすべてのフォルダの Excel を文字検索するマクロ」は実現できます。

定数と変数を定義

まずはこれらを VBA 処理上でよく使う定数と変数を定義します。

出力先シート「search」の初期化

つぎに出力先シート「search」を初期化する処理です。

これは出力する初期の列、行（つまり A6セル）から Excel の最終セルの範囲で値を削除します。

' シートの初期化
Private Sub reset()

Application.ScreenUpdating = False

Range(Cells(CELL_PRINT_ROW, CELL_PRINT_COL), Cells(Rows.Count, Columns.Count)).ClearContents

Application.ScreenUpdating = True

End Sub

フォルダダイアログを表示してフォルダパスを取得

つぎにフォルダダイアログを表示させてフォルダパスを取得します。

フォルダダイアログっていうのはこれです↓

Application.FileDialog(msoFileDialogFolderPicker)を用いることで

フォルダダイアログで選択しその結果がフォルダパスが取得できます。

またキャンセルが押下された場合、そのまま処理が終了するように条件分岐しています。

Private Function getFolderName()

    Dim folderPath As Variant
    
    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show = 0 Then
            End
        End If
        folderPath = .SelectedItems(1)
    End With
    
    getFolderName = folderPath
  
End Function

取得したフォルダパスをもとに Excel ファイル一覧を取得

前章「フォルダダイアログを表示してフォルダパスを取得」で取得したフォルダパスしたパスをもとに

Excel ファイル一覧を取得します。

' 再帰的にファイルを検索
Private Sub searchFile(ByVal Path As String, ByRef myBook As Workbook)

    On Error Resume Next

    Dim buf As String, f As Object
    buf = Dir(Path & SEARCH_WORD)
    
    searchWord = Range(CELL_SEARCH_WORD)
        
    Do While buf <> ""
        
        Call grepExcel(searchWord, myBook, Path, buf)
        buf = Dir()
        
    Loop
    
    With CreateObject("Scripting.FileSystemObject")
        For Each f In .GetFolder(Path).SubFolders
            Call searchFile(f.Path, myBook)
        Next f
    End With

End Sub

フォルダパスの値が Path という変数に格納されていますが、これを Dir 関数に渡すことで

フォルダのフルパスが取得できます。

myBookとは今回作成するマクロ自体の情報を格納しています。

これをすることで検索結果出力先のシートをわかりやすくしています。

（検索結果を書き込む際に myBook を呼び出せば、間違えずに書き込むことができます）。

またサブフォルダを含めて計算するために再帰処理にしています。

つまり 上記の searchFile() が処理が完了した後にそのフォルダ内にサブフォルダがあれば、

もう一回 searchFile() を呼び出しています。

これをすることでフォルダ内にサブフォルダがなくなるまでずーっと処理が続くようになっています。

取得した Excel ファイルを開き、Cells.Find をつかって文字を検索

ここでは 前章「取得したフォルダパスをもとに Excel ファイル一覧を取得」で取得した

Excel ファイルをopen で開き、その開いたファイルのシート一つ一つに対して

Cells.Find をつかって文字検索を実施します。

この際に、文字検索結果が複数ある場合も考慮し、

Cells.FindNextをつかって次の検索文字がなくなるまでループ処理をします。

' Excel ファイル内の文字検索
Private Sub grepExcel(ByVal searchWord, ByRef myBook As Workbook, ByVal Path As String, ByVal buf As String)

    Dim filePath
    Dim wb As Workbook
    Dim readSheet As Worksheet
    Dim Rng As Range
    Dim findResult

    fullPath = Path & "\" & buf

    Application.DisplayAlerts = False
    Application.ScreenUpdating = False

    Set wb = Workbooks.Open(Filename:=fullPath, UpdateLinks:=0, ReadOnly:=True, IgnoreReadOnlyRecommended:=True, Password:="")
    
    If Err.Number = 1004 Then
        
        Err.Clear
    
    Else
    
        For Each mysheet In wb.Worksheets
            
            Set findResult = mysheet.Cells.Find(searchWord, LookAt:=xlPart)
            Dim findCell As Range
            Set findCell = findResult
            
            If Not (findCell Is Nothing) And Not (findResult Is Nothing) Then
            
                Do
                    If Not (findCell Is Nothing) And Not (findResult Is Nothing) Then
                        Call writeSheet(myBook, Path, buf, mysheet, findCell)
                        Set findCell = mysheet.Cells.FindNext(findCell)
                        If findCell Is Nothing Then
                            Exit For
                        End If
                    Else
                        Exit For
                    End If
                Loop While findCell.Row <> findResult.Row
                    
            End If
            
        Next

    End If

    wb.Close savechanges:=False
    
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True

End Sub

パスワードつきExcel ファイルの無視する

ここでの処理で「If Err.Number = 1004 Then ～ 」というあまり見慣れないものがあると思います。

これはパスワードつきの Excel を開くときのエラーを無視するようにしています。

エラー1004コードを受け取った場合、Err.Clearとすることでエラーコードを削除します。

検索結果をシートに出力

最後に検索した結果が存在する場合、出力先のシート「search」に出力します。

このとき検索結果のセル位置が存在しない場合、出力しないように条件式を追加しています。

' 検索結果を出力
Private Sub writeSheet(ByRef myBook As Workbook, _
                        ByVal Path As String, _
                        ByVal buf As String, _
                        ByRef mysheet, _
                        ByRef findCell As Range)

    Dim outputSheet
    Dim outputCell
    
    Set outputSheet = myBook.Worksheets(SHEET_OUTPUT)
    
    outputCell = Split(Columns(findCell.Column).Address, "$")(2) & findCell.Column
    
    If outputCell <> "" Then
        
        outputSheet.Cells(nowRow, CELL_PRINT_COL) = buf
        outputSheet.Cells(nowRow, CELL_PRINT_COL + 1) = Path
        outputSheet.Cells(nowRow, CELL_PRINT_COL + 2) = mysheet.Name
        outputSheet.Cells(nowRow, CELL_PRINT_COL + 3) = outputCell
        nowRow = nowRow + 1
    
    End If

End Sub

「サブフォルダ含むすべてのフォルダの Excel を文字検索するマクロ」の全ソース

最後にソースコード全部を紹介します。

また前章までの説明では「searchMacro()」がないと思いますが、これが今回のメイン処理です。

'=================================================================================
' フォルダ（サブフォルダ含む）内の Excel ブックの文字を検索するマクロ
'=================================================================================

Const SEARCH_WORD = "\*.xls*"
Const SHEET_OUTPUT = "search"
Const CELL_PRINT_COL = 1
Const CELL_PRINT_ROW = 6
Const CELL_SEARCH_WORD = "B3"

Dim nowRow As Long


' メイン処理
Sub searchMacro()

    Dim buf As String
    Dim Path As String
    Dim myBook As Workbook
    nowRow = CELL_PRINT_ROW
    Set myBook = ThisWorkbook
    
    If Range(CELL_SEARCH_WORD) <> "" Then
            
        Path = getFolderName()
        
        Call reset
        
        Call searchFile(Path, myBook)
        
        If nowRow = CELL_PRINT_ROW Then
            
            MsgBox "検索結果：「" & Range(CELL_SEARCH_WORD) & "」が含まれるファイルはありませんでした。"
            
        Else
        
            MsgBox "検索結果：「" & Range(CELL_SEARCH_WORD) & "」が含まれるファイルが" & nowRow - CELL_PRINT_ROW & "件ヒットしました！"
                
        End If
        
    
    Else
    
        MsgBox "検索ワードを入力してください"
    
    End If
    
End Sub

' シートの初期化
Private Sub reset()
    
    Application.ScreenUpdating = False
    
    Range(Cells(CELL_PRINT_ROW, CELL_PRINT_COL), Cells(Rows.Count, Columns.Count)).ClearContents
     
    Application.ScreenUpdating = True
    
End Sub


' 再帰的にファイルを検索
Private Sub searchFile(ByVal Path As String, ByRef myBook As Workbook)

    On Error Resume Next

    Dim buf As String, f As Object
    buf = Dir(Path & SEARCH_WORD)
    
    searchWord = Range(CELL_SEARCH_WORD)
        
    Do While buf <> ""
        
        Call grepExcel(searchWord, myBook, Path, buf)
        buf = Dir()
        
    Loop
    
    With CreateObject("Scripting.FileSystemObject")
        For Each f In .GetFolder(Path).SubFolders
            Call searchFile(f.Path, myBook)
        Next f
    End With

End Sub


' ダイアログでフォルダ名取得
Private Function getFolderName()

    Dim folderPath As Variant
    
    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show = 0 Then
            End
        End If
        folderPath = .SelectedItems(1)
    End With
    
    getFolderName = folderPath
  
End Function


' Excel ファイル内の文字検索
Private Sub grepExcel(ByVal searchWord, ByRef myBook As Workbook, ByVal Path As String, ByVal buf As String)

    Dim filePath
    Dim wb As Workbook
    Dim readSheet As Worksheet
    Dim Rng As Range
    Dim findResult

    fullPath = Path & "\" & buf

    Application.DisplayAlerts = False
    Application.ScreenUpdating = False

    Set wb = Workbooks.Open(Filename:=fullPath, UpdateLinks:=0, ReadOnly:=True, IgnoreReadOnlyRecommended:=True, Password:="")
    
    If Err.Number = 1004 Then
        
        Err.Clear
    
    Else
    
        For Each mysheet In wb.Worksheets
            
            Set findResult = mysheet.Cells.Find(searchWord, LookAt:=xlPart)
            Dim findCell As Range
            Set findCell = findResult
            
            If Not (findCell Is Nothing) And Not (findResult Is Nothing) Then
            
                Do
                    If Not (findCell Is Nothing) And Not (findResult Is Nothing) Then
                        Call writeSheet(myBook, Path, buf, mysheet, findCell)
                        Set findCell = mysheet.Cells.FindNext(findCell)
                        If findCell Is Nothing Then
                            Exit For
                        End If
                    Else
                        Exit For
                    End If
                Loop While findCell.Row <> findResult.Row
                    
            End If
            
        Next

    End If

    wb.Close savechanges:=False
    
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True

End Sub


' 検索結果を出力
Private Sub writeSheet(ByRef myBook As Workbook, _
                        ByVal Path As String, _
                        ByVal buf As String, _
                        ByRef mysheet, _
                        ByRef findCell As Range)

    Dim outputSheet
    Dim outputCell
    
    Set outputSheet = myBook.Worksheets(SHEET_OUTPUT)
    
    outputCell = Split(Columns(findCell.Column).Address, "$")(2) & findCell.Row
    
    If outputCell <> "" Then
        
        outputSheet.Cells(nowRow, CELL_PRINT_COL) = buf
        outputSheet.Cells(nowRow, CELL_PRINT_COL + 1) = Path
        outputSheet.Cells(nowRow, CELL_PRINT_COL + 2) = mysheet.Name
        outputSheet.Cells(nowRow, CELL_PRINT_COL + 3) = outputCell
        nowRow = nowRow + 1
    
    End If

End Sub

これで大量のフォルダの中から膨大な Excel ブックを検索することは日々はなくなると思います。

そんな悩みがあるのではないでしょうか。

世界標準時間（GMT/UTC）と日本時間（JST）間では９時間の時差がありますのでそれを計算してあげればOKです。

これを Excel で計算してあげればOKですが、じゃあ実際どうすんの！？

ってなると思います。

9時間という時間は Excel 上で数字の「9」と示すことはできません。

なので「TIME関数」で表現する必要があります。

もしこれがよくわからないという人はこの記事を最後まで読んでいただければ理解できると思います。

この記事では、Excel で世界標準時間（GMT/UTC）⇔ 日本時間（JST）の変換方法について簡単に説明します。

まず現在の日時を NOW関数で取得します。

Excel で NOW 関数の場合、下記のように「=NOW()」と入力するだけです。

これで「YYYY/M/D H:M」で現在の日時を取得でき、これで日本時間（JTC）を取得できます。

※ 現在の日付、時刻を取得する方法は NOW()以外にも TIME関数もあります。興味があればこちらの記事でも解説しています！

【Excel】今日の日付、曜日を取得する方法（関数・ショートカットもご紹介！）

2021.5.30

Excel で今日の日付と曜日を取得したい！！ そんな悩みがあると思います。 Excel で今日の日付を取得する方法は「TODAY関数」か「NOW関数」で簡単に取得することができます。 その「TODAY関数」で取得したもとに「TEXT 関数を使うこと」で曜日に変換することができます。 言葉だけで...

それではここから世界標準時間（GMT/UTC）方法について記述します。

これは NOW関数で取得した日本時間（JTC）に９時間マイナスすればOKです。

しかし日付フォーマットの値を直接数字の9をマイナスをしても時間がマイナスにはなりません。

時間をマイナスする場合、TIME(9,0,0)を用いる必要があります。

TIME関数とは指定した時刻を取得できる Excelの関数です。

TIME関数では「TIME(時間,分,秒)」と指定すれば、指定した時刻の値を取得できます。

例えば = TIME(9,0,0)とすれば 9:00:00 と9時間を取得できます。

これにより日本時間（JST）から世界標準時間（GMT/UTC）するには TIME(9,0,0)を取得できるということです。

世界標準時間（GMT/UTC）から日本時間（JST）へ変換する方法する方法については

前章の「日本時間（JST）から世界標準時間（GMT/UTC）へ変換する方法」を読めばだいたいわかると思います。

同様に世界標準時間（GMT/UTC）は日本時間（JST）をTIME(9,0,0)だけプラスすればOKです。

これにより日本時間（JST）+ TIME(9,0,0) とすることで 世界標準時間（GMT/UTC）が算出できます。

結局は9時間プラスするかマイナスするか、そして９時間という値は TIME(9,0,0)で示す必要があるということです。

そんな悩みがあると思います。

言葉だけではあまりよくわからない！

という人はぜひこの記事をご覧いただければと思います。

この記事では、Excel で「今日の日付と曜日を取得する方法」について画像をつかってわかりやすく解説します。

※ なおこれをもとに作成した Excel カレンダーもありますので、よければこちらもどうぞ！

【2021年】Excel(エクセル)で年間カレンダーの作り方（vba なし）

2018.12.7

エクセルで簡単にできる年間カレンダーの作成方法をご紹介します。 ご紹介するカレンダーは、どの年度でも新しい休日にも対応可能です。 なお今回は vba は使用しておりません。...

次に NOW 関数の場合、下記のように「=NOW()」と入力するだけです。

これで「YYYY/M/D H:M」で現在の日時を取得できます。

今日の日付を取得するショートカットについて

今日の日付を取得するショートカットは「Ctrl」+ 「;」です。

なお「Ctrl」+ 「:」で現在時刻が取得できます。

日付フォーマットを変更したい場合

TODAY関数、NOW関数で日付フォーマットを取得したい場合、Excel のセルの書式設定から変更できます。

たとえば「2021/5/30」→ 「2021年5月30日」に変換しようとします。

この場合、マウスの右クリックを押下し「セルの書式設定」を選択します。

すると「セルの書式設定」画面が出てくるので「表示形式」を選択し、分類から日付を選択し「2012年3月14日」というところをクリックし OKボタンをクリックします。

※ 設定したい日付フォーマットを選択してください。

すると日付の書式が変更されていることが確認できます。

まず下記のように現在の日付を TODAY関数で取得した値があるとして

その値をもとに「=TEXT(現在の日付,"aaa")」と入力すればすぐに日付が取得できます。

結果はこのように 2021/5/30 は日曜日なので「日」と出力されます。

私は現在の日付を取得するショートカットを覚えることをおススメします。

仕事で Excel を使っているとかなりの頻度で今日の日付を入力することが多いです。

なのでぜひ覚えてみてください！

また現在時刻をデジタル時計のように取得する Excel についても作成しておりますので、興味があればどうぞ！

エクセルでできるデジタル時計の作り方（現在時刻を HH:MM:SS 表記！）

2021.5.26

Excel で デジタル時計を作りました！！！ このデジタル時計は Excel Vba という Excel 上でプログラミングをして作成されています。 難しいそうに見えますが、二時間くらいで作れました！（デザインに時間がかかりましたが、こだわりさえしなければ30分で作り終えました）。 処理内容は...

Excel ブックを閉じて閉じても出てくるこのメッセージ。

メッセージを読みとこんな感じ。

「Excel ブックに外部リンクがあるのかな？？？？」って感じです。

外部リンクとは外部の Excel ファイルの値を参照している箇所があるを指しています。

例えば下記画面のようにセルの数式に「'C:\tmp\[aaa.xlsx]Sheet1'!$B$2」と長ったらしい数式が表示されています。

これはセルの「'C:\tmp\[aaa.xlsx]Sheet1'」のB2セルの位置を参照していること（つまり外部リンク）を意味しています。

では外部リンクがあるのはわかったとして

外部リンクのセルってそもそもどこあんの！？

という疑問があるのではないでしょうか？

やり方さえ知ってしまえば10秒で見つかります。

まず「データ」タブ→「リンクの編集」をクリックします。

すると下記画面が表示され、ここで外部からのリンクが確認できます。

下記画面ですと「aaa.xlsx」というところを参照していることが確認できます。

次に「リンク元」項目にファイルのパス（C:\tmp）が書いてあると思います。

これをExcelの検索機能で検索すればOKです。

「Ctrl」+「F」とキーボードから入力し、検索する文字列に先程のパス「C:\tmp」を入力して「次を検索する」ボタンを押下します。

はい！これで10秒で探すことができました！

この記事がいいと思った方はぜひ SNS で共有いただければ嬉しいです。

Excel ブックを閉じて閉じても出てくるこのメッセージ。

メッセージを読んでもわからん。

そんな時期がわたしにもありました。

このメッセージはセルの関数内の参照先がでその関数自体のセル自体になっていているためループが発生しています。

つまりこのエラーメッセージを消すにはこの循環が発生している箇所を直したらいいんですが、

そもそもどこあんの！？

ってなるのではないでしょうか？

この記事では循環参照を3秒で見つける方法について伝授いたします！

Excel の循環参照を3秒で探す方法

超簡単です。

Excel の「データ」タブ → 「エラーチェック」→「循環参照（C)」を選択します。

はい、これで終わりです。

これで循環参照を探すことができます。

修正した後はこんな感じに「循環参照（C)」がグレーアウトになります。

注意点は循環参照が複数あるときです。

循環参照が複数ある場合、「循環参照」という表示場所も１つしか表示されないことがありますので、

一つ一つ消していくしかないです。

Excel の循環参照の直し方

循環参照の直し方を説明します。

循環参照は Excel の関数を使うときに関数のセル自体を指しています。

なので対処方法は下記になります。

「関数そのものを削除する」は全くおススメしません。

なので「関数を正しいものに修正する」方法を説明します。

例えば下記画像のように、SUM関数（C2セルの位置）があるとします。

それが SUM(C2:E2) だと SUM関数を記述するセル自身も示しているため、SUM(D2:E2)のように自分自身のセルを示さないようにすればOKです。

最後に

いかがでしたでしょうか？

この記事では以下のことを解説しました！

これでこの「循環参照」のエラーメッセージに惑わされることもないと思います！

この記事がいいなと思えば SNS とかでみんなに共有してみてください！

ではでは。

そんな悩みがあると思います。

このページでは、セル内で文字列を改行させる方法を紹介します！

結論から言うと改行される方法は２通りあります。

まずは「りんご」と「たべもの」の間にカーソルを合わせて

「alt 」を押しながら「Enter」をキーボードから入力します。

すると「りんご」と「たべもの」の間で改行されます。

そう思われた人いませんか？

これだけではまだ設定が足りません。

「セル内の文字を折り返しして表示する」設定が必要です。

セルを右クリックし「セルの書式設定」します。

そして「折り返して全体を表示する」にチェックをいれて「OK」ボタンを押下します。

これにて改行コードをいれた文字が入力されます。

以上が Excel でセル内の文字列を改行させる方法です。