使用命令按钮显示VBA用户表单数据，并允许输入的数据进行编辑

问题描述

我正在创建一个院子管理系统来跟踪很多开放的停车位。用户表单允许用户单击地图上打开的一个点（这将是命令按钮），然后单击更新，这将拉出另一个用户表单，以便他们可以填写有关去往该卡车的卡车的信息列表。点。用户在第二个用户表单中填写信息后，该点将从绿色更改为红色，以显示该信息已被填充。目前，我无法编辑为单个位置输入的数据。例如，我可能需要将卡车状态从空转为满。我认为，执行此操作的最佳方法是指定一个红色斑点（又名已满，并且已在用户表单中输入了信息），那么它将自动拉出第二个用户表单，并将已输入的数据显示为空白，因此如果需要更改某些内容，只需在文本框中输入内容，然后再次按更新即可。否则，如果该斑点为空，则应拉出第一个要求更新或清除该斑点的用户表单。我是VBA的新手，我正在学习，所以我不确定这是否可行或最有效的方法来实现我的目标，即能够编辑已输入的信息而无需再次填写整个用户表格。>

我附上了一些希望会对您有所帮助的代码：

Private Sub cmdCancel_Click()

    Unload Me

End Sub

Private Sub cmdClear_Click()

    ActiveCell.ClearContents
    ActiveCell.Interior.Color = vbGreen
    Unload Me

End Sub

Private Sub cmdUpdate_Click()

    UpdateInfo.Show
    Unload Me

End Sub

Private Sub CommandButton1_Click()

    UpdateInfo.Show
    Unload Me

End Sub

Private Sub UserForm_Initialize()

    lblInfo = ActiveCell.Value

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Set rngBDock = Range("BX7:CO7")
Set rngBulk = Range("BZ21:CG21")
Set rngTransT = Range("BF17:BY17")
Set rngTransT1 = Range("BG21:BY21")
Set rngTDock = Range("BL7:BW7")
Set rngEDock = Range("CP7:CT7")
Set rngNDock = Range("CU7:DC7")
Set rngFence = Range("CQ13:CV13")
Set rngNSide = Range("CW13:DB13")
Set rngGEO = Range("BG28:DD28")
Set rngNight = Range("CH21:DD21")
Set rngNewT = Range("DK31:DK65")
Set rngNewTl = Range("DI31:DI65")
Set rngOff = Range("BN40:CL40")
Set rngOffl = Range("BN42:CL42")
Set rng = Union(rngBDock,rngBulk,rngTransT,rngTransT1,rngTDock,rngEDock,rngNDock,rngFence,rngNSide,rngGEO,rngNight,rngNewT,rngNewTl,rngOff,rngOffl)

 If Not Intersect(Target,rng) Is Nothing Then
        CellInfo.Show
        'ActiveCell.Value = cellFill
        If Not IsEmpty(ActiveCell.Value) Then
            Call RealTimeTracker
        End If
    End If

Private Sub cmdOkUpdate_Click()

Dim i As Integer,j As Integer

For i = 0 To lbxOption.ListCount - 1
    If lbxOption.Selected(i) Then j = j + 1
Next i
If j = 0 Then
    MsgBox "Please select an option. ","Warning"
    Unload Me
    UpdateInfo.Show
ElseIf j = 1 Then
    NoFill = False
End If

strBOL = txtBOL.Value
strID = txtID.Value
details = txtDet.Value
opt = lbxOption.Value
currtime = time()
today = Format(Now(),"MM/DD/YYYY")
emp = TextBox1.Value

With ActiveCell
    spot = .Offset(-1,0)
    If Len(spot) = 0 Then
        spot = .Offset(1,0)
    Else
        spot = spot
    End If
End With


If NoFill = True Then
    cellFill = ""
ElseIf NoFill = False Then
    With Sheet5

    .Range("A1").Value = "Time"
    .Range("B1").Value = "Date"
    .Range("C1").Value = "Location"
    .Range("D1").Value = "Category"
    .Range("E1").Value = "BOL"
    .Range("f1").Value = "Trailer #"
    .Range("g1").Value = "Details"
    .Range("H1").Value = "EE Name"
    
    .Range("A2").EntireRow.Insert
    .Range("A2").Value = currtime
    .Range("B2").Value = today
    .Range("C2").Value = spot
    .Range("D2").Value = opt
    .Range("E2").Value = strBOL
    .Range("F2").Value = strID
    .Range("G2").Value = details
    .Range("H2").Value = emp
    
    .Columns("A:H").AutoFit
    
    End With

    If Not IsEmpty(opt) Then
        cellFill = opt & " " & vbCrLf & "BOL (last 5 digits): " & strBOL & " " & vbCrLf & "Trailer # " & strID & " " & vbCrLf & details & "EE Name" & emp & " " & vbCrLf
        ActiveCell.Value = cellFill
        Call RealTimeTracker
    End If
    
End If


Unload Me
Sheet1.Activate


End Sub

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）