[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『LEFT関数のまま色を指定したい』(naozou)
LEFT関数を使ってある列から頭6文字を取り出しています。 LEFT関数のある列には、関数から表示している値と、手打ちで入力した値がランダムにあります。 LEFT関数で表示されているセルのみフォントの色を変えたいのですが。
タイトルには『LEFT関数のまま・・・』と書いてありますが、頭6文字取り出して表示が出来るなら LEFT関数にこだわっている訳ではないのでマクロでも問題無いです。
よろしくお願い致します。
前半部分は理解できますが、私には後半部分の意味がわかりません... (seiya)
関数が入っているセルは固定なのですかね? それとも、例えば・・・・ A列に文字列があって B列にLEFT関数で頭6文字を取り出す B列の必要なセルは、手入力で打ち直す こんな作業をしたときに 「数式が残っているセルは、勝手にフォントが変わって欲しい」 って事なんですかね・・・?
関数が入っているセルが決まっているなら メニュー・編集(E)→ジャンプ(G) [ セル選択(S) ]から 「数式の入ったセル」を選ぶことが出来ますが。。。
(HANA)
>頭6文字取り出して表示が出来るならLEFT関数にこだわっている訳ではないのでマクロでも問題無いです。 ここが前半部とどういう具合に関連してくるのか... (seiya)
やりたい事はほぼHANAさんのおっしゃってる通りです。 関数が入ってるセルは決まってます。
「数式が残っているセルは、勝手にフォントが変わって欲しい」
数式では無くLEFT関数のあるセルだけ色を変えたいのです。 手入力してLEFT関数が無くなったセルはデフォルトで黒のままがいいんです。
メニュー・編集(E)→ジャンプ(G) [ セル選択(S) ]から「数式の入ったセル」
「数式の入ったセル」が無いのですが・・・
環境はWindowsXP Excel2003です。
>頭6文字取り出して表示が出来るならLEFT関数にこだわっている訳ではないのでマクロでも問題無いです。
すいません。。。やりたい事はある列から先頭6文字を抜き出してそれだけ色を変えたいのです。 なので結果が同じならLEFT関数にこだわっているという訳ではないので、全く別のマクロなどの方法があるようでしたら・・・と思い書かせて頂きました。
あ・・・書き方が悪かったです。済みません。
メニュー・編集(E)→ジャンプ(G) [ セル選択(S) ] まで開けたら 選択−−−−−−−−−−−−− ○コメント(C) ○定数(O) ●数式(F)←−−−これを選んで [ OK ] ■数値(U) ■文字(X) ■論理値(G) ■エラー値(E) ○空白セル(K)
で、数式が入ったセルだけを選べます。 先に範囲を選択してから、実行してみて下さい。
(HANA)
コメントありがとうございます。 ご指導頂いた方法を試しましたが変わりません。 参照元のA列が数式ではなくただの文字列だからでしょうか?
???
新しいシートで試して下さい。
B1セルに =LEFT(A1,6) B2セルに 1 B3セルに =LEFT(A3,6) B4セルに 2
B1:B4セルを選択して メニュー・編集(E)→ジャンプ(G) [ セル選択(S) ] ●数式(F)←−−−これを選んで [ OK ]
B1,B3セルが選択されますよね? そしたら、セルの書式設定でお好きな色に変更して下さい。
それとも、何かメッセージが出ますかね?
(HANA)
あれ? >数式では無くLEFT関数のあるセルだけ色を変えたいのです。 >手入力してLEFT関数が無くなったセルはデフォルトで黒のままがいいんです。
もしかして、その範囲には LEFT関数以外も関数が使ってる? また、定数にしたら【勝手に】元に戻って欲しい・・・?
でも >関数が入ってるセルは決まってます。 なんですよね・・・?
(HANA)
コメントありがとうございます。
>もしかして、その範囲には LEFT関数以外も関数が使ってる? >また、定数にしたら【勝手に】元に戻って欲しい・・・?
ズバリその通りです。 関数が入ってるセルが決まっているという言葉の意味を取り違えてしまいました。 ややこしくてすいません。
つまりこういう事では? (私も活用してます)
ただこれだとそのシートの全ての関数に色が付いちゃいますよね? あとはこのマクロを読み取れれば指定できるのでしょうが。。。 がんばってみます。
ありがとうございました。
こういうこと?
Sub test() Dim rng As Range, r As Range On Error Resume Next Set rng = ActiveSheet.UsedRange.SpecialCells(-4123, 2) On Error GoTo 0 If rng Is Nothing Then Exit Sub For Each r In rng If r.Formula Like "*LEFT(*,6*" Then r.Font.Color = vbRed Next End Sub (seiya)
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.