Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 1571|回复: 5

[VBA] 红色文字写成find这样 Cells.Find(what=香蕉) 为什么会出错

[复制链接]
发表于 2016-11-3 09:05 | 显示全部楼层 |阅读模式
红色文字写成find这样 Cells.Find(what=香蕉)  为什么会出错


本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
发表于 2016-11-3 09:26 | 显示全部楼层
是只问为什么吗?因为语法错了啊...
回复

使用道具 举报

发表于 2016-11-3 09:37 | 显示全部楼层
猜的
  1. Sub Greenhand()
  2.     Dim rng As Range
  3.     Set rng = Sheets(1).[a1].CurrentRegion.Find("香蕉")
  4.     If rng Is Nothing Then
  5.         MsgBox "没有香蕉的数据"
  6.     Else
  7.         MsgBox "香蕉销售数量" & rng.Offset(0, 1) & "公斤"
  8.     End If
  9. End Sub
复制代码
回复

使用道具 举报

 楼主| 发表于 2016-11-3 11:27 | 显示全部楼层
望帝春心 发表于 2016-11-3 09:26
是只问为什么吗?因为语法错了啊...

语法错在哪里
回复

使用道具 举报

发表于 2016-11-3 12:14 | 显示全部楼层

FIND的结果是一个RANGE对象,对对象的赋值,需要用SET + 变量名+=来进行,个人理解的供参考。
回复

使用道具 举报

 楼主| 发表于 2016-11-3 17:58 | 显示全部楼层
望帝春心 发表于 2016-11-3 12:14
FIND的结果是一个RANGE对象,对对象的赋值,需要用SET + 变量名+=来进行,个人理解的供参考。


VBA解释代码和用第二种写法

http://www.excelpx.com/thread-425427-1-1.html


回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 00:23 , Processed in 1.019719 second(s), 6 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表