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

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

このブログの人気の投稿

Windows 10で、Explorerのナビゲーション ウィンドウの表示/非表示を、キーボードショートカットで切り替える方法

AutoHotkeyを使いキーボードショートカットを割り当てます。AutoHotkeyについては最後に説明。 AutoHotkeyをインストールします。 メモ帳で次のコードをコピペして保存します。 任意の名前.ahk とりあえずデスクトップに保存しダブルクリックして実行します。 /* Author: Date: Contact: */ #NoTrayIcon #Persistent #NoEnv #SingleInstance, Force #IfWinActive ahk_class CabinetWClass #z:: Send !v{n}{enter} エクスプローラーをアクティブにして　Winキー + z でナビゲーション ウィンドウの表示／非表示を切り替えられます。 ウインドウズエクスプローラーにはナビゲーション ウィンドウの表示/非表示を切り替えるショートカットは提供されていないため、キーボードから操作するならば次のようにキーを組み合わせて実行するしかありません。 エクスプローラー＞Alt>v>n>Enter このキーの組み合わせをAutoHotkeyを使いExplorerがアクティブな時にWin+zに割り当てます。（リマップする）。このスクリプト（マクロ）が上記のコードです。 リマップ - AutoHotkey Wiki ちなみにエクスプローラー標準のショートカットでは Alt+p でプレビューパネル Alt+Shift+p で詳細パネルの表示／非表示を表示できます。 AutoHotkeyとは ユーティリティソフトで、ユーザーがマクロ言語を記述して実行するとこで様々な機能を拡張することができるスクリプトエンジンです。AutoHotkey本体を実行してもヘルプしか出てきません。 AutoHotkey 　ダウンロード AutoHotkey - Wikipedia 　日本語 windows 7 - Keyboard shortcut to hide/show Explorer navigation - Super User
Read more »

AutoHotkey+powershell タスクバーをバーを自動的に隠すショートカット

タスクバーの表示と非表示.ahk #Persistent ; タスクバーの非表示化 TaskBarHide = 1 return !2:: ; タスクバーの非表示化 if TaskBarHide = { WinHide,ahk_class Shell_TrayWnd TaskBarHide = 1 } else { WinShow,ahk_class Shell_TrayWnd TaskBarHide = } return Windowsでタスクバーを消す - Liner Note on Hatena WinHide - Syntax & Usage | AutoHotkey タスクバーを自動で隠す設定(コンパネ表示).ahk #Persistent #NoEnv #SingleInstance, Force psScript = ( Get-ControlPanelItem -CanonicalName """Microsoft.Taskbar""" | Show-ControlPanelItem ) !2:: Run PowerShell.exe -Command %psScript% [PS1] Powershell で「タスクバーを自動的に隠す」を設定する | オールトの雲 タスクバーを自動で隠す(レジストリ値).ahk #Persistent psScript = ( $regp = """HKCU:\Software\Microsoft\Windows\CurrentVersion\Explorer\StuckRects3"""; $regv = (get-item $regp).getvalue("""Settings"""); if(($regv[8] -band 0x01) -eq 0x00){$regv[8] = $regv[8] -bor 0x01}else{$regv[8] = $regv[8] -band 0xFE}; set-itemproperty $regp -...
Read more »

AppleScriptの結果を、Safariで表示するサンプルスクリプト

AppleScriptのダイアログでは表示しきれない情報をSafariに表示するサンプルスクリプト -- 結果の表示はSfafariを利用します。 仮想ドキュメント参照方法  -- 存在しないファイルを参照すると、Safariは「ページを開けませんでした」を返す。 -- このキュメントをJavascript（DOM）で書き換えます。 実在ドキュメント参照方法 -- HTMLドキュメントを、一時ファイルとして毎回新規作成します。 -- このキュメントをSafariで参照し、Javascript（DOM）で書き換えます。 -- 新規作成されたHTMLドキュメントはスクリプト終了時に削除されます。 ファインダーでファイルを選択し、スクリプトを実行します。 複数のファイルを選択した場合は、タブで開く。  -- 設定項目 set whichDialog to 0 -- 結果表示用 HTML ドキュメント　 0 ：仮想　 1 ：実在 -- 以上設定   tell application "Finder" set theFiles to selection if theFiles = {} then display dialog "Finder 上で何もファイルが選択されていません " return end if end tell   (* 結果表示用 HTML の設定 *) tell application "Finder"   (* テンプレート *) set plainHtml to "<!DOCTYPE html><html lang=\"ja\"><head><meta charset=\"UTF-8\" /><title>ファイル情報: ファイル名 </title></head><body></body></html>"   (* 結果 HTML ドキュメントの参照パスの定義 *) set p to POSIX path of (( path to me )'s folder ...
Read more »

memo: ショートカットファイルを直接削除する

ショートカットファイルを直接削除する C:\Users\%USERNAME%\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup （一部カタカナ表示あり） C:\ProgramData\Microsoft\Windows\Start Menu\Programs\StartUp （一部カタカナ表示あり） レジストリから削除する　regedit コンピューター\HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run コンピューター\HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run コンピューター\HKEY_LOCAL_MACHINE\SOFTWARE\WOW6432Node\Microsoft\Windows\CurrentVersion\Run グループポリシー 「コンピューターの構成」→「Windowsの設定」 ＞light＜ ＞dark＜ ＞night-bule＜ ＞vibrant-ink＜ ＞wed＜
Read more »

カルチャーラジオ 文学の世界　中国古典『易経』から学ぶ帝王学　易経研究家…竹村亞希子

イメージ
1 4 月 4 日 木曜   午後8時30分 ～   午後9時00分 「中国古典『易経』から学ぶ帝王学」（1）＜全13回＞ 【易経とは 変化の書 陰と陽 兆しを観る 時中と時流 元号の出典から】 易経研究家…竹村亞希子 今回から、古代以降読まれ続けている中国の古典「易経」から古代の知恵を学びます。初回は「易経とは」。占いの書として知られている易経ですが、占いに頼らなくても自分自身で出処進退を判断できる、とも書かれています。易経は「変化の書」ともいわれ、よく読みこむことで四季の変化などを通じて人生に起きる逆境をいかに乗り越えるか、また変化の兆しを見据えることができる能力などが身につくと言われています。 2 4 月 11 日 木曜   午後8時30分 ～   午後9時00分 「中国古典『易経』から学ぶ帝王学」（2） 【龍が教える帝王学1 確乎（こ）不抜の志を打ち立てる～潜龍の時代】 易経研究家…竹村亞希子 易経は龍の成長の話から始まります。第一段階を「潜龍（せんりゅう）」といい、力を蓄える大切な期間だと言われています。自然に例えると「冬」の時代です。この時期は焦って事を起こそうとしたり、世に出ようと前のめりになってはいけないと言われています。今回は、潜龍の時にどのような心持ちでいることが大切か学びます。また「大正」の元号の由来について、関連する「地沢臨（ちたくりん）」についても解説します。 3 4 月 18 日 木曜   午後8時30分 ～   午後9時00分 「中国古典『易経』から学ぶ帝王学」（3） 【龍が教える帝王学2 大人との出会い 基と型を作る～見龍の時代】 易経研究家…竹村亞希子 龍は冬の時代「潜龍」の時を経て「見龍」へと成長します。見龍とは、大人（たいじん）の行動に見習う龍のことです。この時期は「基と型」を作る時。乾為天に「見龍田に在り、大人を見るに利ろし」と書かれているように、徹底的に大人を学び、基礎を固める時期だと言われています。潜っていた時期から世に出始めたときどのように過ごしたら良いのかを学びます。 4 4 月 25 日 木曜   午後8時30分 ～...
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 »

書字方向　横書方向変換スクリプト　左書きから右書きへ（コピペ用途）

左横書きを右横書きへ簡易変換します．（コピペ用途） 変換処理はウェブブラウザだけで完了．ネットワーク通信が発生しないので安心．注，複数行の場合は一行になりそう．また，句読点（符号），顔文字の正確な変換は１００％無理っぽ． 変換する文字列（横左方向→） テスト 変換した文字列（←横右方向） 書字方向　横書方向変換スクリプト　HTMLソース JavaScriptコード 変換する値（横左方向→） <form name="form1"> <textarea cols="50" name="textarea1" rows="5" value="1">テスト</textarea> </form> <input onclick="clickBtn1()" type="button" value="変換" /> <input onclick="clickBtn2()" type="button" value="クリア" /> <p>変換した値（←横右方向）</p> <p id="rtl" style="background-color: lightgrey; box-sizing: border-box; color: darkslategrey; line-height: 1.6; overflow: auto; padding: 1rem; text-align: right;"></p> <script> function clickBtn1(){ // 値を取得 const ta1 = document.form1.textarea1.value; const reversed = [...ta1].reduceRight((p, c) => p + c);// 配列に変換し右から左へたたみ込む。 document.getElementById(...
Read more »

簡単　らじるらじるの聴き逃し番組、NHKラジオのストリーミングを保存・ダウンロードする方法　2019

イメージ
パソコン初心者でも簡単に保存・ダウンロードできる方法を紹介 ウェブブラウザと１つの無料ソフトだけでダウンロードが可能 パソコンはWindowsでもMacでもオッケー 使用するソフトは古くからある無料のVLC media playerを使います。 目次 ようこそ VLC media player （ ダウンロード ） （ インストール ） ダウンロード・保存の準備 （ m3u8ファイルのURLを取得する方法 ） （ NHKゴガクのm3u8ファイルのURLを取得する方法 ） ダウンロード・保存の実行 （ VLC media playerでストリーミングを変換／保存・名前を付けて任意の場所に保存 ） m3u8ファイルURLをブックマークレットで取得する （ 3mu8ファイルのURLと保存名をリストするBookmarkletの紹介 ） 補足 （ ブックマークレットの中身 ） （ 一括ダウンロード　コマンドラインとFFmpeg ） （ NHKラジオ聞き逃しJSONの取得、語学のxmlの取得 ） ようこそ データ通信料を節約したい。 聞き逃し番組をオフラインで聞きたい。 スマホや携帯プレイヤーに入れて聞きたい。 mp3、mp4でダウンロード。 本記事の内容は私的利用に限ります。 VLC media player （ダウンロード） VLCメディアプレイヤーの公式ダウンロード - VideoLAN VLC media playerダウンロードは窓の杜からも可能です。 「VLC media player」定番の無料メディアプレイヤー - 窓の杜 （インストール） インストール方法は、次の解説サイトをご紹介しておきます。 VLC Media Playerのダウンロードとインストール方法 - ぼくんちのTV 別館 Googleの検索リンクも貼っておきます。 VLC media player インストール方法 - Google 検索 ダウンロード・保存の準備 （m3u8ファイルのURLを取得する方法） ラジオ番組の保存・ダウンロードの肝は個別番組のm3u8ファイルのURLを取得する事です。 取得に特別なアプリは不要です。 インターネットブラウ...
Read more »