No.1
- 回答日時:
例ですが、1文字目から15文字目として以下のように設定します。
With ActiveCell.Characters(Start:=1, Length:=15).Font
.Name = "MS Pゴシック"
.FontStyle = "標準"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
この回答への補足
さっそくありがとうございます。上記方法では1から15文字は変換可能でした。しかし、セル内の文字数は限定されておらずまた変換したい文字位置、数もその都度かわります。対象の文字をカーソルで選定した後、マクロを実行したいのですが方法がありますでしょうかよろしくお願いします。
補足日時:2003/08/09 10:28No.2
- 回答日時:
(1)シートにボタンを1つ貼りつけます。
(2)ボタンをダブルクリックして出てくる、VBE画面には
Private Sub CommandButton1_Click()
End Sub
が出てきます。
(3)下記の第2行目以下最後の行を除きコピーし、中間に貼りつけて、下記になるようにしてください。
Private Sub CommandButton1_Click()
Selection.ClearFormats
s = InputBox("第何文字目から、何文字")
p = Split(s, ",")
With Selection.Characters(p(0), p(1)).Font
.ColorIndex = 3
.Name = "HGSゴシックE"
.FontStyle = "エクストラボールド"
End With
End Sub
(4)操作
セルを選ぶ。
コマンドボタンをクリック。
セルの文字列の第何文字目から何文字フォントを変える
かを、3,3エンタのように入力
3文字目から3文字フォントが変ります。
文字色は質問に無いですが赤にしました。
書体もマクロの記録を取って、コピーして正確に貼りつけてください。スペースが半角であったりとミスが出やすいですから。
(5)InputBox文要求は無いに越したことは無いですが、数式バー上でしか文字列の一部を捉え(指定する)られず、捉えたStart,LengthはエクセルVBAでは変数に捉えられないと思います。
それで不本意ながら中途半端ですが、これが出来る回答が
出れば、私も勉強します。
APIなど使えば可能かなと思いますが、範囲を越えます。
No.3ベストアンサー
- 回答日時:
セル内の文字列をマウスで選択している状態ではマクロは動きません。
そもそも、都度文字列をマウスで選択するのであれば、ツールバーのボタンや書式設定で変更すればよいと思います。手間はほとんど変わらないですよ。
この回答への補足
ありがとうございます。おっしゃる通り現在はマウスで対象文字を選択し、ツールバーのフォントから設定していますが、プルダウンのなかのフォント種類が多く、探して決定する作業を短縮できればいいなと思ったので質問しました。ほかに方法が見つけられない場合は、プルダウンメニューの中の使用しないフォントを消して使用したいとおもいます。
補足日時:2003/08/09 14:23No.4
- 回答日時:
#2です。
標準に戻したくて下記1行を入れた積もりが、その後テストを続けると、Selection.ClearFormats は不適当(別機能)であることが判りました。
With Selection.Font
.Name = "MS Pゴシック"
.FontStyle = "標準"
.Size = 11
.ColorIndex = xlAutomatic
End With
などのように、自分にとっての標準に戻す記述を入れるよりほかないようです。済みません訂正します。
セルの一部の文字の書体等が変えられないのはエクセル2000までであるのを見たような気がします。今は2002のパソコンが使えず、確認できないですが、気がかりです。
ありがとうございました。教えて頂いた内容がわたしには難しすぎて、まだ実行出来ないでいます。今後勉強してみます。#3の方の回答でフォントを元に戻す方法は、文字単位ではなくセル単位で行うことが出来ることがわかりましたのでそちらの方はマクロを作成しました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2022/12/26 12:05
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/25 16:07
- Excel(エクセル) 【Excel】指定のセル内容を基に別シートのセルを検索して選択する【VBA】 1 2022/06/16 16:16
- Visual Basic(VBA) 特定の文字を簡単な操作で半角スペースに変換するか削除したい 2 2022/11/01 10:35
- Excel(エクセル) エクセルで、特定のセルの内容を更新すると、別の特定セルに 更新日付が自動的に表示させる方法はあります 1 2022/11/14 21:03
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/21 09:28
- Visual Basic(VBA) エクセルのマクロについて教えてください マクロを実行して 作業フォルダの中にある PDFファイル名を 3 2023/07/01 15:16
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/03/02 08:40
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/01/06 08:39
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/15 15:48
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ジョルテについて 長年、ジョル...
-
【ファイル名】¥/*:”<> ...
-
ジモティーについて。
-
平方センチメートルの cm2の打ち方
-
Excelで縦長文字にしたい
-
とても長い部署名、肩書きの宛...
-
〄特殊文字の出し方を教えて下...
-
ワード10で40×40の文字設定をし...
-
名簿作り
-
テックトック内でこれを表示す...
-
ペイントのテキストでの文字が...
-
酸素O2の、2を小さく入力す...
-
ツールバーの文字を拡大したい
-
yの上に点々のある文字を入力す...
-
エクセルVBAコードの文字の拡大
-
小さめのノートパソコンが欲し...
-
bash の -z オプションがうまく...
-
インスタのストーリーでこうい...
-
エクセルで無限大マークを表示...
-
ファイル名にいれるべきでない文字
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
電子内容証明で文字装飾のない...
-
【ファイル名】¥/*:”<> ...
-
平方センチメートルの cm2の打ち方
-
方程式の計算について
-
Excelで縦長文字にしたい
-
インスタのストーリーでこうい...
-
酸素O2の、2を小さく入力す...
-
テックトック内でこれを表示す...
-
ファイル名での禁則文字一覧っ...
-
一つのセルに表示できる最大文...
-
辞書登録にて、100文字以上...
-
ジョルテについて 長年、ジョル...
-
名簿作り
-
ファイル名にいれるべきでない文字
-
エクセルVBAコードの文字の拡大
-
ワード10で40×40の文字設定をし...
-
とても長い部署名、肩書きの宛...
-
月の省略表示について
-
なぜ、女性の名前は3文字以下...
-
〇、○、◯という文字について
おすすめ情報