消息框中有多个variables

我正在寻找多个variables到一个消息框：ID，客户名称，添加date，地点和状态。 目前，我只能得到ID显示，其他variables出现运行时13错误。 我的代码如下。

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 

感谢球员的任何input。

Answer 1

variablestid是一个Range。 你应该改变它tid.Value如果它将有一个单元格。

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