motoraku’s gists

motoraku / OfficeOpenReadOnly.vbs

Last active June 30, 2022 06:44

Officeファイルを読み取り専用で開くスクリプト Script to open Office files (excel, word, powerpoint, visio, project) in 'Read Only'

	'1.オプション指定
	Option Explicit

	'2.変数宣言
	Dim strFileName
	Dim objApp
	Dim wshShell
	Dim fsObj
	Dim ext
	Dim excelExt

motoraku / EncryptStringTripleDES.vba

Last active February 18, 2022 08:39

Excel VBA 暗号化と復号化（TripleDES） : Triple DES Encryption and Decryption

	'***************************************************************************************************
	'オプション:
	'***************************************************************************************************

	'事前の変数宣言(Dim [変数] As [型])を必須とする
	Option Explicit

	'***************************************************************************************************
	'定数宣言
	'***************************************************************************************************

motoraku / PartialEncryptStringTripleDES.vba

Created December 13, 2015 08:58

Excel VBA 暗号化と復号化（TripleDES）※一部 : Triple DES Encryption and Decryption (Partial)

	'***************************************************************************************************
	'関数呼び出し
	'***************************************************************************************************
	Sub 暗号化()
	MsgBox "password -> " & EncryptStringTripleDES("password")
	End Sub

	Sub 復号化()
	MsgBox "6pbpGQOC73TWEISe0qnwQA== -> " & DecryptStringTripleDES("6pbpGQOC73TWEISe0qnwQA==")
	End Sub

motoraku / Contact Form.txt

Last active December 13, 2015 10:17

WordPress.comで連絡フォームを設置 : Setting up a contact form in WordPress.com

	[contact-form]
	[contact-field label="あなたの名前(Your Name)" type="name" required="true" /]
	[contact-field label="あなたのEメールアドレス(Your Email)" type="email" required="true" /]
	[contact-field label="質問・要望(Comment, Request)" type="textarea" required="true" /]
	[/contact-form]

motoraku / file_sheet_name_1.txt

Created December 13, 2015 10:30

エクセル関数でファイル名・シート名を表示#1 : Show file name or sheet name by Excel function #1

=CELL("FILENAME",$A$1)

motoraku / file_sheet_name_2.txt

Created December 13, 2015 10:37

エクセル関数でファイル名・シート名を表示#2 : Show file name or sheet name by Excel function #2

=MID(CELL("FILENAME",$A$1),FIND(CHAR(9),SUBSTITUTE(CELL("FILENAME",$A$1),"[",CHAR(9),LEN(CELL("FILENAME",$A$1))-LEN(SUBSTITUTE(CELL("FILENAME",$A$1),"[",""))))+1,FIND(CHAR(9),SUBSTITUTE(CELL("FILENAME",$A$1),"]",CHAR(9),LEN(CELL("FILENAME",$A$1))-LEN(SUBSTITUTE(CELL("FILENAME",$A$1),"]",""))))-FIND(CHAR(9),SUBSTITUTE(CELL("FILENAME",$A$1),"[",CHAR(9),LEN(CELL("FILENAME",$A$1))-LEN(SUBSTITUTE(CELL("FILENAME",$A$1),"[",""))))-1)

motoraku / file_sheet_name_3.txt

Created December 13, 2015 10:38

エクセル関数でファイル名・シート名を表示#3 : Show file name or sheet name by Excel function #3

=MID(CELL("FILENAME",$A$1),FIND(CHAR(9),SUBSTITUTE(CELL("FILENAME",$A$1),"[",CHAR(9),LEN(CELL("FILENAME",$A$1))-LEN(SUBSTITUTE(CELL("FILENAME",$A$1),"[",""))))+1,FIND(CHAR(9),SUBSTITUTE(CELL("FILENAME",$A$1),".",CHAR(9),LEN(CELL("FILENAME",$A$1))-LEN(SUBSTITUTE(CELL("FILENAME",$A$1),".",""))))-FIND(CHAR(9),SUBSTITUTE(CELL("FILENAME",$A$1),"[",CHAR(9),LEN(CELL("FILENAME",$A$1))-LEN(SUBSTITUTE(CELL("FILENAME",$A$1),"[",""))))-1)

motoraku / file_sheet_name_4.txt

Created December 13, 2015 10:39

エクセル関数でファイル名・シート名を表示#3 : Show file name or sheet name by Excel function #3

=RIGHT(CELL("FILENAME",$A$1),LEN(CELL("FILENAME",$A$1))-FIND(CHAR(9),SUBSTITUTE(CELL("FILENAME",$A$1),"]",CHAR(9),LEN(CELL("FILENAME",$A$1))-LEN(SUBSTITUTE(CELL("FILENAME",$A$1),"]","")))))

motoraku / CopyWithDateAndTime.vbs

Last active December 25, 2015 05:07

Windows 右クリックからファイルに日時を付与してコピー : Copy file with date and time

	'1.オプション指定
	Option Explicit

	'2.変数宣言
	Dim fsObj
	Dim strFileName
	Dim strNewFileName
	Dim strParentFolderName
	Dim strBaseName
	Dim ext

motoraku / How_to_use_Gist.txt

Last active December 13, 2015 10:59

WordPress.com でソースコードを綺麗に表示 (Gist利用) : Show beautiful source code using Gist

[gist https://gist.github.com/motoraku/761fde74e6e05ff91403 /]