| |
▼meka さん：
>1.未定義配列の見分け方
>○質問
> 動的な配列として宣言した変数が、Redimにより
> 配列として実体化されているかを調べる方法
>○ソース
>Sub test()
>
> Dim tmp() As Integer
> Dim flg As Boolean
>
> If tmp Is Nothing Then ’←配列がまだ実体でない事を調べたい
> flag = True
> End If
>
>End Sub
> 「Is Nothing」でも「IsNull」でも見分ける事が
> できませんでした
↑こちらはわからないので、
↓こちらだけ
>2.セルの表示文字をそのまま取得する方法
>○質問
> セルから値を取得する際、表示されている値を
> 取得する方法
>○ソース
>Sub test1()
> Dim str As String
>
> str = Cells(1, 2) ’←B1には1と入力している
> ’（形式を指定して実際には1.00と
> ’セルに表示されている）
>
>End Sub
> strには1が設定されてしまう。表示されているままの1.00を
> strに設定したい。
>
Sub test()
Dim str As String
str = Cells(1, 2).Text
MsgBox str
End Sub
|
|
ponpon
- 08/7/9(水) 20:39 -
