PowerpointのVBA：テキストボックスの値

Question

パワーポイントの2つのテキストボックスの値を比較し、数値の高いものを強調表示したいと考えています。ここで

は私のコードです：残念ながら

If ActivePresentation.Slides(4).Shapes("Rectangle 84").TextFrame.TextRange.Text.Value >= ActivePresentation.Slides(4).Shapes("Rectangle 95").TextFrame.TextRange.Text.Value Then XXXX 

長方形84は、その後、現在6が強調表示され、6の値を「11」の値を持ち、長方形95場合。 テキストを数値に変換する方法はありますか？正しい結果が得られますか？

おかげ ジェームズ

Answer 1

は、あなたが非整数を期待していた場合（doubleに変換する）CLng（longに変換）またはCDblを使用して、たとえば、最初の数値に値を変換してみます。彼らはアルファベット順にソートされますので、

If CDbl(ActivePresentation.Slides(4).Shapes("Rectangle 84").TextFrame.TextRange.Text.Value) >= CDbl(ActivePresentation.Slides(4).Shapes("Rectangle 95").TextFrame.TextRange.Text.Value) Then XXXX 

文字列"11"は"6"よりも「小さい」です。テキストタイプを防ぐために、変換する前にIsNumericを使用して有効である場合にもチェックできる

は `CInt`または` Cdbl`は、あなたがテキストを数値に変換することができ