Relax電子印鑑をVectorで公開しました。
http://www.vector.co.jp/soft/winnt/business/se510554.html
RelaxToolsを電子印鑑部分のみにしたサブセット版です。RelaxToolsをおつかいの方はそのままRelaxToolsの電子印鑑をお使いください。
またRelax電子印鑑でこちらにたどり着いた方「RelaxTools」をお試しください。
どうぞよろしくお願いいたします。
↧
Relax電子印鑑をVectorで公開
↧
Version 3.18.0(VerticalClimbRoll)
◇バグ修正
・ショートカット用の右１文字削除と左１文字削除で
値が数値の場合エラーになっていた不具合を修正。
◇機能改善
・「番号体系に応じた連番付与」で文の途中の番号にも対応できるようにした。
また、複数セルを選択して番号を付番できるようにした。
・変換系のコマンドで式が値に変換されていたのを式は処理を行わないように修正。
↧
↧
Excelファイルのカーソルをホームポジションに設定するスクリプト
Excelファイルのカーソルをホームポジションに設定するスクリプト
Excelファイルのカーソルをホームポジションに設定するスクリプトです。
Version 3.19.0 より自動Ａ１保存の廃止に伴い、配布予定です。
* 全てのシートのカーソルをホームポジションにします。（非表示シートは除外）
* シートの一番最初を選択します。
* ズームを100%に変更します。
複数ファイル、サブディレクトリ対応です。
読み取りパスワードが指定されているものにも対応します。
使い方
1. ホームポジション設定するExcelファイルのフォルダにこのスクリプトを配置する。
2. スクリプトの「拡張子」「読み取りパスワード」を必要に応じて書き換える。
3. スクリプトを実行する。
4. 結果をテキストファイルで表示する。
'-------------------------------------------------------------------------------
' Excelファイルのカーソルをホームポジションに設定
'
' ExcelSetHomePosition.vbs
' Version 1.0.0
'
' Copyright (c) 2015 Y.Watanabe
'
' This software is released under the MIT License.
' http://opensource.org/licenses/mit-license.php
'-------------------------------------------------------------------------------
' 動作確認 : Windows 7 + Excel 2010 / Windows 8 + Excel 2013
'-------------------------------------------------------------------------------
' for Used
' (1) ホームポジション設定するExcelファイルのフォルダにこのスクリプトを配置する。
' (2) スクリプトの「拡張子」「読み取りパスワード」を必要に応じて書き換える。
' (3) スクリプトを実行する。
' (4) 結果をテキストファイルで表示する。
'
'-------------------------------------------------------------------------------
Option Explicit
Dim objFs, strMsg, SH
Dim objDic, XL, WB, FL, LogName
dim varPatterns, strKey, varPass, p
Dim IE
Dim strTitle
strTitle = "ホームポジション設定"
If MsgBox("同フォルダ以下のExcelファイルをホームポジション設定します。" & vbCrLf & "よろしいですか？" & VbCrLf & VbCrLf & "☆お約束☆" & vbCrLf & "Excelファイルは事前にバックアップしてください。", vbYesNo + vbQuestion, strTitle) = vbNo Then
WScript.Quit
End IF
Set IE = WScript.CreateObject("InternetExplorer.Application")
IE.Navigate "about:blank"
Do While IE.busy
WScript.Sleep(100)
Loop
Do While IE.Document.readyState <> "complete"
WScript.Sleep(100)
Loop
IE.Document.body.innerHTML = "<b id=""msg"">ホームポジション設定中です<br>しばらくお待ち下さい...</b>"
IE.AddressBar = False
IE.ToolBar = False
IE.StatusBar = False
IE.Height = 120
IE.Width = 300
IE.Left = 0
IE.Top = 0
IE.Document.Title = strTitle
IE.Visible = True
On Error Resume Next
Set objFs = WScript.CreateObject("Scripting.FileSystemObject")
Set objDic = WScript.CreateObject("Scripting.Dictionary")
'--------------------------------------------------------------
' 処理を行う拡張子を正規表現で記述
'--------------------------------------------------------------
varPatterns = Array("\.xls$", "\.xlsx$", "\.xlsm$")
'--------------------------------------------------------------
' 読み取りパスワードがある場合はここに記述(複数指定可)
'--------------------------------------------------------------
varPass = Array("", "", "")
FileSearch objFs, objFs.GetParentFolderName(WScript.ScriptFullName), varPatterns, objDic
LogName = objFs.GetBaseName(WScript.ScriptFullName) & ".txt"
Set FL = objFs.CreateTextFile(LogName)
FL.WriteLine "☆=ホームポジション設定 開始(" & Now() & ")☆="
FL.WriteLine "処理ファイル数:" & objDic.Count
If objDic.Count > 0 Then
Set XL = WScript.CreateObject("Excel.Application")
For Each strKey In objDic.Keys
'パスワード指定の場合
For Each p In varPass
Err.Clear
Set WB = XL.WorkBooks.Open(objDic(strKey),,False,,p,"",True,,,False)
If Err.Number = 0 Then
Exit For
End If
Next
Select Case True
Case Err.Number <> 0
FL.WriteLine "エラー => " & objDic(strKey)
FL.WriteLine " " & Err.Description
Case WB.ReadOnly
FL.WriteLine "エラー => " & objDic(strKey)
FL.WriteLine " ブックが読み取り専用です"
Case Else
setAllA1 WB
XL.DisplayAlerts = False
WB.Save
If Err.Number <> 0 Or WB.Saved = False Then
FL.WriteLine "エラー => " & objDic(strKey)
FL.WriteLine " " & Err.Description
Else
FL.WriteLine "処理済 => " & objDic(strKey)
End If
XL.DisplayAlerts = True
End Select
'インスタンスがあれば Close
If Not IsNothing(WB) Then
WB.Close
Set WB = Nothing
End If
Next
XL.Quit
Set XL = Nothing
End If
FL.WriteLine "☆=ホームポジション設定 終了(" & Now() & ")☆="
FL.Close
Set FL = Nothing
Set objDic = Nothing
Set objFs = Nothing
With CreateObject("Shell.Application")
.ShellExecute(LogName)
End With
IE.Quit
'MsgBox "処理が完了しました。", vbInformation + VbOkOnly, strTitle
'--------------------------------------------------------------
' すべてのシートの選択位置をＡ１にセット
'--------------------------------------------------------------
Sub setAllA1(WB)
Dim WS
Dim WD
For Each WS In WB.Worksheets
If WS.visible Then
WS.Activate
WS.Range("A1").Activate
WB.Windows(1).ScrollRow = 1
WB.Windows(1).ScrollColumn = 1
WB.Windows(1).Zoom = 100
End If
Next
'表示中の１枚目にする。
For Each WS In WB.Worksheets
If WS.visible Then
WS.Select
Exit For
End If
Next
End Sub
'--------------------------------------------------------------
' サブフォルダ検索
'--------------------------------------------------------------
Private Sub FileSearch(objFs, strPath, varPatterns, objDic)
Dim objfld
Dim objfl
Dim objSub
Dim f, objRegx
Set objfld = objFs.GetFolder(strPath)
'ファイル名取得
For Each objfl In objfld.files
Dim blnFind
blnFind = False
Set objRegx = CreateObject("VBScript.RegExp")
For Each f In varPatterns
objRegx.Pattern = f
If objRegx.Test(objfl.name) Then
blnFind = True
Exit For
End If
Next
Set objRegx = Nothing
If blnFind Then
objDic.Add objFs.BuildPath(objfl.ParentFolder.Path, objfl.name), objFs.BuildPath(objfl.ParentFolder.Path, objfl.name)
End If
Next
'サブフォルダ検索あり
For Each objSub In objfld.SubFolders
FileSearch objFs, objSub.Path, varPatterns, objDic
Next
End Sub
↧
エクスプローラから直接Excelファイルを読み取り専用で開く
エクスプローラから直接Excelファイルを読み取り専用で開く
エクスプローラでExcelファイルを右クリックした際に「読み取り専用で開く」を有効にするスクリプトです。
Version 3.19.0 より インストール時に指定が可能になります。
通常、Shiftを押しながらExcelファイルを右クリックすると「読み取り専用で開く」が表示されますが実行しても読み取り専用になりません（ＭＳのバグ？）。DDEメッセージの引数で「読み取り専用」が有効になっていないためです。
このスクリプトはDDEメッセージの「読み取り専用」フラグをONにし、Shiftを押さなくても「読み取り専用で開く」を表示させます。
'-------------------------------------------------------------------------------
' Excelファイルの右クリック「読み取り専用で開く」を有効にするスクリプト
'
' ExcelReadOnly.vbs
'
' Copyright (c) 2015 Y.Watanabe
'
' This software is released under the MIT License.
' http://opensource.org/licenses/mit-license.php
'-------------------------------------------------------------------------------
' 動作確認 : Windows 7 + Excel 2010 / Windows 8 + Excel 2013
'-------------------------------------------------------------------------------
' 以下参考サイト
' 無題 - 右クリックメニュー「読み取り専用で開く」を表示する(Excel&Word)
' https://sites.google.com/site/universeof/tips/openasreadonly'
'-------------------------------------------------------------------------------
Option Explicit
On Error Resume Next
If WScript.Arguments.Count = 0 Then
'自分自身を管理者権限で実行
With CreateObject("Shell.Application")
.ShellExecute WScript.FullName, """" & WScript.ScriptFullName & """ dummy", "", "runas"
End With
WScript.Quit
End If
If MsgBox("エクスプローラ右クリック(Excelの読み取り専用)を有効にしますか？", vbYesNo + vbQuestion, "読み取り専用有効化") = vbNo Then
WScript.Quit
End IF
With WScript.CreateObject("WScript.Shell")
'シフトを押さなくてもメニューが表示されるようにするように「Extended」キーを削除
.RegDelete "HKCR\Excel.Sheet.8\shell\OpenAsReadOnly\Extended"
.RegDelete "HKCR\Excel.Sheet.12\shell\OpenAsReadOnly\Extended"
.RegDelete "HKCR\Excel.SheetMacroEnabled.12\shell\OpenAsReadOnly\Extended"
Err.Clear
'読み取り専用を有効にする
.RegWrite "HKCR\Excel.Sheet.8\shell\OpenAsReadOnly\ddeexec\","[open(""%1"",,1,,,,,,,,,,,,1,,1)]", "REG_SZ"
.RegWrite "HKCR\Excel.Sheet.12\shell\OpenAsReadOnly\ddeexec\","[open(""%1"",,1,,,,,,,,,,,,1,,1)]", "REG_SZ"
.RegWrite "HKCR\Excel.SheetMacroEnabled.12\shell\OpenAsReadOnly\ddeexec\","[open(""%1"",,1,,,,,,,,,,,,1,,1)]", "REG_SZ"
End With
If Err.Number = 0 Then
MsgBox "正常に関連付けを変更しました。", vbInformation + vbOkOnly, "読み取り専用有効化"
Else
MsgBox "エラーが発生しました。", vbCritical + vbOkOnly, "読み取り専用有効化"
End IF
↧
Version 3.19.0(VerticalClimbRoll)
◇新規機能
・エクスプローラでブックを右クリック時した時に「読み取り専用で開く」を
有効にすることが可能になります。
インストーラにより設定しますのでインストール時に選択してください。
・Excelファイルをホームポジションに設定するスクリプト(ExcelSetHomePosition.vbs)を添付。
◇機能改善
・ExcelのGrepでパスワード保護されたExcelがあると
入力ダイアログが表示されていたが、
エラーにして処理が停止しないように修正。
ダイアログにパスワードの入力項目を追加して、
パスワード保護を解除してGrepできるようにした。
◇機能廃止
・自動ホームポジション（Ａ１）処理を廃止しました。
今回から添付のスクリプト(ExcelSetHomePosition.vbs)の利用をお願いします。
↧
↧
ExcelGrepでパスワード保護ブックに対応
ExcelGrepでパスワード保護ブックに対応
機能：ExcelファイルのGrep
Version 3.19.0 よりExcelファイルのGrepでパスワード保護ブックに対応しました。
起動すると読取パスワードを指定するテキストボックスがありますので、入力してください。カンマ区切りで複数設定可能です。
入力されたパスワードを試行して解除できれば、一覧に表示されます。
↧
Version 3.20.0(VerticalClimbRoll)
◇機能改善
・Windows 10 に対応。(といっても動作確認だけで済みました）
・付箋機能に「線吹き出し」を追加。
・強調シェイプに「線吹き出し」を追加。
・外部エディタの指定でファイル選択ダイアログで入力できるようにした。
・シート管理に「便利な並び替え」の情報を追記。
・クリップボードのメニューを使いやすく改善。アイコンもリニューアルした。
◇バグ修正
・バージョン情報を表示した際にNUMLOCKが外れる不具合を修正。
↧
Version 3.21.0(VerticalClimbRoll)
◇機能改善
・指定範囲のピクチャ化に設定画面を追加し、枠線の非表示、背景色の変更ができるようにした。
◇バグ修正
・ショートカットキー割当のImportで「^」キーの取り込みエラーになる不具合を修正。
↧
Version 3.22.0(VerticalClimbRoll)
◇機能改善
・セルの先頭に文字列を挿入、セルの最後に文字列を挿入、セルのｎ文字目に文字列を挿入で
文字列の履歴をが利用できるようにした。
◇バグ修正
・「十字キーカーソル」を表示しているときに保存をすると十字カーソルがキャンセルされる不具合を修正。(Excel2010以降の32bit版)
・「Excel表をHTMLに変換」で見た目の書式（テーブルや条件付き書式）で色が作成されない不具合を修正。(Excel2010以降の32bit版)
↧
↧
Version 3.22.1(VerticalClimbRoll)
◇バグ修正
・セル・シェイプの正規表現検索で検索したブックとは別のブックがアクティブになっていると、
検索結果をクリックしたときに実行時エラーとなっていた不具合を修正。
↧
Version 3.22.2(VerticalClimbRoll)
◇バグ修正
・付箋の管理で複数シートに付箋があった場合に表示がおかしくなっていた不具合を修正。
↧
Version 3.23.0(VerticalClimbRoll)
◇機能改善
・Grep検索でネットワークドライブで実行すると遅くなる件について注意書きを追加。
・キャメル区切変換でアッパーキャメル(AaaBbbCcc)変換を追加。
・２００３互換色の枠線がセルにも対応できるように修正。
↧
VBAから.Net Framework がつかえなくなった
VBAから一部の.Net Framework が使えるというのは知っている方も多いかと思います。
RelaxTools の中でも幾つか .Net Framework を使っています。
「選択中のセルの最大文字数/バイト数(UTF-8)」
「外部エディタで編集」
「MD5/SHA1/256/384/512を求める」などなど。
Windows10をクリーンインストールすると、最新の.Netはインストールされますが、.Net Framework 3.5 がインストールされずエラーに7なるようです。
VBAから.Net Frameworkが呼べるのは 3.5までとなったようです(T-T
とりあえず回避方法としては.Net Framework 3.5 を有効にすることです。
以下、手順になります。
コントロールパネルのWindows機能の有効化と無効化を表示
.Net Framework 3.5 をチェックします。
Windows Update で .Net Framework 3.5 入手します。
ダウンロードされます。
エラーが無くなりました。
↧
↧
Version 3.24.0(VerticalClimbRoll)
◇新規機能
・Relaxフィルの追加。「番号体系に応じた連番付与」をRelaxフィルとして別メニューにしました。
セルが離れた場所での連番、番号のインクリメント、デクリメントが可能です。
◇機能改善
・Excel 2016対応。バージョン情報が正しく表示されるようにした。
・かんたん表（方眼紙用）ですでに縦線が表示されている場合消去してから縦線を引くことにした。
・十字カーソルで行のみ、列のみ、ガイド表示／非表示が選択できるようにした。
◇バグ修正
・Windows10でバージョンが正しく表示できていない不具合を修正。
・Windows10で一部.Net Frameworkを利用した機能が動作しない件について対策方法をWebページにアップ。
http://software.opensquare.net/relaxtools/archives/2136/
・Grep処理でパスワードを設定しない場合に、Grep結果にジャンプできない不具合を修正。
・Grep処理でパスワードを設定しない場合に、Grep置換できない不具合を修正。
↧
Relaxフィルの使い方
Relaxフィルの使い方
標準のフィルで連番が振れますが、離れた場所の番号を設定したいというのがコンセプトです。
まず、選択セルの上に元となる番号があり、行を開けて選択範囲を設定します。
Relaxフィルの「番号体系に応じた連番」を選択します。
選択範囲に連番が振られます。
エビデンスなどの番号など振るときに便利。
インクリメントとデクリメントについては、選択した場所の数字を＋１や－１するコマンドになります。
↧
Version 3.25.0(VerticalClimbRoll)
◇機能改善
・以下の機能をシェイプに対して実行できるようにした。
「英数字記号を半角、カタカナを全角に変換」
「大文字へ変換」
「小文字へ変換」
「半角へ変換」
「全角へ変換」
「ひらがなへ変換」
「カタカナへ変換」
「単語の先頭文字を大文字」
「文字の配置(左上)」
「文字の配置(中上)」
「文字の配置(右上)」
「文字の配置(左中)」
「文字の配置(中央)」
「文字の配置(右中)」
「文字の配置(左下)」
「文字の配置(中下)」
「文字の配置(右下)」
・以下の機能で選択セルの個数制限がなくなりUndoもできるようにした。
「右上がり罫線」
「右下がり罫線」
「縦中線」
「横中線」
「縦中線の消去」
「横中線の消去」
「文字の配置(左上)」
「文字の配置(中上)」
「文字の配置(右上)」
「文字の配置(左中)」
「文字の配置(中央)」
「文字の配置(右中)」
「文字の配置(左下)」
「文字の配置(中下)」
「文字の配置(右下)」
↧
Version 3.26.0(VerticalClimbRoll)
◇機能改善
・段落番号、行頭文字で作業速度の改善。
・段落番号に以下を追加
「1, 2, 3,」
「1., 2., 3.,」
「１, １．１, １．１．１」
「１．, １．１．, １．１．１．」
「①, ②, ③」
・十字カーソルでガイドの文字色を設定できるようにした。
◇仕様変更
・段落番号追加、行頭文字追加で選択範囲全体に適用していたのを選択範囲内の文字列がある
セルのみに適用するように変更した。（列全体を選択して実行しても文字のあるセルにしか適用できないようにした）
これにより選択ミスをしてもあまりきにならなくなった。
・行頭文字の追加（番号があるもの）で、レベルによって番号の振り直しをしていたのを
一律、選択範囲の分１から振るように変更。
◇バグ修正
・Windows10/Excel2016で段落番号の設定時エラーになっていた不具合を修正。
・Windows10/Excel2016で十字カーソルのガイドが一部表示されなくなる不具合を修正。
↧
↧
Version 3.27.0(VerticalClimbRoll)
◇機能追加
・認め印の角度を変更できるようにし
上司に媚びることが可能となった「社畜度」機能を追加。
５０％超える場合逆に媚びすぎとなる可能性があるので注意してください。
↧
上司に媚びることが可能となった認め印機能
認め印機能で印影を左側（たいていの書類では上司印のある方向）にかたむけ、上司に媚びることが可能となりました。
ことの発端は友人のこのツイート
元ネタはこちら「キャリコネニュース」「上司に出す印鑑は「左に傾ける」のがマナー？ ネットは「狂ってる」「社畜魂だな」と大批判」
https://news.careerconnection.jp/?p=18210
俄然、俺の社畜魂が熱く燃えたぜ・・・。よーしやったるわー
というわけで、認め印に角度を変える処理を追加しましたの
社畜の皆さまお使いください。
社畜度５０％超える場合逆に媚びすぎとなる危険性があるので注意してください。
↧
Version 3.27.1(VerticalClimbRoll)
◇バグ修正
・シェイプの検索時にシェイプに４０００以上文字が入っているとエラーになっていた不具合を修正。
↧