Skip to content

Instantly share code, notes, and snippets.

View imihito's full-sized avatar

imihito imihito

3 followers · 0 following
View GitHub Profile
@imihito
imihito / $PSVersionTable
Last active August 11, 2018 14:14
nasneの共有フォルダにアクセスするために、PowerShellでWindowsの機能を有効化する ref: https://qiita.com/nukie_53/items/65323b74aed22d5610a6
Name Value
---- -----
PSVersion 5.1.17134.165
PSEdition Desktop
PSCompatibleVersions {1.0, 2.0, 3.0, 4.0...}
BuildVersion 10.0.17134.165
CLRVersion 4.0.30319.42000
WSManStackVersion 3.0
PSRemotingProtocolVersion 2.3
SerializationVersion 1.1.0.1
@imihito
imihito / file0.cs
Created July 22, 2018 01:49
[VBA]Outlook.MailItemから送信者のメールアドレスを取得する ref: https://qiita.com/nukie_53/items/23b46841b291125cbab4
private string GetSenderSMTPAddress(Outlook.MailItem mail)
{
string PR_SMTP_ADDRESS =
@"http://schemas.microsoft.com/mapi/proptag/0x39FE001E";
if (mail == null)
{
throw new ArgumentNullException();
}
if (mail.SenderEmailType == "EX")
{
@imihito
imihito / WSH_JScript.js
Last active May 16, 2018 13:41
WSHのWScriptオブジェクトは`WSH`でも参照できる ref: https://qiita.com/nukie_53/items/cb4ca7c9d8ca8a459e4d
// ルートオブジェクト内変数列挙
// => WScript と WSH が表示される
(function(o){
for ( var k in o )
WSH.Echo(k);
})(this);
// 同じ物か判定
WSH.Echo(
WSH === WScript ?
@imihito
imihito / Excel拡張子正規表現
Created April 3, 2018 15:46
レジストリからExcelに関連付けられている拡張子群を取得する ref: https://qiita.com/nukie_53/items/dbed2037381d0797e35f
\.(?:csv|ods|xla|xlam|XLL|xls|xlsb|xlsm|xlsx|xlt|xltm|xltx)
@imihito
imihito / file0.txt
Created March 22, 2018 14:43
Officeの色をRGBに分解する PowerShell編 ref: https://qiita.com/nukie_53/items/7d71d58dcc5e0f9d9294
Officeの色の16進数表記
__BBGGRR
一般的な色の16進数表記
__RRGGBB
@imihito
imihito / Qiitaのヘッダー色
Last active February 25, 2018 02:31
PowerShell でオレオレカラーピッカー ref: https://qiita.com/nukie_53/items/f6dc0856c0db8986bef0
R : 85
G : 197
B : 0
A : 255
IsKnownColor : False
IsEmpty : False
IsNamedColor : False
IsSystemColor : False
Name : ff55c500
@imihito
imihito / file0.txt
Created January 23, 2018 14:03
変数の中身をファイルに保存する ref: https://qiita.com/nukie_53/items/01c169c7b82b29504a9c
Sub VariableSaveTest()
Dim tmpPath As String
tmpPath = Environ$("tmp") & "\vba_temp.bin"
Dim saveData As Variant
saveData = Array(1024, "abc", Now)
'保存
SaveVariable tmpPath, saveData
@imihito
imihito / file0.txt
Last active February 19, 2018 12:33
VBAからJScriptのfunctionオブジェクトを使用する（64bit対応） ref: https://qiita.com/nukie_53/items/297e524bcc8e43f9b5d1
'Instance JScript Function object
'e.g.
'Dim adder As Object: Set adder = JSFunc("a,b", "a+b") 'autoReturn = True
'Debug.Print adder(2, 6) '->8
'Dim inRange As Object
'Set inRange = JSFunc("range,min,max", "v=range.Value;return min<=v&&v<=max;", False) 'autoReturn = False
'Excel.ActiveCell.Value() = 150
'Debug.Print inRange(Excel.ActiveCell, 100, 200) '->True
@imihito
imihito / String型配列として"001"を設定
Last active June 12, 2018 10:58
ExcelのセルにVBAで"001"をそのまま代入する方法 ref: https://qiita.com/nukie_53/items/44b9793513571381991f
ActiveCell.Value = Split("001", "") '->String(0 To 0)
@imihito
imihito / file0.txt
Created November 24, 2017 15:06
Excelのテーブルをオブジェクトの集合へ変換する関数 ref: https://qiita.com/nukie_53/items/51261c104c9484a2ac7e
''' <summary>
''' srcTableの各行を見出しをKeyとするDictionaryへ変換し
''' Collectionへ格納します｡
''' </summary>
''' <param name="srcTable">変換するテーブル。</param>
''' <returns>Scripting.Dictionaryを要素とするVBA.Collection</returns>
Function TableToDictionaries(ByVal srcTable As Excel.ListObject) As VBA.Collection
'テーブルからデータをメモリ上にロード