月: 2025年2月

投稿日:

さくらエディタのマクロ【”します”を削除→”:”を”＞”に変換→”＞”がある行の行頭に”＜”をつける→行頭に”＜”がない行の行頭に”・”をつける→行頭に”＜”がある行の上に空行を追加→行頭に”・”がある上の行の空行は削除】

//キーボードマクロのファイル
ReplaceAll(‘します’, ”, 28); // すべて置換
ReDraw(0); // 再描画

ReplaceAll(‘:’, ‘＞’, 24); // すべて置換
ReDraw(0); // 再描画

CurLineCenter(0); // カーソル行をウィンドウ中央へ
ReplaceAll(‘^(.*)＞’, ‘＜\1＞’, 28); // すべて置換
ReDraw(0); // 再描画

ReplaceAll(‘^([^＜]*)$’, ‘・\1’, 28); // すべて置換
ReDraw(0); // 再描画

ReplaceAll(‘^＜’, ‘\r\n＜’, 28); // すべて置換
ReDraw(0); // 再描画
ReplaceAll(‘\r\n・’, ‘・’, 28); // すべて置換
ReDraw(0); // 再描画

投稿日:

複数違う元から飛んできても元へ戻れるマクロ+飛び先は文字列検索でヒットした先だから、編集で位置が変わってもOK！（ただし同じシート内）

Dim HyperlinkStack As Collection ‘マクロ外で設定
Dim ShapeAddressStack As Collection

Sub InitializeHyperlinkStack()
Set HyperlinkStack = New Collection
Set ShapeAddressStack = New Collection
End Sub

Sub StoreHyperlink() ‘飛んでくる元のボタンに登録するマクロ
If HyperlinkStack Is Nothing Then InitializeHyperlinkStack

Dim foundCell As Range
Dim searchString As String
searchString = "AAA()" ' 検索したい文字列を設定

' シート内を検索
Set foundCell = ActiveSheet.Cells.Find(What:=searchString, LookAt:=xlPart, MatchCase:=False)

' 見つかった場合、アドレスをスタックに追加してジャンプ
If Not foundCell Is Nothing Then
    ShapeAddressStack.Add ActiveSheet.Shapes(Application.Caller).TopLeftCell.Address
    foundCell.Select
Else
    MsgBox "指定された文字列が見つかりません。"
End If

End Sub

Sub HyperlinkBack() ‘戻るボタンに登録するマクロ
On Error GoTo ErrHandler
If ShapeAddressStack.Count > 0 Then
Range(ShapeAddressStack(ShapeAddressStack.Count)).Select
ShapeAddressStack.Remove ShapeAddressStack.Count
Else
MsgBox “元の図形の場所に戻ることができません。”
End If
Exit Sub
ErrHandler:
MsgBox “元の図形の場所に戻ることができません。”
End Sub

Proudly powered by WordPress