- ベストアンサー
【VBA】別のセルの内容に応じたフォント変更
Excel上で、二行にわたり次の文字が入力されている場合において…、 数字行： １ ２ ３ ４ ５ 文字行： イ ロ ハ ニ ホ 「数字行」の数字の直下の「文字行」の英字がイのとき、 その数字のフォントを変えたい場合は、どのようにVBAを記述したら良いですか？ 例えば、上記の場合では、1のフォントが変わることとなります。 どなたか教えてください。よろしくお願いします。
- TractorG13
- お礼率100% (2/2)
- Excel（エクセル）
- 回答数1
- ありがとう数8
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
Ａ２から右に見ていって，イの上のセルをCenturyにしてみます。 sub macro1() dim h as range for each h in range("A2:IV2") h.offset(-1).font.name = iif(h.value = "イ", "Century", "ＭＳ 明朝") next end sub
関連するQ&A
- 文字を変換するマクロ
こんばんわ。エクセルのマクロについて教えてください。 Ａ列に、「イ」「ロ」「ハ」「ニ」「ホ」という文字が入っており、 これをＢ列に、 イなら１、ロ→２、ハ→３、ニ→４、ホ→５ というな置換ルールで入力していくマクロは、 どのように組めばよいのでしょうか。 （マクロを組まずとも、 普通に置換を使えばできると思うのですが、 是非、マクロで組みたいので・・・） （Ａ列)（Ｂ列） ロ ２ イ １ ハ ３ ニ ４ イ １ ホ ５ ↑ マクロを実行すると、 Ｂ列に変換された数値が入力される よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセル VBA
いつも、皆々様にはお世話になり、大変役立たせていただいております。 エクセルのデータについての質問です。 セルごとに A,B,C,D,E...... イ,ロ,ハ,ニ,ホ,ヘ,ト... と並んでいるデータがあるとします。 それをテキストデータとして取り出して、 A B C D E . . イ ロ ハ . . . と 各データを改行して取り出すことは可能でしょうか。 行列の変換ではありません。 各セルのデータをひとつずつ取り出して、 テキストデータとして１行ずつ取り出す方法なのです。 VBAで別のシートに１個ずつデータを移して、 ちまちまやっていれば出来そうなのですが、 一発でやる方法はないでしょうか。 よろしくお願い申し上げます。 なぜこのようなことが必要かと申しますと、 歯科のレセ電のプログラムの一環であります。
- ベストアンサー
- その他（プログラミング・開発）
- エクセル関数で検索し一致した最後の行を取得
お世話になっております。 エクセルの関数のみで、A列の中で一番最後に一致した行番号を返す方法はないでしょうか？ 例） A 1 イ 2 ロ 3 ハ 4 ニ 5 イ 6 イ 7 ロ 8 イ 9 ハ イ の場合：8行目 ロ の場合：7行目 どうぞ、よろしくお願い致します。
- ベストアンサー
- Excel（エクセル）
- 結合したセルの高さを内容に合わせてVBAで設定したい
EXCELのVBAで質問です。 ファイルから文章を取り出し、 別のファイルの指定された位置に その文章をはめ込む作業を行っています。 文章を入れるセルは結合されたセルで、 折り返して全体を表示する設定にしてあります。 セルの幅は固定、フォントはプロポーショナルフォントを使用します。 （英文の場合半角で入力されるので） この時、文章の長さに合わせて、 文字が切れることなく印刷されるように マクロでセルの高さを設定したいと考えています。 そういう方法はありますでしょうか？ あれば教えていただきたいと思います。 文章の長さは数文字～数百文字とまちまちで、 あらかじめ適当な高さを取るわけにはいきません （はめ込む文章は１つではなく、複数あり、 はめ込む先も複数行あるため、 １つ１つのセルの高さを多めに取ると、 文章が短い場合にやたら空白ができてしまうため） 宜しくお願いいたします。
- ベストアンサー
- Visual Basic
- エクセルで複数列のデータに対して検索後、対象行を表示できますか？
よろしくお願いします。 エクセル２００２を使っています。 例として １ Ｅ Ｆ Ｇ ２ データＡ イ ロ ハ ３ データＢ ロ ハ ４ データＣ ニ ５ データＤ ニ ロ Ｅ，Ｆ，Ｇ列に行方向にイ～ニのデータがランダムに入っています。 オートフィルを使う様に３列中にイを含む行、又はイ又はロを含む行、イ、ロ、ハを含む行を表示させたいのですが、何か方法があるでしょうか？ どなたかご存知の方ご教授お願いします。
- ベストアンサー
- オフィス系ソフト
- 入試問題
ネットで手に入れた入試問題を解いたのですが、答えが無くて答え合わせができません。 お時間のある方、もしさしつかえが無ければ答えを教えて下さい。 日本文の意味を表すように( )の中の語を並べかえなさい。 (１) 彼は彼女から有り金全部を奪い取った。 He (イ.every penny ロ.robbed ハ.of ニ.had ホ.her ヘ.she). (２) 彼がその仕事を誰にやらせようと考えているのかわからない。 I don’t know (イ.has ロ.who ハ.for ニ.in ホ.he ヘ.mind) the job. (３) 私の先生は真面目な顔で冗談を言う。 My teacher (イ.a ロ.jokes ハ.look ニ.tells ホ.serious ヘ.with). (４) 驚きのあまり私は何も話せなかった。 (イ.of ロ.deprived ハ.power ニ.my ホ.me ヘ.astonishment) of speech. (５) このチャンスは、何もしないで見逃してしまうにはあまりにも惜しい。 This (イ.chance ロ.good ハ.is ニ.a ホ.to let ヘ.too) go without a try. (６) 君はそんなにテレビを見るべきでないと、僕は思う。 I (イ.should ロ.don’t ハ.TV ニ.watch ホ.you ヘ.think) so much. (７) この週末の天気について新聞にはなんと書いてありますか。 (イ.newspaper ロ.does ハ.what ニ.the ホ.say ヘ.about) this weekend’s weather? (８) お待たせして申し訳ありません。 I’m (イ.waiting ロ.you ハ.sorry ニ.kept ホ.for ヘ.having) (９) あなたは会社で誰よりも働き者です。 You (イ.else ロ.anyone ハ.than ニ.harder ホ.work ヘ.at) the company.
- 締切済み
- 英語
- Excelで、行と列から割り出される値を別シートで利用するには?
Office2000のExcelを使用しています。 「甲シート」に以下のような表があり、 A B C イ 10 18 11 ロ 13 17 14 ハ 12 19 15 「乙シート」のセルA1に「イ」,セルB1に「B」を記入した場合、セルC1に「18」が記入されるようにしたいのですが、どうすればいいでしょうか? ※わかりにくいので文字にしましたが、実際は「イロハ」も「ABC」も数字です。
- ベストアンサー
- オフィス系ソフト
- ExcelVBA 赤字のセルを黄色で塗りつぶす
Excel VBA初心者です。 赤いフォントの数字と黒いフォントの数字を使って表を作ります。（空白のセルも有） 列（C～Y) 行(5～1000) 赤いフォントで数字を入力したら、自動的にセルが黄色で塗りつぶされるようにしたいのですが どうしたらいいでしょうか？回答よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- 英語の並び替えです。
英語の並び替えの質問です。答えがこれであっているかどうか確認していただけますか。 1. A politician thinks of (イ. a ロ. generation ハ. next 二. of ホ. statesman ヘ. the). →（ヘ. the ハ. next ロ.generation ニ. of イ. a ホ. statesman) 2.The value of regular exercise has been established beyond any doubt, but I (イ. bring ロ. cannot ハ. do 二. exercise ホ. myself ヘ. to) for its own sake. →（ロ. cannot イ. bring ホ. myself ニ. exercise ヘ. to ハ. do) for its own sake. よろしくお願いいたします。
- 締切済み
- 英語
お礼
すげえ。天才や！ ありがとうございました。完璧です。 当方でもできました。ありがとうございます。またお願いします。