正方形の完成プロセスを学習するのに役立つアプリケーションを Excel で作成しています。変数が整数の場合はセルを数値としてフォーマットし、そうでない場合は分数としてフォーマットします。
If h = (Int(h)) Then
Range("D1").Select
Selection.NumberFormat = "Number"
Else
Range("D1").Select
Selection.NumberFormat = "?/?"
End If
このコードは何らかの理由で機能せず、次のエラーが表示されます。
Range クラスの NumberFormat プロパティを設定できません
これを行うことができる他の方法はありますか?