• ベストアンサー

Excel VBA で 書式設定（セル内の一部のみ）

こんにちは。教えてください。 １つのセル内に、 あいうえお１か きくけこ２ さしすせそ3たち。 つてと45.67 などと、いくつかのセル内改行を含み、文字数がばらばらのデータが入っています。 その１行目（上記の例で言うと、「あいうえお１か」）のみ、フォント赤色の書式設定を、マクロで行いたいのですが、できますでしょうか？ ご回答よろしくお願いいたします。

noname#200395
noname#200395

質問者が選んだベストアンサー

  • ベストアンサー
  • WDY
  • ベストアンサー率27% (121/435)
回答No.1

Sub Macro1() Range("A1").Select With ActiveCell.Characters(Start:=1, Length:=InStr(Range("A1").Value, Chr(10)) - 1).Font .Name = "ＭＳ Ｐゴシック" .FontStyle = "標準" .Size = 10 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = 3 End With End Sub

noname#200395
質問者

お礼

早速のご回答ありがとうございます。 やってみたのですが、全部赤になってしまいます。 追記になってしまいましたが、元のデータは、別のシートでADDRESS関数で参照しているデータを、値貼り付けしたデータです。そのためにChr(10)が認識されていないのでしょうか。

noname#200395
質問者

補足

できました！ 申し訳ございません。 私の勘違いでした。 ありがとうございました！

  1. カテゴリ
  2. インターネット・Webサービス
  3. その他（インターネット・Webサービス）

関連するQ&A

  • 書式設定（セル内の一部のみ）

    こんにちは。 １つのセル内に、 あいうえお１か きくけこ２ さしすせそ3たち つてと45.67 などと、いくつかのセル内改行を含み、文字数がばらばらのデータが入っています。 その１行目（上記の例で言うと、「あいうえお１か」）のみ、フォント赤色の書式設定をすることはできますでしょうか？ ご回答よろしくお願いいたします。

  • Excel VBA で 一括書式設定（セル内の一部のみ）

    こんにちは。教えてください。 １つのセル内に、 あいうえお１か き! くけこ２ さしすせそ3たち。 つてと45.67? というように、いくつかのセル内改行を含み、文字数がばらばらのデータが入っています。そういうセルが、一行にいくつも並んでいます（途中に空白もあります）。 それらの１行目（上記の例で言うと、「あいうえお１か」）のみ、フォント赤色の書式設定を、マクロで行いたいのです。 そこで、以下のマクロを実行すると、選択セルがひとつだけのときは問題ないのですが、複数のセルを選択すると実行時エラー（型が一致しません）が出てしまいます。 Sub 一行目赤() With Selection.Characters(Start:=1, Length:=InStr(Selection.Value, Chr(10)) - 1).Font .ColorIndex = 3 End With End Sub 選択セルのすべてに対し、一括で書式設定できるようにするにはどうしたらよいでしょうか？ご回答よろしくお願いいたします。

  • Excel VBA で 一括書式設定（選択セルのみ）

    おはようございます。教えてください。 結合されたセル内に、 あいうえお１か き？! くけこ２ さしすせそ3たち。 つてとな45.67 というように、いくつかのセル内改行を含み、文字数がばらばらのデータが入っています。 それらの１行目（上記の例で言うと、「あいうえお１か」）のみフォント緑色、２行目はフォント青色、３行目以降はフォント黒色の書式設定を、選択セルすべてに対し、マクロで行いたいのです。 １行目だけなら以下のマクロでできたのですが、２行目以降の参照の仕方がわかりません。 Sub 一行目緑() For Each c In Selection With c.Characters(Start:=1, Length:=InStr(c.Value, Chr(10)) - 1).Font .ColorIndex = 10 End With Next End Sub ご回答よろしくお願いいたします。

  • エクセルのセルの書式設定（通貨）について

    例えば１つのセルに「1234」と入力すると エクセルのセルの書式設定（通貨）では 添付画像のように負の数の表示形式（N） （\1.234)←フォントの色赤 （\1.234) \1.234←フォントの色赤 \-1.234 \-1.234←フォントの色赤 が表示されます。 (\1.234)←フォントの色赤 （\1.234) \1.234←フォントの色赤 \-1.234 \-1.234←フォントの色赤 の意味、違いがわかりません。 ちなみに １つのセルに「(1234)」と入力し セルの書式設定（通貨）のところで (\1.234)←フォントの色赤を選択すると セル内も(\1.234)←フォントの色赤になるし (\1.234)←フォントの色黒を選択すると セル内も(\1.234)←フォントの色黒になるのは確認できました。 しかしそれぞれの違いや意味がわかりません。

  • 【Excel VBA】セル内に改行を挿入したい

    セル内で左から数えて10文字毎に改行（折り返し）させたいのですが、 どのようにコーディングすればよろしいでしょうか？ 例） セルA1の値が "あいうえおかきくけこさしすせそたちつてとなにぬねの" の場合、 "あいうえおかきくけこ さしすせそたちつてと なにぬねの" としたいです。 ※セルの値は、CSVから自動取得して貼り付ける仕様になっています。 　またセルの書式設定は、"折り返して全体を表示する"に事前に設定します よろしくお願いします。

  • エクセルVBAのChr(10)の挿入と削除

    宜しくおねがいします 現在結合されたセルがありそのセル内に他のプログラムから 下記の値が挿入されるようになっています。 あいうえお かきくけこ さしすせそ たちつてと （Chr(10)の改行） （Chr(10)の改行） （Chr(10)の改行） （Chr(10)の改行） 他のプログラムから送られてくる値は”あ行”の１行だけだったり ”ま行”までの7行あったりとその都度変わってきます。 文字数も”あ”の1文字だけだったり”あああいいいうううえええおおお”と 文字数も変わります。 しかし下の4行分の”Chr(10)の改行”の数は変わりません。 やりたいことは↓ コマンドボタンを二つ作り、ボタンを押すたびに下にあるChr(10)の改行を 挿入したり削除したりしたいのですがどのようにすればよいのでしょうか？ 追加ボタンを2回押すとChr(10)の改行が6行分になり そこから削除ボタンを3回押すとChr(10)の改行が3行分になる・・・という感じです。 試しにマクロの記録で セルを選択して改行を削除 をしてみたのですが思うような動きをしてくれません。 なぜChr(10)なのかとかいうのは聞かないでください・・・ そこから説明すると長くなるので。

  • セル内で改行された文字列を1行ずつ他のセルに移す

    excelで、こんなことできますか？ book1で、セル内に下のような改行した文字列があり、それを入力したら、 ｂｏｏｋ２に、文字列を１行ずつ他のセルに取り出したいのですが…できますか？ book1 （セルは折り返して全体を表示する） book2 （仕上げの画面） A 　　　　 　　 A あいうえお　　　　　　　　　 　　　　　　　　　 1 あいうえお 1 かきくけこ　　　　　　　　　　　　 　　　　　　 2 かきくけこ さしすせそ　　　　　　　　　　　　　　　 　　　 3 さしすせそ → 4 たちつてと 2 たちつてと　　　　　　　　　　　　　　　　 　　 5 なにぬねの なにぬねの　　　　　　　　　　　　　　　　　 　　 6 はひふえほ 3 はひふへほ 教えていただけると助かります。（ただしマクロはよくわからないのですが…）

  • 隣のセルで書式を変える　VBA

    通常の書式でのやり方ではわかりませんでした。マクロでなければできませんでしょうか？ A列に値が入っていて、B列に値が入っていない場合にセル色とフォントを変更したいのです。 例えば、以下の感じです。 ・A６には値が入っていて、B６には入っていない場合にB６がセル色が赤でフォントが白 ・A7には値が入っていないくて、B７には入っていない場合は変化なし ※同じシートには他に、private sub でダブルクリックすると変化させるマクロが入っています。

  • エクセルのセルの書式設定で

    エクセルのセルの書式設定で折り返して全体を配置するにチェックをいれてなくても セルの中に書き込み、Ａｌｔ+Ｅｎｔｅｒ　でセルの中で改行して何かを入力すると 自動的に2行分にセルが広がったりします。 これは止められないのでしょうか？ やりたい事は セルの中での書き込みは何行にも改行して記載しておきたいのですが、 表示自体は1行で収まって欲しいのです。 その文章自体は隣のセルに消されて見えませんが それで構わないのです。 そのように設定する方法ってありますか？ ご存知の方、ご教授願います。

  • Excelのセル内改行について

    Excelのセル内に改行を含むデータが入力されています。 Excelでコピー＆ペーストを行えば問題ないのですが、 メモ帳にペーストすると改行が ↑ と表示されてしまい、 1行になってしまいます。 メモ帳にペーストしてもセル内で改行されているように 改行したままで貼り付けを行うことは可能でしょうか？ Sheet1:A1 あいうえおかきくけこ さしすせそ たちつてとなにぬねのはひふへほ メモ帳:貼り付け あいうえおかきくけこ↑さしすせそ↑たちつてとなにぬねのはひふへほ

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する