字典中 itme为啥有的加“”有的不加

weiyong949

如图，数字信息不能识别

wanao2008

和单元格格式有关系，如果想要格式统一，可在存入字典时用cStr()统一转为字符串。

weiyong949

wanao2008 发表于 2023-4-8 09:51
和单元格格式有关系，如果想要格式统一，可在存入字典时用cStr()统一转为字符串。

请教像我这个应该怎么写呢？
For i = 1 To UBound(arr)

brr(i, 1) = CStr(arr(i, 1))

d.Add brr(i, 1), ""

这样也不对

perfect131

weiyong949 发表于 2023-4-8 10:23
请教像我这个应该怎么写呢？
For i = 1 To UBound(arr)

x = inputbox() 这里 x 已经是string
而字典里的 22040981 是double ，所以 d.exists("22040981") 当然找不到
加个 CStr 函数
d.Add CStr(arr(i, 1)), ""

wanao2008

weiyong949 发表于 2023-4-8 10:23
请教像我这个应该怎么写呢？
For i = 1 To UBound(arr)

4楼为标准答案！

weiyong949

perfect131 发表于 2023-4-8 12:02
x = inputbox() 这里 x 已经是string
而字典里的 22040981 是double ，所以 d.exists("22040981") 当然 ...

求教大哥，这种也找不到数字格式的改用什么呢


Sub 库存查询()

Dim lh, sb

lh = Sheets("查询表").[c5].Text
sb = Sheets("查询表").[e5].Text

Sheets("查询表").Range("a8:u1000") = ""
Sheets("库存明细表").Range("b5:o5").Copy Sheets("查询表").[a8]


If lh = "" And sb = "" Then
MsgBox "查询条件不能为空！"
Exit Sub
End If


Dim area, mr, area1, rg, rr, n%
mr = Sheets("库存明细表").Cells(Rows.Count, 3).End(xlUp).Row
Set area = Sheets("库存明细表").Range("c6", "c" & mr)
For Each rg In area
  If (lh = "" Or rg.Value = lh) And (sb = "" Or rg(1, 2) = sb) Then
  rr = rg.Row
  n = n + 1
  Sheets("库存明细表").Range("c" & rr, "o" & rr).Copy

  Sheets("查询表").Range("b" & 8 + n).PasteSpecial Paste:=xlPasteValues
  
  Sheets("查询表").Range("a" & 8 + n) = n
  
  
  
    End If
    Next
    MsgBox "查询完成!"
  







End Sub