2020/12/06(sun) RelaxTools-Addin Version 4.27.0(RustRemover)

◇機能追加・背景に「セル結合禁止」をうっすら表示して、セルを結合するなよ～というプレッシャーを与える機能です。　解除は、「ページレイアウト」→「背景」の削除で可能です。　この機能は Twitter@blacklist_ryu さん考案の機能です。
RelaxTools · Dec 5, 2020 · df60c8a · df60c8a
1 parent 46cf655
commit df60c8a
Show file tree

Hide file tree

Showing 8 changed files with 29 additions and 6 deletions.
diff --git a/RelaxTools.xlam b/RelaxTools.xlam
diff --git a/Source/customUI/_rels/customUI.xml.rels b/Source/customUI/_rels/customUI.xml.rels
diff --git a/Source/customUI/customUI.xml b/Source/customUI/customUI.xml
@@ -1109,6 +1109,7 @@
         <group id="InformationGroup" label="その他" image="countpage">
           <button id="encryptionFileEx" size="large" image="Encrypt"  label="ファイルの&#xD;&#xA;難読化" getSupertip="RelaxTools.xlam!getSupertip" getDescription="RelaxTools.xlam!getDescription" onAction="RelaxTools.xlam!ribbonOnAction" />
           <button id="excelPage" image="countpage" size="large" label="Word/Excel/PP&#xD;&#xA;ページ数取得" getSupertip="RelaxTools.xlam!getSupertip" getDescription="RelaxTools.xlam!getDescription"  onAction="RelaxTools.xlam!ribbonOnAction" />
+          <button id="stopcelljoin" image="stopcelljoin" size="large" label="背景をセル結合&#xD;&#xA;禁止にする" getSupertip="RelaxTools.xlam!getSupertip" getDescription="RelaxTools.xlam!getDescription"  onAction="RelaxTools.xlam!ribbonOnAction" />
 <!--
           <splitButton id="sushiSplit" size="large" getEnabled="RelaxTools.xlam!getRibbonEnabled" getVisible="RelaxTools.xlam!sushiGetVisible">
             <toggleButton id="sushiShow" image="sushi" label="スシを&#xD;&#xA;流す" supertip="スシをExcelの周囲に流します。" description="スシをExcelの周囲に流します。" getPressed="RelaxTools.xlam!sushiPressed" onAction="RelaxTools.xlam!sushiOnAction"/>

diff --git a/Source/customUI/images/nocelljoin.png b/Source/customUI/images/nocelljoin.png
diff --git a/Source/customUI/images/stopcelljoin.png b/Source/customUI/images/stopcelljoin.png
diff --git a/Source/src/Form/frmEdit.frm b/Source/src/Form/frmEdit.frm
@@ -274,14 +274,14 @@ Private Sub changeValue()
 '        txtEdit.Locked = True
 '        cmdFormatSql.enabled = False
         cmdReload.enabled = False
-        cmdOK.enabled = False
+        cmdOk.enabled = False
     Else
         txtEdit.BackColor = vbWhite
         txtEdit.Text = txtFormura.Text
 '        txtEdit.Locked = False
 '        cmdFormatSql.enabled = True
         cmdReload.enabled = True
-        cmdOK.enabled = True
+        cmdOk.enabled = True
     End If
 
 '    txtEdit.SetFocus

diff --git a/Source/src/Modules/basMacro.bas b/Source/src/Modules/basMacro.bas
@@ -3690,3 +3690,17 @@ Sub previewActivePage()
 e:
     MsgBox "Previewに失敗しました。", vbOKOnly + vbExclamation, C_TITLE
 End Sub
+'--------------------------------------------------------------
+' 背景を「セル結合禁止」にする
+'--------------------------------------------------------------
+Sub stopcelljoin()
+
+    Dim file As String
+
+    On Error Resume Next
+
+    file = rlxGetAppDataFolder & "images\nocelljoin.png"
+
+    ActiveSheet.SetBackgroundPicture filename:=file
+
+End Sub
diff --git a/Version.txt b/Version.txt
@@ -1,4 +1,10 @@
-2020/12/05(sat) RelaxTools-Addin Version 4.26.6(RustRemover) 
+2020/12/06(sun) RelaxTools-Addin Version 4.27.0(RustRemover) 
+◇機能追加
+・背景に「セル結合禁止」をうっすら表示して、セルを結合するなよ～というプレッシャーを与える機能です。
+　解除は、「ページレイアウト」→「背景」の削除で可能です。
+　この機能は Twitter@blacklist_ryu さん考案の機能です。
+
+2020/12/05(sat) RelaxTools-Addin Version 4.26.6(RustRemover) 
 ◇バグ修正
 ・キー定義のExport時に不要な空白行が作成され、Importできなくなる不具合を修正。
 　（バージョン定義部分の改行不正のためコード修正なし）