GetTextを使用してスプレッド上セルの値をテキストボックスに表示させるプログラムを作成しようとしているのですが、GetTextに挿入するVariant関数がよくわかりません。
ヘルプを見てもよく分からなかったのでどなたか詳しく教えて下さい。
参考までに作成したプログラムをいかに記しておきます。
Dim ArrayTemp() As Variant
SpdKensaku.Row = Row
If SpdKensaku.Row = 0 Then
With SpdKensaku
.ReDraw = False
.InsertRows 1, 1
.ReDraw = True
End With
Exit Sub
End If
TxtSeal.Text = SpdKensaku.GetText(1, Row, ArrayTemp)
>GetTextを使用してスプレッド上セルの値をテキストボックスに表示させるプログラムを作成しようとしているのですが、GetTextに挿入するVariant関数がよくわかりません。
>ヘルプを見てもよく分からなかったのでどなたか詳しく教えて下さい。
>
>参考までに作成したプログラムをいかに記しておきます。
>
> Dim ArrayTemp() As Variant
> SpdKensaku.Row = Row
> If SpdKensaku.Row = 0 Then
> With SpdKensaku
> .ReDraw = False
> .InsertRows 1, 1
> .ReDraw = True
> End With
> Exit Sub
> End If
> TxtSeal.Text = SpdKensaku.GetText(1, Row, ArrayTemp)
GetTextの使い方が間違っていると思います。
Dim ArrayTemp As Variant
Call SpdKensaku.GetText(1, Row, ArrayTemp)
TxtSeal.Text = ArrayTemp
GetTextの戻り値は取得したテキストではありません。
配列で取得するGetArrayメソッドもあります。
指示通りにプログラムを組んだら解決しました。
ありがとうございました。
ツイート | ![]() |