各位大神帮帮忙看一下表里的代码是哪里出错了？谢谢

Selestino · 发表于 2019-10-4 09:49

日期为什么会自动更改成别的日期，就好像随机生成一样。就好像原来是（2019-10-2 13:21:18）切换一下别的车号数据之后他就会变成像这样:(1960-11-2 0:00:00)反正就是会把原来的日期和时间都随机换了似的。哪位高手能帮帮忙啊？小弟万分感谢啊......

测试1.rar (48.85 KB, 下载次数: 9)

lovemh1987 · 发表于 2019-10-4 10:03

你把 b2的格式调成文本试试， [b3] = ce ce是个车牌号然后你把他设置成时间格式，肯定出问题了，你自己看看

Selestino · 发表于 2019-10-4 10:15

lovemh1987 发表于 2019-10-4 10:03
你把 b2的格式调成文本试试， = ce ce是个车牌号然后你把他设置成时间格式，肯定出问题了，你自己 ...

大神，能帮忙改一下吗？谢谢了......

lkqsmxw · 发表于 2019-10-4 10:30

Private Sub ComboBox1_Change()
Dim d, arr, i&, ce$, n
ce = ComboBox1.Text
Set d = CreateObject("Scripting.Dictionary")
arr = Sheet2.[a1].CurrentRegion
For i = 1 To UBound(arr)
   arr(i, 4) = Format(arr(i, 4), "0000")
   d(arr(i, 4)) = i
Next
If d.exists(ce) Then
  i = d(ce)
  For n = 1 To 13 Step 1
  Cells(n + 1, 2) = arr(i, n)
  Next n
End If
End Sub

lkqsmxw · 发表于 2019-10-4 10:35

格式最好设置规范点,否则易出错.

Selestino · 发表于 2019-10-4 10:36

lkqsmxw 发表于 2019-10-4 10:30
Private Sub ComboBox1_Change()
Dim d, arr, i&, ce$, n
ce = ComboBox1.Text

大神，提示出错啊。

Selestino · 发表于 2019-10-4 10:37

lkqsmxw 发表于 2019-10-4 10:35
格式最好设置规范点,否则易出错.

大神，能帮忙修改一下附件吗？

lkqsmxw · 发表于 2019-10-4 10:39

KKKKKKKKKKKKKKKKKKKKKKKKKKK

朱荣兴 · 发表于 2019-10-4 10:41

提示: 作者被禁止或删除内容自动屏蔽

朱荣兴 · 发表于 2019-10-4 10:42

提示: 作者被禁止或删除内容自动屏蔽

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

[求助] 各位大神帮帮忙看一下表里的代码是哪里出错了？谢谢

评分

最新热点 /1

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2019-10-4 10:41 \| 显示全部楼层 [广告] ★Excel Home云课堂 - 专业的职场技能充电站★ ★Excel三大利器★ ★ 笨办法学VBA全系列★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2019-10-4 10:42 \| 显示全部楼层 [广告] ★ExcelHome默写助手 - 不用妈妈陪的默写神器 · Word/WPS插件 · 自定义默写单 · 自定义描红字帖★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报