| |
▼記号 さん：
こんにちは
なんだか、役立たずのレスを繰り返したみたいでもうしわけありません。
上でなんだかんだ述べましたように、コードとしての「筆記体のエル」は私には
無理っぽいので、「見た目の表示のみ」変換するコードです。
全角、半角とわず、「小文字のエル」の表示を「筆記体」に変えます。
とりああえずは、各セル内の最初のエルのみを変換しています。
（全てを変換することもできますが）
Sub リットル表示変換()
Dim c As Range
Dim f As Range
Dim n As Long
Set c = ActiveSheet.UsedRange.Find(What:="l", LookIn:=xlFormulas, LookAt:=xlPart, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=True, _
MatchByte:=False, SearchFormat:=False)
If c Is Nothing Then
MsgBox "変換すべきものがありません"
Exit Sub
End If
Set f = c
Do
c.Value = Replace(c.Value, "ｌ", "l") '全角エルは半角に
n = InStr(c.Value, "l")
c.Characters(Start:=n, Length:=1).Font.Name = "MT Extra"
Set c = ActiveSheet.UsedRange.FindNext(c)
Loop While c.Address <> f.Address
MsgBox "変換終了しました"
End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
