Question

我最近开始学习如何使用VBA，因为我突然进入了一个我需要知道它的位置。我一直在研究编码等等，但我觉得我在搞乱每一步。我被要求创建一个用户表单，人们可以在其中输入他们的时间，日期，生产，任务和评论框。我还被要求锁定输入表和数据表，最重要的是我的老板希望表单本身在关闭时保存，这样当工人输入他们的信息时他们就不会保存。

Private Sub cmdAdd_Click()
Dim lRow As Long
Dim lPart As Long
Dim ws As Worksheet
Set ws = Worksheets("Data")

'find first empty row in database
lRow = ws.Cells.Find(What:="*", SearchOrder:=xlRows, _
SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1




'check for a part number
If Trim(Me.txtComment.Value) = "" Then
  Me.txtComment.SetFocus
  MsgBox "Comment is required"
  End If

  'check for a part number
If Trim(Me.ComboBox1.Value) = "" Then
  Me.ComboBox1.SetFocus
  MsgBox "Date is required!"
  End If

  'check for a part number
If Trim(Me.txtTime.Value) = "" Then
  Me.txtTime.SetFocus
  MsgBox "Time is required"
  End If

  'check for a part number
If Trim(Me.cboProject.Value) = "" Then
  Me.cboProject.SetFocus
  MsgBox "Project is required"
  End If

  'check for a part number
If Trim(Me.cboTask.Value) = "" Then
  Me.cboTask.SetFocus
  MsgBox "Task is required"
  Exit Sub
End If

'copy the data to the database
'use protect and unprotect lines,
'     with your password
'     if worksheet is protected
With ws
'  .Unprotect Password:="password"
  .Cells(lRow, 1).Value = Me.ComboBox1.Value
  .Cells(lRow, 2).Value = Me.txtTime.Value
  .Cells(lRow, 3).Value = Me.txtCount.Value
  .Cells(lRow, 4).Value = Me.cboUser.Value
  .Cells(lRow, 5).Value = Me.cboProject.Value
  .Cells(lRow, 6).Value = Me.cboTask.Value
  .Cells(lRow, 7).Value = Me.txtComment.Value
'  .Protect Password:="password"


'clear the data
Me.cboUser.Value = ""
Me.ComboBox1.Value = ""
Me.txtTime.Value = ""
Me.txtCount.Value = ""
Me.cboProject.Value = ""
Me.cboTask.Value = ""
Me.txtComment.Value = ""
Me.ComboBox1.Value = Format(Date, "Short Date")

MsgBox ("Work Submitted, proceed to close the form and save the workbook.")




End With
End Sub

事先道歉，代码可能有多糟糕，但它似乎对我的工作进展得足够好，唯一的问题就是当我最近测试时，即使我有一条消息说要求评论或需要任务它仍会将信息粘贴到我不想发生的数据表中。

Excel Userform编码结构

0 个答案: