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

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 とかでみんなに共有してみてください！

ではでは。

このデジタル時計は Excel Vba という Excel 上でプログラミングをして作成されています。

難しいそうに見えますが、二時間くらいで作れました！（デザインに時間がかかりましたが、こだわりさえしなければ30分で作り終えました）。

処理内容はExcelで現在時刻をデジタル数字フォントで永遠に表示してくれるプログラムです。

ダウンロードできる「Excel デジタル時計」の機能です。

機能といってもボタンが二つあるだけです。

これらのボタンは下記のように動作します。

時刻は一秒ごとに刻まれます。

初期値（はじめに表示されている時刻）は特に気にしなくてもOKです。

このシートには非表示行があります！

このシートには非表示行があります。

この行（33行~43行）はこのデジタル時計を動かすのに重要な役割を担っているので絶対に消さないください！！

さてでは「Excel デジタル時計」の作り方について説明します。

この時計は Excel Vba というプログラミングで作成していきます。

では順に説明します。

※ ここからはプログラミングの専門用語がでてきます！！

現在時刻をカウントする Excel Vba プログラムを作成する

現在時刻をカウントする処理は下記の順に作成していきます。

現在時刻を取得（hh:mm:ss形式）

まず 現在時刻を取得するのに「actWacth」プロシージャを定義します。

このプロシージャでは Format(Time, "hh:mm:ss") を変数 nowValue にセットする処理を実装しています。

Public Sub actWatch()
  nowValue = Format(Time, "hh:mm:ss")
  hour1 = Mid(nowValue, 1, 1) 
  hour2 = Mid(nowValue, 2, 1) 
  minitue1 = Mid(nowValue, 4, 1) 
  minitue2 = Mid(nowValue, 5, 1) 
  second1 = Mid(nowValue, 7, 1) 
  second2 = Mid(nowValue, 8, 1)
End Sub

取得した現在時刻（hh:mm:ss形式）を時間、分、秒で細かく分割

現在時刻が格納されている nowValue（hh:mm:ss形式）を時間、分、秒で細かく分割します（デジタル数字形式にするため）。

この際 Mid 関数という指定した文字を分割する関数を使用します。

Mid関数は開始文字と終了文字を指定することで文字を分割することが可能です。

たとえば 10:51:47 という値の4文字目から5文字目を抽出しようとすると Mid("10:51:47",4,5)と記述します。

すると Mid("10:51:47",4,5) = 「5」となるわけです。

つまり今回の場合はこのようになります。

（例）nowValue = "10:51:47"の場合

時間、分、秒をセルに書き込む

これは簡単です。

時間、分、秒の値を持つ変数（hour1,hour2,minitus1,minitu2,second1,second2）を Cells(行、列)に代入します。

※ PRINT_CELL_ROW、PRINT_CELL_COL は数字の定数です。好きな値にすれば好きなセルの位置に出力されます。

' セルに時間、分、秒を表示させる 
Cells(PRINT_CELL_ROW, PRINT_CELL_COL) = hour1 
Cells(PRINT_CELL_ROW, PRINT_CELL_COL + 1) = hour2 
Cells(PRINT_CELL_ROW, PRINT_CELL_COL + 2) = ":" 
Cells(PRINT_CELL_ROW, PRINT_CELL_COL + 3) = minitue1 
Cells(PRINT_CELL_ROW, PRINT_CELL_COL + 4) = minitue2 
Cells(PRINT_CELL_ROW, PRINT_CELL_COL + 5) = ":" 
Cells(PRINT_CELL_ROW, PRINT_CELL_COL + 6) = second1 
Cells(PRINT_CELL_ROW, PRINT_CELL_COL + 7) = second2

現在時刻を取得する処理を1秒ごとに呼び出す

つぎに現在時刻を取得する処理（「actWacth」プロシージャ）を一秒ごとに呼び出すようにします。

その際、Excel Vba の Application.OnTime という機能を用います。

Application.OnTime Now + timeValue("00:00:01"), "actWacth"

Application.OnTime は 指定した時刻に好きなプロシージャを呼び出すことができます。

つまり、Application.OnTime Now + timeValue("00:00:01"), "プロシージャ" とすることで

指定したプロシージャ（現在時刻を取得する「actWacth」）を1秒ごとに呼び出します。

あとはこれをずっーと実行するだけ。。。それだけです。

今回はずーっと実行する処理として while 文、for 文のようなループ処理ではなく再帰処理にします。

つまり 「actWacth」プロシージャの中に Application.OnTime Now + timeValue("00:00:01"), "actWacth" と書くだけで

ずーっと「actWacth」プロシージャが実行されるというわけです。

Application.OnTime Now を停止させる方法について

現在時刻を取得する「actWacth」を再帰処理で呼び出すと永遠に呼び出されてしまいます。

ですので、ここでは Excel シート上の特定のセルの値（Range(JUDGE_CELL)で指定する値）が TRUE の場合は動作し、FALSEの場合は停止させるよう条件式を追加します。

※ JUDGE_CELL は数字の定数です！値自体は何でもOKです！

 ' 一秒ごとに現在時刻を取得 
If Range(JUDGE_CELL) = True Then 
　　Application.OnTime Now + timeValue("00:00:01"), "actWacth" 
End If

現在時刻をカウントする Excel Vba プログラム（全体）

Const PRINT_CELL_COL As Integer = 43
Const PRINT_CELL_ROW As Integer = 33
Const JUDGE_CELL As String = "AO33"

Public Sub actWacth()

    Dim nowValue As String
    Dim hour1, hour2, minitue1, minitue2, second1, second2
    
    ' 現在時刻を取得
    nowValue = Format(Time, "hh:mm:ss")
    
    ' hh:mm:ss 形式を時間、分、秒に細かく分ける
    hour1 = Mid(nowValue, 1, 1)
    hour2 = Mid(nowValue, 2, 1)
    minitue1 = Mid(nowValue, 4, 1)
    minitue2 = Mid(nowValue, 5, 1)
    second1 = Mid(nowValue, 7, 1)
    second2 = Mid(nowValue, 8, 1)
    
    ' セルに時間、分、秒を表示させる
    Cells(PRINT_CELL_ROW, PRINT_CELL_COL) = hour1
    Cells(PRINT_CELL_ROW, PRINT_CELL_COL + 1) = hour2
    Cells(PRINT_CELL_ROW, PRINT_CELL_COL + 2) = ":"
    Cells(PRINT_CELL_ROW, PRINT_CELL_COL + 3) = minitue1
    Cells(PRINT_CELL_ROW, PRINT_CELL_COL + 4) = minitue2
    Cells(PRINT_CELL_ROW, PRINT_CELL_COL + 5) = ":"
    Cells(PRINT_CELL_ROW, PRINT_CELL_COL + 6) = second1
    Cells(PRINT_CELL_ROW, PRINT_CELL_COL + 7) = second2
    
    ' 一秒ごとに現在時刻を取得
    If Range(JUDGE_CELL) = True Then
    
        Application.OnTime Now + timeValue("00:00:01"), "actWacth"
    
    End If

End Sub

START、STOPボタン用の Excel Vba プログラムを作成する

そして次に START、STOPボタンです。

STARTは startWatch プロシージャで実装します。

Application.OnTime Now（指定したプロシージャを指定した時刻に呼び出す関数）を止めるように用意したセルの値（Range(JUDGE_CELL)で指定する値）を TRUE にし、

actWatch （現在時刻を取得する処理）を呼び出せばOKです。

STOPは Range(JUDGE_CELL) に FALSE を代入するだけです。

Const PRINT_CELL_COL As Integer = 43
Const PRINT_CELL_ROW As Integer = 33
Const JUDGE_CELL As String = "AO33"

Sub startWatch()

    Range(JUDGE_CELL) = True
    
    Call actWacth

End Sub

Sub stopWatch()

    Range(JUDGE_CELL) = False

End Sub

これで現在時刻の表示は完了です！

あとはデジタル数字形式に変換する処理だけです！

数字をデジタル数字形式に表示させる（条件付き書式を設定する）

ここから結構難しい話です。

これはやり方はいろいろあると思いますが、今回は条件付き書式を利用します。

0 ~ 9 の10種類数字があり、そのデジタル数字を思い浮かべてみてください。

そうするとある規則があることに気づきませんか？

たとえばデジタル数字を「上、下、真ん中、左上、左下、右上、右下、」と７つのブロックに区切ります。

すると、ブロック単位で数字ごとにデジタル表記に必要な箇所が決まっているんです。

たとえば、0ならば真ん中以外の6つのブロック、1ならば右上と右下だけの2ブロック、....

こんな感じでブロック単位でみていると数字毎に必要な箇所が固定化されています。

これを表にまとめたのが、右上の表の画像です。

これさえ理解できればあとはこのルールを条件付き書式に反映させればいいだけです。

つまり1の数字ならばセルの右上、右下の部分の色を変えればデジタル数字形式になります！

条件付き書式は設定箇所が多いため今回は設定のやりかただけを説明します。

※ 詳細な条件付き書式の設定はダウンロードした Excel デジタル時計ファイルをご確認ください！

Excel の「ホーム」→「条件付き書式」→「ルールの管理」を押下します。

下記画面が表示されますので、新規ルールをクリックします。

書式ルールの編集画面がでてくるので、一番下の「数式を使用して書式設定するセルを決定」を選択し

「=COUNFIT($AR$37,"*"&AT33&"*")>0」とします（これはあくまで一例です）。

たとえば「3」という数字をデジタル数字形式にする場合「右上、右下、上、下、真ん中」のセルの色を変えればOKということです。

またCOUNTIFは特定の数字が含まれている数をカウントですが、画像右下の表で定義した「値」列に数字が含まれていれば

その「値」列に対応する「位置」列がわかります！あとはそこを条件付き書式で色を変えればOKです！

※ COUNTIF 関数について詳しく知りたい方はこちらもどうぞ！

【Excel 関数】COUNTIF で特定の文字や数値をカウント！

2018.12.2

はじめに Excelで、特定の文字や数字がいくつあるか数えるとき、「COUNTIF」関数をよく使います。 この関数は、Excel 上で資料等まとめるときに大変便利な関数です。 この関数の使用方法について説明します。 COUNTIF 関数 COUNTIF 関数の基本的な使い方と、ちょっとしたテクニッ...

なにもデジタル数字形式にしないならすごく簡単なので、よければぜひつくってみてください！

つくるのがめんどくさいならばぜひダウンロードしてみてください！

どーもTakeです。

Excel でデータ管理を行っている際にそんな悩みがあると思います。

この記事では、Excel で複数の列の値をいろいろな条件を指定して並び替える方法を実際の画像を使ってわかりやすく説明します。

すごく便利な機能なのでぜひこの記事で覚えていただければと思います。

Excel で複数の列の値をいろいろな条件を指定して並び替える方法

まずはこんな表があるとします。

この表の列「果物」「個数」「値段」を並び替えようとします。

上の「データ」タブ→「並び替え」ボタンをクリックします。

すると下記のような「並び替え」ダイアログが表示されます。

追加する条件の数だけ「レベルの追加」を押下します。

すると条件の行が追加されます。

そして「列」のプルダウンを選択して条件を追加する列名を選択します。

そして「列」「並び替えのキー」「順序」を指定します。

下記ならば、果物 ← 昇順、個数 ← 大きい順、果物 ← 小さい順、

すると表がしていた条件通りに並び変わります。

注意点！

値が数字であるか、文字であるかです。

下記の順序という列が「昇順、降順」となっている場合、列が「数字」としてソートされますが、

「大きい順」「小さい順」となっている場合、列が「文字列」としてソートしているので注意が必要です。

最後に

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

この記事では Excel の「複数の列の値をいろいろな条件を指定して並び替える方法」について解説しました。

すごく簡単だと思うので、ぜひこの記事を参考に行ってみて下さい。

ではでは。