0

どうかお力添えをお願いいたします。

テーブルに挿入するためにVBAでそのデータを回復したい後、ユーザーがフォームスプレッドシートにデータを貼り付けるオプションを持つフォームを作成しようとしています。

その Active X スプレッドシートをどのように使用できますか?? たとえば、セルA1の値を知るにはどうすればよいですか????

私を助けてください。

4

2 に答える 2

0

バインドされたコントロールまたはバインドされていないコントロールでオブジェクトを参照できます。

Private Sub Command3_Click()
    Set obj = Me.OLEUnbound0.Object
    MsgBox obj.ActiveSheet.[a1]
End Sub

ユーザーにデータを含む Excel シートの名前を教えてもらう方が簡単だと思います。この方法にはかなりのトレーニングが必要になると思います。

于 2013-02-22T11:11:06.340 に答える
0 
Set mySht = Me.Spreadsheet

mySht と .ActiveWindow.ActiveSheet lastColumn = .UsedRange.Columns(mySht.ActiveWindow.ActiveSheet.UsedRange.Columns.Count).Column lastrow = .Range("A" & mySht.ActiveWindow.ActiveSheet.Rows.Count).End( xlUp).Row End With End With

MsgBox "表の次元、行 = " & lastrow & " 列 = " & lastColumn

ReDim linea(lastColumn)

i = 1 の場合 lastrow へ j = 1 の場合 lastColumn へ

    mySht.Cells(i, j) 'something with the cell (i, j)
Next ' end line

Next ' next Line ' dispose Set mySht = Nothing

于 2013-02-27T13:55:42.417 に答える