
No.2ベストアンサー
- 回答日時:
A列以外の適当なセルを選び、そのセルの書式(フォント)を変更したいフォントに設定してください。
上記のセルが選択された状態で、以下のマクロを実行してみてください。
作動する範囲はA1:A100になっています、実情に合わせて書き換えてください。
#このマクロでは、各セル中で変更できる文字は1つだけです。
Sub test()
For Each c In Range("A1:A100") '←作動範囲
p = InStr(c, "店")
If p > 0 Then
c.Characters(Start:=p, Length:=1).Font.Name = _
ActiveCell.Font.Name
End If
Next
End Sub
No.3
- 回答日時:
#1です。
私の回答の主眼目はCharacters()の紹介にありましたが。
>フォントの種類を変えたいのです
エクセルVBAでフォントの種類を指定するのはFont.Name=です。
Cells(i, "A").Characters(p).Font.Name="○○"
を入れてください。
例えば・・・.Font.Name = "HG創英角ゴシックUB"のように。
だだフォントの種類を表す漢字カナ文字表現は、正確にはどういう文字綴りなのか、記述が難しいと個人的に思います。
そこであるセル内の文字全体を、ご希望のフォントに変更する操作をします。そのとき「マクロの記録」を使って、記録しておき、内容をツール-マクロ-マクロ-「編集」で見てFont.Name=を探し、=の右辺を見て、コピーし貼りつけして下さい。
No.1
- 回答日時:
これは多分VBAでないと、出来ないでしょう。
VBAでは
Sub test01()
For i = 1 To 30
s = Cells(i, "A")
p = InStr(s, "店")
Cells(i, "A").Characters(p).Font.Size = 23
Cells(i, "A").Characters(p).Font.ColorIndex = 5
Next i
End Sub
上記はA列のセルの文字列を対象にしています。
C列ならA-->Cに変えること。
30行のセルを対象にしています。
第18行までならFor i = 1 To 30をFor i = 1 To 18
にします。
上記はフォントサイズと色を指定してます。
ColorIndex=●がどう言う色かは実際に入れて試してみるかColorIndexでWEB照会してください。
どうも、ありがとうございました。
しかしVBAが、いまいち理解できてないのです。
ただ、フォントサイズや色でなくて、
フォントの種類を変えたいのです。
使いたいフォント(フリーで、JISにない)が、
JISにないので、その文字だけを
他のフォントにかえたいのです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
エクセルでセル内の一部分だけ書式ごと置換したい
Excel(エクセル)
-
Excel文字列中の太字(Bold)部分のみ文字色を一括して変換する方法
Excel(エクセル)
-
Excel 特定の文字色だけを変更したい
Excel(エクセル)
-
4
エクセル 置き換えをするとセル内のフォントサイズが
その他(Microsoft Office)
-
5
エクセルの同一セル内で違うフォント
Excel(エクセル)
-
6
エクセルVBAでセル内の特定文字列を太字に
その他(Microsoft Office)
-
7
セルの条件によってフォントサイズを変更したい。
Excel(エクセル)
-
8
エクセル関数について(フォントサイズ変更)
Excel(エクセル)
-
9
エクセルでセル内の指定文字列のみの書式を変更するVBA
Excel(エクセル)
-
10
関数で抽出したセルの一部の文字を変更したい
Excel(エクセル)
関連するQ&A
- 1 データの抽出方法教えてください A列=A商店、B商店 B列=1商品、2商品 とします。 このデータか
- 2 A列データとB列データが対応している時C列(B列データの一部)の値に対応するA列データを 表示する。
- 3 A1セルにAと入力すると、A2セルに3000A3セルに2000A4セルに1000と表示させたい。
- 4 A列とB列の重複を抽出したいのですがA列とB列の値は一部だけ同じ文字です。ご教示お願いします。
- 5 EXEL 検索&置き換え 数字の正しい置き換え方法は? 数字の列を置き換えると、まったく違う数字列に変換される。
- 6 A列、B列、C列、D列にそれぞれ文字列が入っており上の行と次の行がA,B,C列一緒だったら、D列の文
- 7 エクセル セルの結合(A列,B列→A列に結合)の操作
- 8 セルA列とB列に社員a~社員jと連続的に入力されています。
- 9 教えてください。 エクセルでA列からE列まであり、それが20行あります。その内、B列のフォントの色が
- 10 エクセルで、A2セルの値を同シート内(A5以降のA列)で検索し、該当セルにジャンプする方法はありますか?
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
人気Q&Aランキング
-
4
HG正楷書体-PROがLENOVOideapad...
-
5
メール添付したPDFファイルが文...
-
6
異体字の倉について
-
7
excelでHG正楷書体-PROを使いた...
-
8
「請」の旧字体の表示方法
-
9
電光掲示板(LED掲示板)で使用...
-
10
ドイツ語の旧字体のフォント
-
11
エクセル2000でFangSongフォン...
-
12
フォントが変わらない!
-
13
α、β、γ のフォントコードについて
-
14
PC版のグランブルーファンタジ...
-
15
「威風堂々」に合うフォントを...
-
16
セルの一部のフォントの置き換...
-
17
Google Chrome のおすすめフォ...
-
18
これはなんと言う字体?で調べ...
-
19
この画像の文字のフォントの名...
-
20
bingの削除方法を教えてください
おすすめ情報