关于Cells.Find

jetowl · 发表于 2013-12-21 15:51

Set Cal_Compounds = Cells.Find("Compounds", , , 1)

利用上面这个句子，Cells.Find查找Compounds时，如果Compounds所在的单元格用了单元格保护，就无法找到。
怎样才能让Cells.Find的查找范围包含被保护的单元格。
谢谢

zhaogang1960 · 发表于 2013-12-21 15:55

演示了一番，没有发现这个问题，请上传附件看看

jetowl · 发表于 2013-12-21 16:16

目的是想在表单1中加个按钮，按了之后删除Compounds这个内容所在单元格下右方的1000＊1000单元格内的所有内容

jetowl · 发表于 2013-12-21 16:20

忘了补充了，我把Compounds这个单元格设置了保护，避免被删除。
谢谢

jetowl · 发表于 2013-12-21 22:12

顶一下上去，求关注
谢谢

zhaogang1960 · 发表于 2013-12-21 23:46

先取消保护，最后在保护：

Sub Del_AllCompounds()
Dim Cal_Compounds As Range
ActiveSheet.Unprotect Password:="密码"
Set Cal_Compounds = Cells.Find("Compounds", , , 1)
MsgBox Cal_Compounds Is Nothing
If Not Cal_Compounds Is Nothing Then Range(Cal_Compounds(2, 1), Cal_Compounds(1001, 1001)).ClearContents
ActiveSheet.Protect Password:="密码"
End Sub

复制代码

jetowl · 发表于 2013-12-22 14:01

zhaogang1960 发表于 2013-12-21 23:46
先取消保护，最后在保护：

谢谢，高手啊。
另外，我想再请教下，Dim Cal_Compounds As Range这句不加是不是也可以，删了之后也不影响效果。
还有，Set Cal_Compounds = Cells.Find("Compounds", , , 1)这个语句的Cells.Find用法不是太了解，能否解释下下面这个问题。
查了Cells.Find的语法好像是这样的，Cells.Find(What, After, LookIn, LookAt, SearchOrder, SearchDirection, MatchCase, MatchByte)除了what之外其它都是可以省略的是吧，那这里的1是不是表示LookAt的内容，但是LookAt的可选常量不是xlPart或xlWhole吗？
谢谢

zhaogang1960 · 发表于 2013-12-22 14:57

一、 Cal_Compounds可以不声明
二、所有参数最好写全；1是LookAt，表示全匹配xlWhole

hhjjpp · 发表于 2016-6-29 17:19

yangyaoshi · 发表于 2018-10-2 21:42

请问.range（）前面的点有什么作用

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

[求助] 关于Cells.Find

评分