| 投稿日 | ： 2003/07/06(Sun) 13:10 |
| 投稿者 | ： ゆうや |
| Ｅメール | ： curren62036@yahoo.co.jp |
| ＵＲＬ | ： |
| タイトル | ： 謝辞： Excel内の判定式結果の取得について。 |
随分前の書込みですがすみません。
NEU(ノイ)さんに御指摘を受けて自分でデバッグしてみました。
多分これならいけるのではないでしょうか。。。。。
'------------------------------------------------------------------
'■関数名 :IsCellBoolean
'■モジュール名 :セル条件式結果取得処理
'■用途 :セルに組み込まれた条件式のTrue／Falseを取得する。
'■引数 :strCellValue：セルの表示文字
' :strCellFormula：セルに組み込まれている条件式
'■戻り値 :True:条件式結果がTrue／Flase:条件式結果がFalse
'------------------------------------------------------------------
Private Function IsCellBoolean(strCellValue As String, strCellFormula As String) As Boolean
Dim strTemp() As String 'セルに組み込まれている条件式を文字列で格納
IsCellBoolean = True '戻り値True初期設定
strTemp() = Split(strCellFormula, """") '条件式をカンマで区切って配列の格納
If strCellValue = strTemp(UBound(strTemp) - 1) Then 'Flase結果文字列と一致の場合
IsCellBoolean = False '戻り値False設定
End If
End Function
例) xlSheet.Cells(1, 2) を調べる場合
Dim bln_value As Boolearn
bln_value = IsCellBoolean(xlSheet.Cells(1, 2).Value, xlSheet.Cells(1, 2).Formula)