A列に店名がならんでいます。
1鈴木商店
2山田商店
3田中呉服店
4山口飲食店
  ・
  ・
  ・
たとえば、
これの一文字の「店」のフォントだけを他のフォントに
一括で置き換えできませんか?

よろしくお願いします。

このQ&Aに関連する最新のQ&A

A 回答 (3件)

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
    • good
    • 1
この回答へのお礼

どうも、ありがとうございました。
一文字だけでいいんです。
うまくいきました。

お礼日時:2003/07/12 20:00

#1です。


私の回答の主眼目はCharacters()の紹介にありましたが。
>フォントの種類を変えたいのです
エクセルVBAでフォントの種類を指定するのはFont.Name=です。
Cells(i, "A").Characters(p).Font.Name="○○"
を入れてください。
例えば・・・.Font.Name = "HG創英角ゴシックUB"のように。
だだフォントの種類を表す漢字カナ文字表現は、正確にはどういう文字綴りなのか、記述が難しいと個人的に思います。
そこであるセル内の文字全体を、ご希望のフォントに変更する操作をします。そのとき「マクロの記録」を使って、記録しておき、内容をツール-マクロ-マクロ-「編集」で見てFont.Name=を探し、=の右辺を見て、コピーし貼りつけして下さい。
    • good
    • 1
この回答へのお礼

sakenomoさんの方法で、うまくいきました。
imogasiさんの方法も、試してみます。
どうも、ありがとうございました。

お礼日時:2003/07/12 20:07

これは多分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照会してください。
    • good
    • 1
この回答へのお礼

どうも、ありがとうございました。
しかしVBAが、いまいち理解できてないのです。
ただ、フォントサイズや色でなくて、
フォントの種類を変えたいのです。
使いたいフォント(フリーで、JISにない)が、
JISにないので、その文字だけを
他のフォントにかえたいのです。

お礼日時:2003/07/11 19:18

このQ&Aに関連する人気のQ&A

このQ&Aと関連する良く見られている質問

Q映画などの無料ダウンロード方法

映画などの無料ダウンロード方法
チャーリーとチョコレート工場などを無料でダウンロードしたいで無料ダウンロードできるサイトややり方を教えて下さい。
よろしくお願いします。m(__)m

Aベストアンサー

2010年の1月1日より、改正著作権法が施行されました。
これにより、音楽・動画などの著作物を権利者の許可無くアップロードしたものを
ダウンロードするだけで犯罪となります。
ただし、ストリーミングは対象外なので、動画サイトなどに違法アップロードされたものを
見ても大丈夫です…が、やはりきちんと買いましょう。

参考URL:http://d.hatena.ne.jp/nakakzs/20090518/1242657559

Qエクセルでセル内の一部分だけ書式ごと置換したい

エクセルの置換でオプションを使えば、書式も置換できますが、置換したい文字だけでなく、セル全体の書式が置換されてしまいます。
例えば「ロシアとアメリカ」とあるセルの、「アメリカ」を「中国」に置換して、「中国」の部分だけフォントをゴシックから明朝に変えたくても、セル全体が明朝になってしまいます。

今は、とりあえず「アメリカ」を「中国」に、オプションなしで一括変換して、ひとつずつ手動でフォントを変更していますが、大変な手間が掛かり、フォントの選択ミスなども起こります。

なにかいい方法はないでしょうか。
よろしくお願いします。

Aベストアンサー

こんにちは。Wendy02です。

>あとから「文字列一括置換」をやると、セルごとフォントが元に戻っちゃうのは、エクセルの仕様でしかたないですね。^^;

例えば、「アメリカ」を「中国」に換える場合を考えると、まず、「アメリカ」を「中国」に変更してから、「中国」セルの中の書式を換えるという仕組みになるわけです。それ自体の仕組みは、容易に想像できるかとは思います。つまり、このようにすれば可能です。


Sub ReplaceFormatInCells()
'セルの書式の一部を変更するマクロ
 Dim mWhat As String
 Dim mFadd As String
 Dim c As Range
 Dim mFind As String
  mFind = Application.InputBox("検索する単語を入れてください。", Type:=2)
  If mFind = "False" Or mFind = "" Then Exit Sub
  mWhat = Application.InputBox("置換する単語を入れてください。", Type:=2)
  If mWhat = "False" Or mWhat = "" Then Exit Sub
 
  ActiveSheet.UsedRange.Replace _
   What:=mFind, Replacement:=mWhat, _
   SearchOrder:=xlByRows, MatchCase:=True

'Sub ReplaceFromatInCells() ~ Set c = の7行分をこのように置き換えれば出来ます。

こんにちは。Wendy02です。

>あとから「文字列一括置換」をやると、セルごとフォントが元に戻っちゃうのは、エクセルの仕様でしかたないですね。^^;

例えば、「アメリカ」を「中国」に換える場合を考えると、まず、「アメリカ」を「中国」に変更してから、「中国」セルの中の書式を換えるという仕組みになるわけです。それ自体の仕組みは、容易に想像できるかとは思います。つまり、このようにすれば可能です。


Sub ReplaceFormatInCells()
'セルの書式の一部を変更するマクロ
 Dim mWhat As String...続きを読む

Q長く読んでも疲れない、美しい有料フォントの組み合わせ(和文+英文)を購

長く読んでも疲れない、美しい有料フォントの組み合わせ(和文+英文)を購入したいと思っています。おすすめのフォント組を教えて下さい。当方、windows環境です。

Aベストアンサー

 質問者様のこれまでの補足などから総合してお答えします。定評がある和文フォントから,質問者様の環境での使いやすさも考慮しておすすめするということでよろしいでしょうか。

 Windows の Word で作成して社内でお使いになるということで,TrueType のほうが面倒が少ないでしょう。そうすると,
 - モリサワ Pack for Vista(リュウミン,新ゴ)
  http://www.morisawa.co.jp/font/products/packforvista/
 - 大日本スクリーン ヒラギノ TrueType(ヒラギノ明朝体,ヒラギノ角ゴシック体)
  http://www.screen.co.jp/ga_product/sento/products/pr_TrueType.html
あたりが候補でしょう。前者は,Word で使用するとき書式設定が余計に必要な場合がある(行間の調整が必要になることがある)ので,大規模文書では大変なことがあるでしょう。よりシンプルに扱える後者でいかがでしょうか。
 ヒラギノ TrueType は,3 フォント組で 1 万円台前半です。たとえば,
 - ヒラギノ明朝体 3/5/7
 - ヒラギノ角ゴシック体 3/5/7
と明朝体・ゴシック体で計 6 フォントをお揃えになれば,守備範囲としては十分ではないでしょうか。ご予算とも相談してお決めになってください。1 フォントずつダウンロード購入もできますが,1 フォントあたり 8,000 円ちょっととなり,割高です。

 ヒラギノ書体のように,ある程度のグレードのフォントですと,従属欧文(和文フォントデフォルトの欧文)でも問題ないでしょう。さしあたり従属欧文を使ってみてください。それで不足を感じるようになったら,別途ご質問なさればよいと思います。

 質問者様のこれまでの補足などから総合してお答えします。定評がある和文フォントから,質問者様の環境での使いやすさも考慮しておすすめするということでよろしいでしょうか。

 Windows の Word で作成して社内でお使いになるということで,TrueType のほうが面倒が少ないでしょう。そうすると,
 - モリサワ Pack for Vista(リュウミン,新ゴ)
  http://www.morisawa.co.jp/font/products/packforvista/
 - 大日本スクリーン ヒラギノ TrueType(ヒラギノ明朝体,ヒラギノ角ゴシック体)
  http://w...続きを読む

Qセルの書式設定で一部のフォントサイズを変更したい

Excel 2010を使用しているのですが、「セルの書式設定」についてわからないことがあります。

「セルの書式設定」→「ユーザー定義」で「hh:mm "PDT"」という書式を作成したところ、「10:00 PDT」と表示されました。この「PDT」という文字の部分だけフォントを小さくしたいのですが、こういった設定は可能なのでしょうか?

なにか良いアイデアがありましたらご教授願います。

Aベストアンサー

こんにちは!
セルの表示形式の操作だけでは無理だと思います。

いくらセルの表示形式で「PDT」を表示させたとしても、実データは入力した時刻(時間)のシリアル値になりますので
一旦文字列にして「PDT」という文字を付け加えてやる必要があります。
ただ、セル内の文字全部のフォント変更であれば簡単ですが、部分的に変更となると
手作業で行うにしてもかなり手間がかかってしまいますね!

ただ、これでは何もお役に立てないのでVBAになってしまいますが、一例です。

A列に時刻(時間)を入力するとします。

画面左下の操作したいSheet見出し上で右クリック → コードの表示 → VBE画面に
↓のコードをコピー&ペーストしてA列に入力してみてください。

Private Sub Worksheet_Change(ByVal Target As Range) 'この行から
Dim tmp
If Application.Intersect(Target, Range("A:A")) Is Nothing Or Target.Count <> 1 Then Exit Sub
'↑ A:Aの部分は実際の表示したい列に!
Application.EnableEvents = False
With Target
If IsNumeric(.Value) Then
tmp = WorksheetFunction.Text(WorksheetFunction.Round(.Value, 5), "hh:mm")
.Value = tmp & "PDT"
.Characters(Start:=Len(tmp) + 1, Length:=3).Font.Size = 8 '←フォントサイズは「8」
End If
End With
Application.EnableEvents = True
End Sub 'この行まで

※ フォントサイズは「8」ポイントとしています。

※ 質問にあるように表示形式だけ変更するのであればA列に表示されているデータは数値ですので
計算に使用できますが、上記方法で表示されているデータは文字列になります。
すなわち計算できるデータではありませんので、
もし計算する必要がある場合は、「PDT」を隣のセル表示させたりする工夫が必要になると思います。m(_ _)m

こんにちは!
セルの表示形式の操作だけでは無理だと思います。

いくらセルの表示形式で「PDT」を表示させたとしても、実データは入力した時刻(時間)のシリアル値になりますので
一旦文字列にして「PDT」という文字を付け加えてやる必要があります。
ただ、セル内の文字全部のフォント変更であれば簡単ですが、部分的に変更となると
手作業で行うにしてもかなり手間がかかってしまいますね!

ただ、これでは何もお役に立てないのでVBAになってしまいますが、一例です。

A列に時刻(時間)を入力するとします...続きを読む

Q早急にお願いします。freestyle scriptというフォントを探しています。

以前PCを再インストールしたらfreestyle scriptというフォントが無くなってしまいました。
今日中になんとかPCにインストールしたいのですが、どうすればいいでしょうか?
どこかで手に入りませんか?または、リカバリCD等に入っているのでしょうか?
よろしくお願いします。

Aベストアンサー

Microsoft Office Professional Plus 2007/Microsoft Office Publisher 2003等に含まれてるようです。

http://www.aboutfont.com/trouble/osfont.html

Qエクセル 置き換えをするとセル内のフォントサイズが

エクセルでフォントサイズがバラバラな文字列が入ってるセルで置き換えをすると
セル内のフォントサイズが統一されてしまいました

フォントサイズを統一させずに置き換えする事は可能でしょうか?

VBAとかマクロをつかわなければならない時はできれば使い方を詳しくおしえて頂きたいです。

Aベストアンサー

例えばいくつかのセルに出社時間とMSPゴシックでフォントサイズが11で入力されているものとフォントサイズが12で入力されているセルがあるとします。
出社時間とMSPゴシックでフォントサイズが11のセルのデータのみを退社時間に置き換えるとしたら「置換」を選択して検索する文字列に出社時間と入力した後で同じ画面の「オプション」をクリックします。
「検索する文字列と同じ行位置にある「書式」をクリックします。
「フォント」タブの「サイズ」の窓で11を選択しOKします。その後に置換後の文字列に退社時間と入力して「すべて置換」をクリックします。フォントサイズが11の出社時間のセルだけが退社時間に置き換わってフォントサイズが12の文字は置き換わりません。
フォントサイズが統一されてしまうといったことは起こりません。

Q数字がメインのフォントの一覧表示

使用OSはWindows7 Ultimateです。

フォント管理に「SAKURA 2.66」を使っているのですが、このソフトはフォントの一覧を表示させるとフォントの名前が其のフォントの形で表示されるようになっています。

ゴシックや古印体などのフォントではそれでいいのですが、数字の形が一番肝心なフォント、、例えば MOSuujiHD-JFn.otf などのMOSuujiシリーズはアルファベットなし・日本語はどれも同形で、数字の形だけが違うようです。

このようなフォントではフォント名で一覧を作られても意味がありません。

フォントによっては数字の形の違いを一覧にしてくれるフォント管理ソフトをご存じの方、教えてください。
何卒よろしくお願い致します。

Aベストアンサー

私も『フォントインストーラー SAKURA』を利用しています。
数字フォントであってもプレビュー画面に数字を表示できますよ。
デフォルトではフォント名になっていますが、プレビュー画面上のプルダウンメニューから[0123456789]を選択すると表示されます。
また、任意の文字を入力後[Enter]キーを押すと、任意の文字で表示できます。

QExcelで、Sheet内の文字フォントを一度に変換

タイトルどおりなのですが、
セル内に書かれている文字を、
MS Pゴシック => Tahoma フォントへ一度に
変更したいと考えております。

日本語はMS Pゴシックで、英数字はTahomaに
しようと思っています。

オートシェイブ内に書かれた文字フォントも
同時に変更したいのですが、それは可能ですか?
教えてください。

Aベストアンサー

セルとオブジェクトのフォント一括変換は2回に分けて行うしかないと思います。
(1)セルはシート先頭の空白の角セルで一括選択
(2)オブジェクトは編集→ジャンプ→セル選択でオブジェクトを一括選択

Qかわいい日本語フォントが欲しい

OpenOffice.org 1.1.3 を使っているんですが、お堅いフォントしかないので、かわいいフォントが欲しいのですが、無料で使えるものがあれば教えていてだきたいんです
宜しくお願いします

Aベストアンサー

以前探した時のメモを貼り付けておきます。

ふい字置き場 第二水準
http://hp.vector.co.jp/authors/VA039499/
沙奈の文字箱
http://sana.s12.xrea.com/
すずこん*オリジナルフォント
http://hp.vector.co.jp/authors/VA033716/
Teardrops in Aquablue
http://aquablue.milkcafe.to/tears/
うみ
http://s2g.egoism.jp/font/index.htm

Qエクセルで特定文字列に色をつけたいです。

表中の特定の文字列(例「日本」)に色をつけて表示するようにしたいのですが、ひとつひとつ手で変えていくしかないのでしょうか。
よろしくお願いします。

Aベストアンサー

vba処理です

Sub test()
Dim rng As Range, r As Range, i As Long, colInd As Integer
With ActiveSheet
Set rng = .Range("a1:z100") '範囲の設定
txt = "日本" '文字の設定
colInd = 3 '色の設定
For Each r In rng
If InStr(r, txt) > 0 Then _
r.Characters(InStr(r, txt), Len(txt)) _
.Font.ColorIndex = colInd
Next
End With
End Sub

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

このQ&Aを見た人が検索しているワード


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング