Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

72621 / 76738

←次へ　｜　前へ→


	【8600】Re:FontChangedイベントについて

Ron

- 03/10/25(土) 21:52 -


	引用なし

	パスワード

こんばんは。
FontChangedイベントについては、ちょっと試しましたが、ツールバーでのフォント変更には未対応(?!)でしたので、やめました。
で、Worksheet_SelectionChangeイベントで作ってみました。
以下、対象のシートモジュールへ
-------------------------------------------
Dim mySize As Double
Dim myName As String
Dim myBold As Boolean

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

　　Application.Goto Target
　　If UBound(Application.PreviousSelections) < 2 Then GoTo skip
　　With Application.PreviousSelections(2)
　　　　Select Case False
　　　　　　Case .Font.Size = mySize
　　　　　　　　MsgBox "Sizeが変更されました" & Chr(10) & "元に戻します"
　　　　　　　　Me.Unprotect
　　　　　　　　.Font.Size = mySize
　　　　　　　　Me.Protect
　　　　　　Case .Font.Name = myName
　　　　　　　　MsgBox "Name"
　　　　　　　　Me.Unprotect
　　　　　　　　.Font.Name = myName
　　　　　　　　Me.Protect
　　　　　　Case .Font.Bold = myBold
　　　　　　　　MsgBox "Bold"
　　　　　　　　Me.Unprotect
　　　　　　　　.Font.Bold = myBold
　　　　　　　　Me.Protect
　　　　End Select
　　End With
skip:
　　With Target
　　　　mySize = .Font.Size
　　　　myName = .Font.Name
　　　　myBold = .Font.Bold
　　End With

End Sub
------------------------------------------
では。

0 hits

▼

【8546】FontChangedイベントについて サトウ 03/10/23(木) 14:12