VBA ユーザー定義関数 Split(文字列,区切り値,取り出す配列番号)

Quick Edit Pencil 
'カスタム関数　Split(文字列,区切り値,取り出す配列番号)
Function hSeparate(ByRef str As String, ByRef sep As String, Optional ByRef lmt As String) As Variant
    Dim v As Variant
    If lmt Then
    v = Split(str, sep)(lmt)
    Else
    v = Split(str, sep)
    End If
    hSeparate = v
End Function

このブログの人気の投稿

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 »

WP: 投稿一覧にカスタム分類・タクソノミーのカラムを追加する

イメージ
WordPressカスタム分類、タクソノミーを登録したら必ず行う管理画面のカスタマイズ「投稿一覧にカラムを表示」 同じ結果を３通りの方法で実現できる。 管理画面のカスタマイズ 投稿一覧にタクソノミーのカラムを追加する 管理画面のカスタマイズ 投稿一覧にカスタム分類の列を追加する３通りの方法： function.php の register_taxonomy() で設定 プラグインで設定する方法 function.php　フックを追加する方法 管理画面のカスタマイズ 1. 投稿一覧にカスタム分類のカラムを追加する： function.php の register_taxonomy() で設定する方法 function.php の register_taxonomy()　に設定値を追加する方法 register_taxonomy('area', 'post', array( 'labels' => array( 'name' => '地域名' ), 'hierarchical' => true, 'show_admin_column' => true )); 管理画面のカスタマイズ 2. 投稿一覧にカスタム分類のカラムを追加する： プラグインで設定する方法 プラグイン　Custom Post Type UI（CPT UI）　のタクソノミーの追加と編集から「管理画面でカラムを表示」を「True」にする方法 管理画面のカスタマイズ 3. 投稿一覧にカスタム分類のカラムを追加する： function.php　フックを追加する方法 投稿タイプを指定 <?php // 投稿一覧にカスタム分類のカラムの追加 function add_custom_column( $defaults ) { $defaults['add_area'] = '地域名'; //$defaults['add_[name]'] = '[タクソノミー名]'; return $defaults; } add_fi...
Read more »

AppleScriptとターミナルでJavaScriptを使う

AppleScriptでJavaScriptを使いたい applescript jsc javascriptcore 具体には、URLをエンコード（url encode）したい時、 set theText to "http://ja.wikipedia.org/wiki/ アップルスクリプト " --JavaScript tell application "Safari" set theURL to ( do JavaScript "encodeURI(\"" & theText & "\")" in document 1) as text log "0=" & theURL end tell (*0=http://ja.wikipedia.org/wiki/%E3%82%A2%E3%83%83%E3%83%97%E3%83%AB%E3%82%B9%E3%82%AF%E3%83%AA%E3%83%97%E3%83%88*) と、Safariを経由して結果を得る方法が考えられるが、Safariを経由せず、ApplescriptでJavaScriptを使えないか探ってみた。 Safariで使われているJavaScriptCoreを直接操作する方法があった。 set theText to "http://ja.wikipedia.org/wiki/ アップルスクリプト " --JavaScript set theURL to do shell script "/System/Library/Frameworks/JavaScriptCore.framework/Versions/A/Resources/jsc -e 'print(escape(\"" & theText & "\"))'" log "1=" & theURL (*1=http%3A//ja.wikipedia.org/wiki/%E3%82%A2%E3%83%83%E3%83%9...
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 »

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 »

スクロールボックスのアンカーリンク

ライブラリを使わないページ内ジャンプのメモ [JavaScript] DIVのスクロールをJavaScriptから操作する - YoheiM技術やらずに終われまテン height: 30vh; min-height: 315px; overflow: auto; <div class="modal-body"> <div class="modal-body-inner" id="area-b"> <div id="b-index"> 目次 <a onclick="test('area-b','b-index',this,'b1');" href="javascript:void(0);" rel="nofollow">環境設定の構造と構成</a> <a onclick="test('area-b','b-index',this,'b2');" href="javascript:void(0);" rel="nofollow">環境設定関数について</a> 環境設定引数 三つの大分類について 環境設定引数 二種の中分類について 環境設定引数 設定項目について </div> <script type="text/javascript"> <!--     function test(_area,_head,_this,_anchor){         var area = document.getElementById(_area);         var areaScrollHeight = area.scrollHeight;         var areaRect = area.getBoundingClientRect();         var headRect = document.getElementById(_...
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 »