マクロで簡単エクセル業務

Excel

最右ハイフン以降小文字

スキル先生
スキル先生

4567-0123などハイフン以降の文字列を小文字で表示したいときは、マクロを使います。

Qooちゃん
Qooちゃん

そのあとの設定はありますか?

スキル先生
スキル先生

次回の説明で詳しく教えます。

Sub 最右ハイフン以降小文字()

‘ Keyboard Shortcut: Ctrl+j

Dim range1 As Range
Dim range2 As Integer
Set range1 = ActiveWindow.ActiveCell
‘ MsgBox InStrRev(range1, “-“) ‘左から数えて最も右側の-までの文字数
‘ MsgBox Mid(range1, InStrRev(range1, “-“) + 0) ‘そこから右の文字列
range2 = InStrRev(range1, "-") With ActiveCell.Characters(Start:=1, Length:=range2 - 1).Font .Name = "游ゴシック" .FontStyle = "標準" .Size = 11 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ThemeColor = xlThemeColorLight1 .TintAndShade = 0 .ThemeFont = xlThemeFontMinor End With With ActiveCell.Characters(Start:=range2, Length:=10).Font .Name = "游ゴシック" .FontStyle = "標準" .Size = 6 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ThemeColor = xlThemeColorLight1 .TintAndShade = 0 .ThemeFont = xlThemeFontMinor End With ActiveCell.Offset(1, 0).Range("A1").Select
End Sub

タイトルとURLをコピーしました