連想配列でルックアップな方法　背景色を抽出

Quick Edit Pencil 


Sub aaa()

'***** 部門.マスター *****

    Dim 部門辞書 As Object
    Set 部門辞書 = CreateObject("Scripting.Dictionary")
    
    For Each セル In range("B2:G2") 'range("部門識別子")
        部門辞書.Add セル.Value, セル.Interior.Color
    Next
    
    Debug.Print 部門識別カラー("HO")

End Sub

このブログの人気の投稿

旧エッジの閲覧履歴を検索 MS Edge

イメージ
旧エッジに関する記事です。 エッジから閲覧履歴の検索はできない。 エッジの閲覧履歴の保存場所を検索することも無理。 現時点での唯一の方法は、 アドレスバーに覚えているキーワードやドメインを入力すると閲覧履歴からもリストが表示されます。 訪れたサイトのドメインを覚えておく驚異的な記憶力が必要です。 追記：Edgeの閲覧 履歴を表示するソフトがありました。試してないですが検索も可能な感じです。 BrowsingHistoryView - View browsing history of your Web browsers 履歴を検索できないことを知らずにエッジを使っていた時期の履歴の検索方法は現時点では※上記しかありません。 ※私のスキルと検索力ではですが、バリバリのウインドウズ使いの方はプログラムを書いてエッジの閲覧履歴を検索できるかもしれません。ただし、エッジの閲覧履歴をエクスポートする方法は検討していません。 英語の情報も漁ってみましたがやはり無理な感じです。閲覧履歴を検索する方はEdgeを使わない方が幸せですね。 解決１、閲覧履歴を検索する唯一の方法はカークさんの答えにありました。 検索するリンクの特定のキーワードを思い出すことができれば、アドレスバーに同じキーワードを入力してください。 キーワードを入力すると、探している関連リンクを選択すると、オプションのリストが表示されます。 これが機能するためには、ヒストリファイルがクリアされていれば、ヒストリリストは元の状態になります。 解決２、マイクロソフトアカウントを使っている場合にBingの検索履歴が残っている：ロブ あなたのMicrosoftアカウントにサインインすると、検索履歴がクラウドに保存されます。プライバシーと「クリックして検索」に移動します。 私はあなたがBingのあなたの歴史をチェックすると、特定のウェブサイトや検索日を検索することもできます。 これが少し助けてくれることを願っています。 マイクロソフトアカウント＞プライバシー>検索  How can I search my browsing history in MS Edge? - Microsoft Community How do I ...
Read more »

PowerShellのGetDetailsOf メソッドでプロパティの詳細情報のID番号と項目名を列挙します

※PowerShell初心者 ※下の方に画像が持つExif情報を列挙する方法もあります。 例えば、あるJPG画像（C:\IMG_0001.JPG）のカメラ機器のモデル名とExifの撮影日時に関する情報が欲しいとします。 1. PowerShellでは、Get-ItemPropertやGet-ChildItemを使いFileInfoプロパティ取ることができます。 $path = "C:\IMG_0001.JPG" Get-ItemProperty $path | Select-Object * | Format-List $path = "C:\IMG_0001.JPG" Get-ChildItem $path | Format-List -property * 結果: しかし、Get-ItemPropert等を使い取ることができるFileInfoプロパティには必要な情報がありません。 そこで、 GetDetailsOf を使い、ファイルプロパティの詳細情報から必要な情報を取得します。 PSPath : Microsoft.PowerShell.Core\FileSystem::C:\IMG_0001.JPG PSParentPath : Microsoft.PowerShell.Core\FileSystem::C:\ PSChildName : IMG_0001.JPG PSDrive : C PSProvider : Microsoft.PowerShell.Core\FileSystem Mode : -a---- VersionInfo : File: C:\IMG_0001.JPG InternalName: OriginalFilename: FileVersion: FileDescription: Product: ...
Read more »

AppleScript 改行 コード 置換

改行を置換 returnキーはLF、ASCII character (10)と\nはLF、ASCII character (13)と\rはCR、controlキー + returnキーはラインブレーク   (* テスト文字列を変数にセット *) set str to "1LINE(LF)" & ( ASCII character (10)) & "2LINE(CR)" & ( ASCII character (13)) & "3LINE(LineBrake) 3LINE_2" log " ★生 str: " & str & " ★ " (* ★生 str: 1LINE(LF) 2LINE(CR) 3LINE(LineBrake) 3LINE_2 ★ *)   (*LF 置換 *) set LFstr to do shell script "echo " & quoted form of str & " | perl -pe 's/\\n//g'" log " ★ LF 置換 str: " & LFstr & " ★ " (* ★ LF 置換 str: 1LINE(LF)2LINE(CR) 3LINE(LineBrake) 3LINE_2 ★ *)   (*CR 置換 *) set CRstr to do shell script "echo " & quoted form of str & " | perl -pe 's/\\r//g'" log " ★ CR 置換 str: " & CRstr & " ★ " (* ★ CR 置換 str: 1LINE(LF) 2LINE(CR)3LINE(LineBrake) 3LINE_2 ★ *)   (* ラインブレーク置換 *) set LAINBLAKEstr ...
Read more »

ああ　しまじろう　やられる [misc]

イメージ
昨日までピンピンしていた しまじろうの起き上がりこぼし が無惨な姿に。 その横たわる姿はまさしくUFOの仕業 小学生の頃、テレビで見て背筋を凍らせた キャトルミューティレーションそのものだ！ 宇宙人か...米軍の新兵器実験か...はたまた野獣の仕業か キャトルミューティレーションの謎 ◆キャトルミューティレーションの特徴（抜粋） * 切り口は非常にシャープであり、たいていはきれいな円を描いている。
Read more »