batica memo

ちょっとしたコマンドや関数など、1つの記事にするほどでもないけど、調べたこととしてメモしておきたいものを書いていきます。
記事にする時間が無い時にメモとして書くこともあります。
後で記事にしたら消します。

所有者限定モードのためこのボードには投稿できません ボードとは?

【Excel】ファイルパスワードの解除

方法

  1. [ファイル]タブをクリックする
  2. [名前を付けて保存] > [このPC] > [その他のオプション]をクリックする
  3. [ツール(L)▼] > [全般オプション(G)]をクリックする
  4. パスワードを削除し、[OK]をクリックする
  5. [保存]をクリックする

参考資料

「Excelファイルのパスワード設定と解除方法」Office Hack,2020-07-15(参照:2021-01-13)

【Excel】異なるセルの日付と時間を結合する

方法

日付 時間
2020/12/24 12:00:00

1.日付と時刻を結合した内容を表示したいセルに以下関数を入力

=$日付のセル+$時間のセル

★例
=B1+B2
  1. シリアル値が出力されるため、セルの書式設定から表示したい書式に変更する

シリアル値

日付 時間 結合後
2020/12/24 12:00:00 44189.5

書式設定

日付 時間 結合後
2020/12/24 12:00:00 2020/12/24 12:00:00

参考資料

「【Excel】2つのセルの値(日付,時間)を結合して(日付日時)を表示する方法について教え下さい。」Yahoo!知恵袋,2013-07-18(参照:2020-12-24)

Excelのスタイルが削除できない

状況

以下のExcelVBAマクロを実行したが、削除できないセルがある。

Sub delete_name_and_style()

    On Error Resume Next

'名前定義を全削除(名前を関数その他に有効活用している場合はここは削除)

    Dim N As Name
    For Each N In ActiveWorkbook.Names
        N.Delete
    Next

'書式(スタイル)定義を全削除

    Dim M()

    J = ActiveWorkbook.Styles.Count
    ReDim M(J)
    For i = 1 To J
        M(i) = ActiveWorkbook.Styles(i).Name
    Next
    For i = 1 To J
        If InStr("Hyperlink,Normal,Followed Hyperlink", _
                    M(i)) = 0 Then
            ActiveWorkbook.Styles(M(i)).Delete
        End If
    Next

End Sub

試したこと

「消せない、スタイル(Excelで削除できないスタイルが発生した場合)」regreh,Qiita,2019-12-04(参照:2020-10-16)

【Excel】シート名を抽出する

方法

1.Excelを「ファイル名を付けて保存」する
2.シート名を表示したいセルに以下の関数を入力する

=RIGHT(CELL("filename",A1),LEN(CELL("filename",A1))-FIND("]",CELL("filename",A1)))

参考資料

「セルにシート名を表示する」Cando Concepts corp(参照:2020-10-16)