スプレッド上セルの値をテキストボックスに表示させるには

解決

魚武 2007-01-25 19:37:26 No: 134998

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)

matsu 2007-01-25 21:34:43 No: 134999

>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メソッドもあります。

魚武 2007-01-25 21:46:00 No: 135000

指示通りにプログラムを組んだら解決しました。

ありがとうございました。