Блог

Я создаю систему управления двором для отслеживания парковочных мест на стоянке.

Пользовательская форма позволяет пользователю щелкнуть по точке на карте (это будет кнопка command), которая открыта, а затем нажать обновить, которая вызовет другую пользовательскую форму для заполнения информации о грузовике, направляющемся в это место.

Как только пользователь заполняет вторую пользовательскую форму, пятно меняется с зеленого на красный, показывая, что оно заполнено. Прямо сейчас нет способа отредактировать данные, введенные для spot.

Например, мне может потребоваться изменить статус грузовика с пустого на полный.

Я думаю, что лучшим способом сделать это было бы

• если область красная (заполнена и содержит информацию, введенную в пользовательской форме), то автоматически откроется вторая пользовательская форма с уже введенными данными, поэтому, если что-то нужно изменить, они могут просто ввести текстовое поле и снова нажать обновить.
• если поле пусто, оно должно вызвать первую пользовательскую форму с просьбой обновить или очистить поле.

Я не уверен, возможно ли это или наиболее эффективный способ достичь моей цели редактирования уже введенной информации без необходимости снова заполнять всю пользовательскую форму.

 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 amp; " " amp; vbCrLf amp; "BOL (last 5 digits): " amp; strBOL amp; " " amp; vbCrLf amp; "Trailer # " amp; strID amp; " " amp; vbCrLf amp; details amp; "EE Name" amp; emp amp; " " amp; vbCrLf
        ActiveCell.Value = cellFill
        Call RealTimeTracker
    End If
    
End If

Unload Me
Sheet1.Activate

End Sub