Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


40669 / 76736 ←次へ | 前へ→

【41160】Re:数式の入っているセル色変更
発言  ichinose  - 06/8/1(火) 9:14 -

引用なし
パスワード
   おはようございます。

現象をExcel2002で確認しました。

再現手順

・新規ブックの標準モジュールに

'============================================
Function siki(rng As Range) As Boolean
  siki = rng.HasFormula
End Function

を記述します。


・Sheet1のシートにて、セルA1を選択します。

・選択した状態で「書式」----「条件付書式」とクリックして、
 「条件付き書式の設定」ダイアログを表示させます。

・ここで条件を設定します。「セルの値が」と表示されているコンボボックスを
 「数式が」に変更します。

・上記のコンボボックスのすぐ右隣にあるテキストボックスに
 「=siki(a1)」と入力します(両端の「」は除く)。

・書式ボタンをクリックして「パターン」タブで色として赤を選択して
 OKボタンをクリックしてください。再度、「条件付き書式の設定」ダイアログに
 戻りますから、OKボタンで設定を終了してください。

これで、準備完了です。

試しにSheet1のセルA1に「=a2」と入力してみてください。
セルA1が赤く塗りつぶされるはずです。


・Sheet1のセルA1に「aaa」と入力してください(両端の「」は除く)。
 塗りつぶしが消えますよね!!

・Sheet2のシートを選択してください。

・セルD2に 「=」(両端の「」は除く)を入力した状態
 (カーソルはセルD2内で点滅している状態)でSheet1のセルA1を
 選択します。

・Sheet1のセルA1は、破線で囲まれ、数式バーには、「=Sheet1!A1」と表示されています。

・このまま、確定のEnterキーを押してください。

この時の結果はまちまちですが、少なくともSheet2のセルD2には、
何も入力されていないという現象になりました。

代わりにSheet1のセルD2に #REFになる場合もありましたし、

また、Sheet1のセルA1の結果を参照している場合もあります。
このときは、Sheet1のD2には「=Sheet1!A1」と入力されています。
 
ユーザー定義関数 siki に何らかの問題がありそうですねえ!!


新規ブックの標準モジュールに

'===========================================================
Sub main()
  Application.Names.Add "hformula", , , , , , , , , "=get.cell(48,rc)"
  With Worksheets("sheet1").Range("a1:z100")
    .FormatConditions.Delete
    .FormatConditions.Add Type:=xlExpression, Formula1:="=hformula"
    .FormatConditions(1).Interior.ColorIndex = 3
    End With
End Sub


シートSheet1をアクティブにして、mainを実行してみてください。

上記のコードはSheet1のセルA1:Z100のセル範囲に対して、
数式が入っていれば、赤く塗りつぶす条件付き書式を設定しています。


これで同じようにSheet2のセルD2から「=」と入力して
Sheet1のセルA1を参照してみてください。

今度は、正しくSheet2のD2に数式が反映されるはずです。

試してみてください。
0 hits

【41129】数式の入っているセル色変更 なーちん 06/7/31(月) 15:41 質問
【41133】Re:数式の入っているセル色変更 ぱっせんじゃー 06/7/31(月) 16:58 発言
【41134】Re:数式の入っているセル色変更 Jaka 06/7/31(月) 17:00 発言
【41135】Re:数式の入っているセル色変更 なーちん 06/7/31(月) 17:29 発言
【41136】Re:数式の入っているセル色変更 ぱっせんじゃー 06/7/31(月) 18:05 発言
【41137】Re:数式の入っているセル色変更 なーちん 06/7/31(月) 18:10 発言
【41138】Re:数式の入っているセル色変更 ぱっせんじゃー 06/7/31(月) 18:17 発言
【41139】Re:数式の入っているセル色変更 なーちん 06/7/31(月) 18:29 質問
【41160】Re:数式の入っているセル色変更 ichinose 06/8/1(火) 9:14 発言
【41162】Re:数式の入っているセル色変更 なーちん 06/8/1(火) 10:27 お礼
【41165】Re:数式の入っているセル色変更 ichinose 06/8/1(火) 12:25 発言
【41170】Re:数式の入っているセル色変更 なーちん 06/8/1(火) 14:35 お礼
【41161】Re:数式の入っているセル色変更 m2m10 06/8/1(火) 9:55 発言
【41163】Re:数式の入っているセル色変更 なーちん 06/8/1(火) 10:39 お礼
【41174】Re:数式の入っているセル色変更 m2m10 06/8/1(火) 14:45 発言

40669 / 76736 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free