求助大神，为什么Find不到指定内容呢？

qscwb · 发表于 2024-7-23 16:33

为什么点登记后，MsgBox找不到日期呢？
详情见附件，请大神指点。

小凡、、、 · 发表于 2024-7-23 16:47

你要用string字符串格式去find的话就格式完全一致，07和7不一样，不然就设置为日期格式

qscwb · 发表于 2024-7-23 17:20

小凡、、、发表于 2024-7-23 16:47
你要用string字符串格式去find的话就格式完全一致，07和7不一样，不然就设置为日期格式

Dim searchValue As Date
这样修改还是不行么?

小凡、、、 · 发表于 2024-7-23 17:45

qscwb 发表于 2024-7-23 17:20
Dim searchValue As Date
这样修改还是不行么?

改了单元格区域和find的参数，测试没有问题

qscwb · 发表于 2024-7-23 19:03

小凡、、、发表于 2024-7-23 17:45
改了单元格区域和find的参数，测试没有问题

      If MZ1 <> 0 Or JZ1 <> "" Then
         Cells(foundRow + 1, foundColumn) = MZ1.Text
         Cells(foundRow + 1, foundColumn + 1) = JZ1.Caption
      End If

      If MZ2 <> 0 Or JZ2 <> "" Then
         Cells(foundRow + 2, foundColumn) = MZ2.Text
         Cells(foundRow + 2, foundColumn + 1) = JZ2.Caption
      End If

      If MZ3 <> 0 Or JZ3 <> "" Then
         Cells(foundRow + 3, foundColumn) = MZ3.Text
         Cells(foundRow + 3, foundColumn + 1) = JZ3.Caption
      End If

为什么每次登记会覆盖上一次的记录呢?

lkqsmxw · 发表于 2024-7-24 09:42

本帖最后由 lkqsmxw 于 2024-7-24 09:59 编辑

"yyyy/mm/dd" 改为"yyyy/m/d"
Me.RQ.Text = Format(Date, "yyyy/m/d") '' "yyyy/mm/dd"

lizhipei78 · 发表于 2024-7-24 10:53

lkqsmxw 发表于 2024-7-24 09:42
"yyyy/mm/dd" 改为"yyyy/m/d"
Me.RQ.Text = Format(Date, "yyyy/m/d") '' "yyyy/mm/dd"

https://club.excelhome.net/threa ... tml?_dsign=0756d10a
WPS与OFFICE确实存在差别，我这里有讨论过

		自动登录	找回密码
密码			免费注册

[求助] 求助大神，为什么Find不到指定内容呢？

评分