| 投稿日 | ： 2003/06/30(Mon) 06:25 |
| 投稿者 | ： ゆうや |
| Ｅメール | ： curren62036@yahoo.co.jp |
| ＵＲＬ | ： |
| タイトル | ： 御礼: Excel内の判定式結果の取得について。 |
花ちゃんさん、NEU(ノイ)さん
お返事ありがとうございました！！！
花ちゃんさんの通り、使えそうな関数が見つからなかったのですが、
NEU(ノイ)さんが紹介してくださったNEU(ノイ)さん作の関数を使わせていただこうと思います。
因みに、以下のようにしました。
特別なエラー処理は施してはいないのですが、自分でデバッグした結果、
True/Flaseの結果をそれなりに取得できたので使えそうかナと思いまして。
どうもありがとうございました！！！
Private Function IsCellBoolean(strCellValue As String, strCellFormula As String) As Boolean
Dim strTemp() As String
strTemp() = Split(strCellFormula, """")
' IsCellBoolean = strCellValue <> strTemp(UBound(strTemp) - 1)
IsCellBoolean = strCellValue Like strTemp(UBound(strTemp) - 1)
End Function
例) xlSheet.Cells(1, 2) を調べる場合
Dim bln_value As Boolearn
'セル内の条件式がTrue結果ならTrue、False結果ならFalseを取得
bln_value = IsCellBoolean(xlSheet.Cells(1, 2).Value, xlSheet.Cells(1, 2).Formula)