batica memo

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

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

Zabbixのグラフに表示される閾値について

トリガーに設定した閾値がグラフに表示される。
が、閾値が複数になると、グラフに表示されない。

Wordのドキュメント検査でカスタムXMLデータが削除されない

事象

  1. Wordにてドキュメント検査を行う。
  2. 「カスタムXMLデータ」が見つかる。
  3. カスタムXMLデータの[すべて削除]をクリックし、[再検査]をクリックする。
  4. 再度「カスタムXMLデータ」が見つかる。

調査結果

目次を使用していると、カスタムXMLデータを検知する模様。
「Wordをドキュメント検査後、カスタムXMLデータが削除できない」Microsoft(参照:2020-11-17)

目次や引用等を追加したドキュメントでもカスタム XML 扱いになるようです。

「Word 2013 ドキュメント検査 カスタムXMLデータについて」Microsoft(参照:2020-11-17)

手元でも試してみましたが、確かに目次を追加すると「カスタムXMLデータが見つかりました」と表示されますね。
また「文献目録」を追加した場合も同じように表示されました。
「目次」と「文献目録」は別の機能ですが、同じ参考資料タブにある機能なので、参考資料タブにあるその他の「図表番号の挿入」や「脚注の挿入」などでも試してみたところ、やはり表示されました。
参考資料タブにある機能を使用すると表示されるのかもしれないですね。

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)