消息框中的多个变量

Question

我希望在消息框中显示多个变量：ID，客户名称，添加日期，地点和状态。目前，我只能显示ID，其他变量显示Runtime 13 Error。我的代码如下。

Sub LookupTicket()
Dim ibox, tid As Range
Dim dad, sta, ven, cna As Variant

Set Sheet = Worksheets("ControlSheet")

dad = Range("DateAdded_CS").Value
sta = Range("Status_CS").Value
ven = Range("Venue_CS").Value
cna = Range("CustName_CS").Value

ibox = InputBox("Enter Ticket ID:", "Redeem Ticket")
If ibox <> "" Then
Set tid = Sheet.Range("A:A").Find(ibox)
If tid Is Nothing Then
    MsgBox "Ticket ID not found!", vbCritical, "Redeem Ticket"
Else
'MsgBox "Ticket details for ID: " & tid & vbNewLine & "Date Added: " & dad & vbNewLine & "Customer Name: " & cna & vbNewLine & "Venue: " & ven & vbNewLine & "Status: " & sta, vbInformation, "Lookup Ticket Details"
MsgBox "ID: " & sta, "Lookup Ticket"
End If
End If

谢谢你的任何输入。

Answer 1

变量tid是一个范围。如果它有一个单元格，你应该改为tid.Value。

编辑：检查tid.count = 1我是否在尝试从一个范围内的一组单元格中取值时出现类型不匹配（13）错误。你的Range.Find(ibox)可能会返回多个值。