1
Private Sub CommandButton1_Click()

Dim actual_sheet As String

actual_sheet = "Sheet1"

Dim data_base As Variant

data_base = Sheets(actual_sheet).Range("G4:K100000")

nome = TextBox1.Value
Age = TextBox2.Value
Adress = TextBox3.Value
Phone = TextBox4.Value

For i = 1 To UBound(data_base)

    Line_at = data_base(i, 1)

    If Line_at = "" Then

        ' id
        data_base(i, 1) = i
        'name
        data_base(i, 2) = nome
        'age
        data_base(i, 3) = Age
        'adress
        data_base(i, 4) = Adress
        'phone
        data_base(i, 5) = Phone

        Exit For

    End If

Next


Sheets(actual_sheet).Range("G4:K100000") = database

UserNew.Hide



End Sub

と呼ばれるユーザー用のフォームがありUserNew、「データベース」にいくつかの情報が必要です*演習用のテーブル*ですが、CommandButton_1をクリックしても「data_base」には何も起こりません。デバッグしたところ、値が実際にあることがわかりました合格しましたが、書き込み部分に問題があると思います...うまくいかないのかわかりません....どんな助けも大歓迎です。
実際には sub(name,age,address,phone) に値を渡すことができますが、この例のように自動的にこれを行う方法はありますか?

4

1 に答える 1

1

淡色表示されましdata_baseたが、範囲に戻す場合は を使用しますdatabase。常に、常にOption Explicitモジュールの先頭に置き、すべての変数を宣言してください。

于 2013-11-12T20:27:30.370 に答える