Formが閉じる際にQueryCloseが流れるので、そこで阻止すればよい Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If CloseMode = 0 Then MsgBox "[×]ボタンで閉じることはできません。" ’Trueにすることで閉じるのを阻止 Cancel…

'選択したセルにテキストを配置Sub insText() Dim Bar As Shape Dim cell As String 'アクティブセルを取得 cell = ActiveCell.address If cell <> "" Then Set Bar = ActiveSheet.Shapes.AddShape _ (msoShapeRectangle, _ Range(cell).Left, _ Range(cell)…

何かと便利かなと '選択したセルに赤枠を配置Sub redFlame() Dim Bar As Shape Dim cell As String 'アクティブセルを取得 cell = ActiveCell.address If cell <> "" Then '図形の種類、位置情報設定 Set Bar = ActiveSheet.Shapes.AddShape _ (msoShapeRect…

'選択したセルに吹き出しを挿入Sub insBalloon() Dim Bar As Shape Dim cell As String 'アクティブセルを取得 cell = ActiveCell.address If cell <> "" Then Set Bar = ActiveSheet.Shapes.AddShape _ (msoShapeRoundedRectangularCallout, _ Range(cell).…

Insert文などでカンマの位置を揃えたい場合など /** カンマ配置 */ var e = Editor; var selectStr = ""; var outStr = ""; var lines = ""; var rtnCdList = ["\r\n","\r","\n"]; var rtnIndex = 0; var topIndex = 0; var endIndex = 0; var maxLength = 0…

/** タブ、スペース除去マクロ */ var e = Editor; var selectStr = ""; var topIndex = 0; var endIndex = 0; //選択行取得 selectStr = e.GetSelectedString(0); //選択文字が存在する場合のみ処理を行う if(selectStr != ""){ //開始行取得 topIndex = e.…