[[20150621090815]]　『指定したセルが数値だったら色を付ける　計算式だ』（つむつむ）　ページの最後に飛ぶ

『指定したセルが数値だったら色を付ける　計算式だったら色を付けない方法を教えて下さい。』（つむつむ）

いつもエクセルの学校を拝見し、参考にさせて頂いております。

有難うございます。

エクセルの指定したセルが数値だったら色を付ける。計算式だったら色を付けない。

このような事が出来るでしょうか

その、方法を教えて頂きたいのですが

宜しくお願い致します。

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

 ユーザー定義関数Hasformulaを以下のように定義しておき、
 Function Hasformula(r As Range) As Boolean
     Hasformula = r.Hasformula
 End Function
 条件付き書式を使ったらどうでしょうか。
   =Hasformula(A1)
 のような式にします。

（γ） 2015/06/21(日) 09:40

γ様

有難うございました。

「ユーザー定義」が分からずに調べておりました。

 Function Hasformula(r As Range) As Boolean
     Hasformula = r.Hasformula
 End Function

上記を標準モジュールに貼り付け

条件付き書式に=Hasformula(A1)を貼り付けて出来ました。

何でも出来てしまうのには、いつも感心しております。

明日、会社で早速使用して見ます。

本当に有難うございました。
（つむつむ） 2015/06/21(日) 10:00

γ様

今気が付いたのですが

＞＞エクセルの指定したセルが数値だったら色を付ける。計算式だったら色を付けない。

教えて頂いた式では、指定したセルが計算式の場合に、色が付く様になっております

もう一度数値の場合に色が付く様に教えて頂けないでしょうか

宜しくお願い致します。
（つむつむ） 2015/06/21(日) 10:22

 ああ、そでした。失礼しました。

 Function isNumberButBynotFormula(r As Range) As Boolean
     If WorksheetFunction.IsNumber(r) Then
         If Not r.Hasformula Then
             isNumberButBynotFormula = True
         End If
     End If
 End Function
 これでどうでしょう。
 関数名は私の趣味で長くなりましたが、ご自由に変更してください。

 # これからメタボ対策用の散歩に出掛けます。

（γ） 2015/06/21(日) 14:26

γ様

ご連絡有難うございます。

教えて頂きました式を標準モジュールに貼り

条件付き書式に=Hasformula(A1)を貼り付けてやって見ましたが

上手くいきませんでした。

やり方に問題が有るのでしょうか

私なりに、色々試してみたのですが分かりませんでした。

エクセル初級の私に分かる様に教えて頂けないでしょうか

宜しくお願い致します。
（つむつむ） 2015/06/21(日) 17:03

 γさんはお散歩のようですので、弟子のβから。

 条件式は =isNumberButBynotFormula(A1) ですが？

 もし、長ったらしい名前なので、Hasformula　のほうがいいということであれば
 標準モジュールに書かれている古い HasFormula マクロを消して、今回、γさんがアップされたコードの
 ２か所の　isNumberButBynotFormula　を　HasFormula になおして試してみてください。

（β） 2015/06/21(日) 17:23

γ様
β様
有難うございました。
β様に教えて頂きました=isNumberButBynotFormula(A1)を条件付き書式に貼り思い通りの結果が出来ました。

γ様とβ様が先生と弟子の関係だったんですね
初めて知りました。

早速明日、会社でやって見ます。

お二人とも本当に有難うございました。
（つむつむ） 2015/06/21(日) 17:34

 βさん、フォローありがとうございました。

 つむつむさん、お役に立てればうれしいです。
 長い名前ですが、=ISまで入力すると、入力候補にisNumberButBynotFormulaが表示されるので、
 それを選択すればいいんですよね。
 # 最初、それに気づかずに、デフォルトの名前と被ったかと思ったのは、この際、秘密にしたい。

 以下、余談です。

 ちなみに、βさんが師匠ですよ。
 冗談を真に受けないようにしてね。
 （サンデーC級コーダーの積もりで、γです。）

 ギリシャ文字だって、γより、βさんのほうが先に来るでしょ？
 もっとも、私が某掲示板でγを使い出したのは、βさんより少し早かったかもしれませんが。
（γ） 2015/06/21(日) 17:49

γ様

ご連絡頂きまして有難うございます。

β様が師匠だったんですね、すっかり騙されてしまいました。

又、ご相談する時が有ると思いますが

宜しくお願い致します。

本当に有難うございました。

（つむつむ） 2015/06/21(日) 18:44

 いえいえ、私は正直者ですよ。
 VBAに限らず、プログラム一般にかんして、さらには理数系の分析技術に至るまで、奥行も深さも、もちろん熟達度も
 γさんのそれらは、信じられないぐらい素晴らしいです。

 βは、単なる、業務処理アプリのコテコテ職人です。

（β） 2015/06/21(日) 19:57

 βさん、痛み入ります。精進致します。
 それにしても、最近のβさんのご活躍ぶりは、質量ともに鬼神の領域に入っていますね。

（γ） 2015/06/21(日) 22:45

コメント返信：

[ 一覧(最新更新順) ]

[[20150621090815]] 『指定したセルが数値だったら色を付ける 計算式だ』（つむつむ） ページの最後に飛ぶ

[[20150621090815]]　『指定したセルが数値だったら色を付ける　計算式だ』（つむつむ）　ページの最後に飛ぶ