投稿日 | : 2003/06/28(Sat) 19:05 |
投稿者 | : NEU(ノイ) |
Eメール | : |
URL | : |
タイトル | : Re: Excel内の判定式結果の取得について。 |
関数をつくってみました。エラー処理はしていません。
Private Function IsCellBoolean(strCellValue As String, strCellFormula As String) As Boolean
Dim strTemp() As String
strTemp() = Split(strCellFormula, """")
IsCellBoolean = strCellValue <> strTemp(UBound(strTemp) - 1)
End Function
例) xlSheet.Cells(1, 2) を調べる場合
Debug.Print IsCellBoolean(xlSheet.Cells(1, 2).Value, xlSheet.Cells(1, 2).Formula)