Metodo o dati non trovati nel semplice programma VBA

Ho cercato di fare un semplice task in VBA; Sto scrivendo una GUI per un foglio di calcolo Excel che è in possesso di un inventario. Consente agli utenti di immettere informazioni nella GUI fare clic su OK e tutto ciò che digitato viene salvato nel documento excel.

Tuttavia each volta che eseguo il codice riportto di seguito trovo un errore di compilatore "Metodo o dati non trovati".

  • Utilizzo di VBA per eliminare una row basata sul tempo in una colonna e il valore in un altro
  • c # modifica il file excel se le pagine di printing> 1?
  • Grafici Excel + C #
  • Aggiunta di complessità a un eventuale altro loop
  • Riferimento a Value Name di controllo di Userform Value Excel da string (VBA)
  • Accesso al model di oggetti di Excel da Javascript
  • Private Sub Label1_Click() End Sub Private Sub Label4_Click() End Sub Private Sub cmdAdd_Click() 'Copy input values to sheet. Dim lRow As Long Dim ws As Worksheet Set ws = Worksheets("Inventory") lRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row With ws .Cells(lRow, 1).Value = Me.AssetType.Value .Cells(lRow, 2).Value = Me.AssetNumber.Value .Cells(lRow, 4).Value = Me.Description.Value .Cells(lRow, 5).Value = Me.SerialNbr.Value .Cells(lRow, 6).Value = Me.CurrentUse.Value .Cells(lRow, 7).Value = Me.DateRec.Value .Cells(lRow, 8).Value = Me.FundingSource.Value .Cells(lRow, 9).Value = Me.Manufacturer.Value .Cells(lRow, 10).Value = Me.Model.Value .Cells(lRow, 11).Value = Me.Contract.Value .Cells(lRow, 12).Value = Me.Status.Value .Cells(lRow, 13).Value = Me.Room.Value .Cells(lRow, 14).Value = Me.OfficeLocation.Value .Cells(lRow, 19).Value = Me.Custodian.Value .Cells(lRow, 20).Value = Me.ExcessedDate.Value .Cells(lRow, 21).Value = Me.ExcessAuthorization.Value .Cells(lRow, 22).Value = Me.Comments.Value .Cells(lRow, 23).Value = Me.OutDate.Value End With 'Clear input controls. Me.AssetType.Value = "" Me.AssetNumber.Value = "" Me.Description.Value = "" Me.SerialNbr.Value = "" Me.CurrentUse.Value = "" Me.DateRec.Value = "" Me.FundingSource.Value = "" Me.Manufacturer.Value = "" Me.Model.Value = "" Me.Contract.Value = "" Me.Status.Value = "" Me.Room.Value = "" Me.OfficeLocation.Value "" Me.Custodian.Value "" Me.ExcessedDate.Value "" Me.ExcessAuthorization.Value "" Me.Comments.Value "" Me.OutDate.Value "" End Sub Private Sub cmdClose_Click() 'Close UserForm. Unload Me End Sub Private Sub Cmdbutton_add_Click() End Sub Private Sub Model_Click() End Sub Private Sub UserForm_Click() End Sub 

  • Come creare condizioni in VBA per each colonna in foglio singolo
  • Confronto string con con citazione contro string senza citazione
  • Modo semplice per rimuovere le liste in bianco dynamic dropdown list Excel
  • Come faccio a cercare una parola in Excel utilizzando VBA e quindi eliminare l'intera row?
  • VBA & MS Excel 2010 Errore di run-time '13'
  • Il POI di Apache è estremamente lento
  • One Solution collect form web for “Metodo o dati non trovati nel semplice programma VBA”

    Ottieni il valore di una casella di text dalla properties; .text della casella di text.

    Se la casella di text è denominata AssetType, sarebbe

     .Cells(lRow, 1).Value = AssetType.Text 

    Potrebbe essere necessario utilizzare il nome del module.

     .Cells(lRow, 1).Value = UserForm1.AssetType.Text 
    Microsoft Office Excel Spreadsheet è il miglior software di Office, Excel VBA e formule Excel rendono il foglio di calcolo più veloce.