[[20230314101656]] 『VBAで計算式で絶対参照を使えてるかどうかの正解煤x(B) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『VBAで計算式で絶対参照を使えてるかどうかの正解判定』(B)

Excelの研修資料を作っています。
計算式を入れる問題で、正しく入力できているかの判定できるものをVBAで作ったのですが、
セルが絶対参照で入力できているかどうかの判定ができません。

例えば、金額×個数の計算式を入力する表を作る問題だったとして、
金額は固定なので絶対参照でセルを入力して欲しい場合です。

< 使用 Excel:Excel2016、使用 OS:Windows10 >


>金額は固定なので絶対参照
意味不明。
あと、作ったVBAをのっけてみたら?

(通りすがり) 2023/03/14(火) 10:34:10


ん?
Formulaプロパティを見るのではNGなんですか?
もう少し詳しく説明してもらえますか?
(abc) 2023/03/14(火) 10:37:00

>正しく入力できているかの判定できるものをVBAで
どのように判定しているのですか?
単なる文字列比較をしているのでしょうか
(初心者です) 2023/03/14(火) 11:16:33

VBA でなくとも
数式 → ワークシートの分析 → 数式の表示 で確認できるけど。

(AAA) 2023/03/14(火) 11:41:11


そうですか。
報告おつかれさまです。
(どうでもいいですが)
(さんこう) 2023/03/14(火) 15:04:28

 >正しく入力できているかの判定できるものをVBAで作ったのですが、

 どんな感じの物ですか?
(興味本位) 2023/03/15(水) 08:19:35

    Sub sample()
      Dim targetCell As Range, aCell As Range
      Set targetCell = ActiveCell
      For Each aCell In targetCell.Precedents
         Select Case True
            Case targetCell.Formula Like "*" & aCell.Address(True, True) & "*":   Debug.Print aCell.Address(True, True); vbTab; "行絶対 列絶対"
            Case targetCell.Formula Like "*" & aCell.Address(True, False) & "*":  Debug.Print aCell.Address(True, False); vbTab; "行絶対 列相対"
            Case targetCell.Formula Like "*" & aCell.Address(False, True) & "*":  Debug.Print aCell.Address(False, True); vbTab; "行相対 列絶対"
            Case targetCell.Formula Like "*" & aCell.Address(fasle, False) & "*": Debug.Print aCell.Address(False, False); vbTab; "行相対 列相対"
         End Select
      Next
    End Sub
(´・ω・`) 2023/03/15(水) 10:30:00

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.