- ベストアンサー
エクセルのVBAについて教えてください
popesyuの回答
ん?下の投稿文字化けしてますよね? おれだけかな。 まそれは置いといて。 同値でもとなれば、もう少し変えないとだめかな。 つーか根本的に変えんと(笑) 動的配列とかFind使って検索とか? んー面倒だ。前の奴を改良します。 Sub test Dim C As Variant Dim X As Integer '最高値を取得 For Each C In Worksheets(1).Range("a1:f10") If C.Value >= X Then X = C.Value End If Next C '最高値を赤字に For Each C In Worksheets(1).Range("a1:f10") If C.Value = X Then C.Font.ColorIndex = 3 End If Next C End Sub つまりは全チェックループを2回くりかえす。 もっと効率的に出来るはずだけど ドンクサすぎます(>_<) ま一例ということで。 では
関連するQ&A
- エクセル2003 VBAなのですが
エクセル2003 VBAなのですが A B C D E F 1 あ い う お う 123 2 お さ え あ お お 3 あ い え お え 888 上記のような表があるときに 3個以上同じ文字がある場合にセルに色をつけていきたい状況です 上記表でいうと『あ』と『え』と『お』のセルに色をつけたいのです セルには文字列のほかに数字も入っている状況です 単純にCtrl+Fで検索をして『すべて検索』で 出てきたセル全部に色をつける。 それをA1から文字があるところ全部やる と言った事をマクロでやりたいと思っております。 皆様よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- Excel VBA で色付きのセルの値を取得する
ExcelのVBAマクロで、For ~ Then構文で複数のセルを参照していき、 色付きのセル(塗りなしのセル)に入力されている値のみを取得する方法を教えてください。 Excel2007を使用しています。
- ベストアンサー
- Excel(エクセル)
- エクセルVBAについて
以下の処理をマクロで実行しようと思っていますが、わからない部分があるので教えてください。 (例): A B C D E F G 1 1 2 3 4 5 6 7 2 10 30 50 70 90 130 150 3 4 (1)1行目のどこかの連続したセル(例えばセルA1から セルD1)をドラッグする。 (2)マクロを実行する。 (3)セルA4に、「D2-A2」を計算した値が自動的に入力 される。この例では「70-10=60」 これは、(1)で例えばセルB1からF1をドラッグした場 合には、「F2-B2」を計算した値を入力したいので す。 要は、連続したセルを選択してその始点と終点のセルの行と列を取得できればこの処理はできると思うのですが、方法が分かりませんので教えてください。 よろしくお願いします。
- 締切済み
- オフィス系ソフト
- EXCELで2つのセルの値を比較して相違文字の色を変える
EXCELで2つのセルの値を比較して相違文字の色を変える 事は可能でしょうか? (VBAマクロは使用せずに) <例> A1セル:タイヤキ A2セル:ダイヤ → A1セル:'タ' と 'キ' のみ「赤色」にフォントを変える → A2セル:'ダ' のみ「赤色」にフォントを変える よろしくお願いいたします。
- 締切済み
- その他MS Office製品
- エクセル上のVBA
当方、VBAまるっきり初心者です(触りはじめて3日くらい)。 エクセルはある程度理解しているつもりですが… バージョンはエクセル2000です。 他シートのセルのひとつに入力すれば、 別シートのセルがそれを参照したうえで 値として表示出来るようにならないでしょうか。 今のところ、以下のような状況です。 step01 sheet1のセルA1に任意の数値(整数限定です)を入力。 step02 sheet2のセルA1に、sheet1のセルA1の数値を用いて MOD関数で余りを出す。 step03 sheet2のセルB2に以下のVBAによって step02の余りを値として表示。 Private Sub Worksheet_Change(ByVal Target As Range) Range("b2").Value = Range("a1") End Sub これだとsheet1の数字を変えても、 sheetの切替後sheet2のセルB2に 表示される値が変わってくれません。 最初の入力(step01の入力)をおこなえば sheet2のセルB2まで値が変わってくれるような方法を 教えていただけないでしょうか。 拙い説明で申し訳ありませんが、よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- 隣のセルで書式を変える VBA
通常の書式でのやり方ではわかりませんでした。マクロでなければできませんでしょうか? A列に値が入っていて、B列に値が入っていない場合にセル色とフォントを変更したいのです。 例えば、以下の感じです。 ・A6には値が入っていて、B6には入っていない場合にB6がセル色が赤でフォントが白 ・A7には値が入っていないくて、B7には入っていない場合は変化なし ※同じシートには他に、private sub でダブルクリックすると変化させるマクロが入っています。
- 締切済み
- Excel(エクセル)
- エクセルのVBAで教えてください
エクセルのVBAで教えてください、セルA1の値をマクロボタンを押すたびに、セルC1から順番にC2・C3・C4・・・・と下に自動的に入力するVBAを教えてください。
- ベストアンサー
- Visual Basic
- Excel一括置換(フォント読み込み)
Excelのセルの中に複数のフォントが混在している状態で、任意のフォントを指定して、別シートの置換リストに従って一括置換できるようなマクロ、もしくは同じような機能をもつツールはありませんでしょうか。 Excelのバージョンは2003以上が希望です。 色々探してみたのですが、フォント情報まで読み取るものは見当たりませんでした。 宜しくお願い致します。
- 締切済み
- その他(業務ソフトウェア)
- エクセルのマクロ 並んだ数字の幾つかを抜き出してその合計を計算させたいのですが・・
エクセルのマクロ(VBA)について、教えてください。 セルのA1からA2・・・A1000までに「01,03,06,08,20,」のように5つの数字がカンマで区切られて入力されています。 1.この5つの数字をb.c.d.e.f.の1から1000のそれぞれのセルに配置するマクロ 2.この5つの数字の数字の合計をb1から1000のセルに表示させるマクロは難しいでしょうか? MID関数をひとつづつのセルに入れていたのですが、マクロでできれば効率が良いと思い手引書等で考えたのですがよく分からないのです。
- ベストアンサー
- その他(プログラミング・開発)
- エクセル関数?でランダム入力について
エクセルにて質問です。 一つのシートで横列(アルファベット)は同じで、縦列(数字)は二列ずつのセットで… もしセル R11に何もなければ(空欄なら)→ A11からBP12までのセルを薄い灰色で塗りつぶす もしセル R11に何かあれば→ Y11に15~22までのランダムの数字 Z11に0~59までのランダムの数字 BC11に8~11までのランダムの数字 BD11に0~59までのランダムの数字 ……… ……… ……… もしセル R39に何もなければ(空欄なら)→ A39からBP40までのセルを薄い灰色で塗りつぶす R39に何かあれば→ Y39に8 Z39に0~59までのランダムの数字 BC39に12~17までのランダムの数字 BD39に0~59までのランダムの数字 というものを作成したいのです。 尚、ランダム数字の値は上記の様に変更可能なものを希望です。 上記の内容になりますと、複数セルの塗りつぶしが含まれるので関数だけでは無理でしょうか? また、マクロ使用で可能ならコードを教えてもらえたら助かります。 エクセルに詳しい方おしえてください。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
お礼
popesyuさん、ありがとうございました。 無事、望み通りの事が出来ました。 他にも色々やり方があるんですね。 これから、勉強していきたいと思います。 本当にありがとうございました。 triton