条件付き書式の真偽を判定したく、
調べていて、下記を探しました。
Sub test9()
If ActiveCell.FormatConditions.Count > 0 Then
MsgBox "条件付き初期の設定があります。"
If Evaluate(ActiveCell.FormatConditions(1).Formula1) Then
MsgBox "条件を満足しています。"
Else
MsgBox "条件は満足していません。"
End If
Else
MsgBox "条件付き書式の設定はありません。"
End If
End Sub
上手く機能しているので、いろいろなセルを指定したく、
このコードの「ActiveCell」を「cells(r,c)」に置き換えたのですが、
結果がおかしく、念の為に下記を書いてみました。
Sub test5()
MsgBox Cells(11, 8).Value
MsgBox Range("G11").Value
End Sub
全く何処の中身かわからない数字が表示されました。
理由と、対処方法を教えて下さい。
宜しくお願いします。
関係ないと思いますが、excel2003です。
No.2ベストアンサー
- 回答日時:
横からお邪魔します。
MsgBox Cells(r, c).FormatConditions(1).Formula1
でセルの条件を確認してみてください。
想定しているものと違う条件になっているのではないでしょうか。
理由はこちらを参考にどうぞ
https://www.moug.net/tech/exvba/0110009.html
早速ありがとうごっざいます。
解決しました。
貼っていただいたリンクに出ていた通りでズバリでした。
作業の性質上、$を外して広範囲にコピーした広場を参照しています。
この命令を使う前に、cells(r,c).select を入れて解決です。
全く気が回っていませんでした、
これでまた再開できます。
深謝です。
No.1
- 回答日時:
こんにちは
>「ActiveCell」を「cells(r,c)」に置き換えたのですが、
>結果がおかしく~~
そのようなことはないはずと思いますが・・・?
>念の為に下記を書いてみました。
ご提示の
>MsgBox Cells(11, 8).Value
>MsgBox Range("G11").Value
は異なるセルの値を参照していますけれど、意図的ですか?
前者はH11セル、後者はG11セルの参照になります。
>全く何処の中身かわからない数字が表示されました。
実際のセルの値がどうなっていて、表示値がどうなっているのでしょうか?
例えば、セルの表示が時刻や日時の場合には、取得されるのはシリアル値と言われる日付型の数値になるので、表示値とは異なる数値になったりします。
(上例の場合は、セルの書式を「標準」にした際の表示値になります)
早速有難うございます。
まず、8とGの違い、私の間違いでした。
たまたまHの欄が大きな桁で####で埋まっていたため、
とんでもないせるかと思いこんでしまいました。
正したところ、この表現では問題なく機能しています。
ただ、本題の方は誤りがないと思います。
以下のとおりです。
Sub test92()
Dim r As Long
Dim c As Long
r = 11
c = 8
MsgBox Cells(r, c).Value
If Cells(r, c).FormatConditions.Count > 0 Then
MsgBox "条件付き初期の設定があります。"
If Evaluate(Cells(r, c).FormatConditions(1).Formula1) Then
MsgBox "条件を満足しています。"
Else
MsgBox "条件は満足していません。"
End If
Else
MsgBox "条件付き書式の設定はありません。"
End If
End Sub
ここに追加した
MsgBox Cells(r, c).Value
は正しく値を表示しています。
かつ、書式の設定有無については正しく判定されているように思います。
結果の満足(真偽)が期待した結果を返さないように見えます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
エクセルのツールバーから数値が消えました。
Excel(エクセル)
-
Excel 対象のセルに入力が無いとセルに入力できないようにしたい
Excel(エクセル)
-
エクセルを使っていて2024/5/15と入力したのに令和元年とかででるのでしょうか?何か設定分かる方
Excel(エクセル)
-
-
4
エクセルの「赤」の印刷がうまくできなくなりました。
Excel(エクセル)
-
5
とびとびの大量セルを選択したいのですが・・・
Excel(エクセル)
-
6
エクセルで 自動的に◯や数字を表示させることできます? 例えばなんですが 日付 山田 1 ◯ みたい
Excel(エクセル)
-
7
【ExcelVBA】UTF-8(BOM無)でCSV保存するには?
Excel(エクセル)
-
8
Excel初心者です。 詳しい方、効率の良いやり方を教えてください。 職場で、抽出したデータの表を見
Excel(エクセル)
-
9
自動入力で今月はMONTH(TODAY())で良いのですが、翌月はどのようにすれば良いでしょうか。
Excel(エクセル)
-
10
西暦や和暦の表示をyyyymmdd表示へ変更をしたい
Excel(エクセル)
-
11
【関数】スペースがいくつ入った後の文字列を取り出したい
Excel(エクセル)
-
12
職場の人から聞かれており、こんなことができるか教えて下さい。 vbaとかはできません。。 下記リスト
Excel(エクセル)
-
13
ExcelやWordを開くと、写真に書いてあることが出てきます。 ネットで調べて、再起動の仕方を試し
Excel(エクセル)
-
14
Excelを無料で使うには? パソコン購入して、マイクロソフトに登録して そのままExcelがデスク
Excel(エクセル)
-
15
複数のテキストファイルをexcelでそれぞれ別シートにUTF-16で書き出したい
Excel(エクセル)
-
16
win10でexcel2003
Excel(エクセル)
-
17
【マクロ】ファイル名の変更について
Excel(エクセル)
-
18
CELL関数のヘルプ文の意味?
Excel(エクセル)
-
19
絶対参照
Excel(エクセル)
-
20
ある表にフィルターをかけて出てきた記号の個数を知りたいのですが、簡単な関数はないでしょうか?
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【Excel】 1つのセルの日にちを...
-
オルトキーを押しながら?
-
【Excel】年月の値によって日の...
-
Excelの警告について
-
エクセルについての質問です。 ...
-
エクセルで80万行、50列位のデ...
-
Excelの計算が合いません。 諸...
-
EXCELの散布図で日付が1900年に...
-
今まで文字化けなく開けていたc...
-
エクセルでファイルの最終更新...
-
エクセルの数式バーのフォント...
-
ゼロを表示
-
Excel 小さくなったスクロール...
-
ExcelでASCを使って全角を半角...
-
Microsoft 365Excelの見開きペ...
-
index関数の説明をお願いします。
-
エクセルの質問です。 F列からL...
-
エクセルの文字が途中から消える
-
Excelの時刻の不思議
-
作成した数式を値として表示し...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelの警告について
-
Excelで数値を時間数に変換する...
-
エクセルの数式バーのフォント...
-
エクセルで数字の組み合わせを...
-
エクセルを使用して、円周率を...
-
Excelで特定の文字列が含まれて...
-
Excel 対象のセルに入力が無い...
-
任意の値が存在する行に名前を...
-
エクセルでファイルの最終更新...
-
index関数の説明をお願いします。
-
条件付き書式でやりたいのですが
-
重複しない値を取り出したい
-
【ExcelVBA】UTF-8(BOM無)でC...
-
【マクロ】マクロが割当てされ...
-
エクセル IF計算式?でしょうか?
-
エクセルで曜日を入れたい
-
表中の指定した条件の文字列を...
-
【Excel】版が同じ事を示す番号...
-
EXCELの散布図で日付が1900年に...
-
Excelについて。Excelに縦1列に...
おすすめ情報
よく読ませて頂きました。
ブックマークしておきました。
2番の方のお礼にかきましたが、問題なく動いています。