进来看看在线等

yuanlinfj · 发表于 2012-11-24 12:27

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
strAddress = Target.Address
Select Case strAddress
      Case "$G$3"
         Call setValidation(2, 2, "select distinct 型号 from 计划表")
      Case "$H$3"
            Call setValidation(3, 2, "select distinct 电压 from 计划表  ")
         Case "$I$3"
            Call setValidation(3, 2, "select distinct 规格 from 计划表  ")
End Select
End Sub
能不能让 Case "$G$3"
这句话指定一个表比如sheet2  现在这上面的代码应用于所有的的工作表。

shuyee · 发表于 2012-11-26 08:22

if sh.name="sheet2" then
  straddress=..
  ..
  ..
end select
endif

yuanlinfj · 发表于 2012-11-26 15:56

shuyee 发表于 2012-11-26 08:22
if sh.name="sheet2" then
straddress=..
..

不行啊版主

wangjian6931 · 发表于 2012-11-26 21:05

只将这一段代码放在Sheet2表内不就行了吗？

yuanlinfj · 发表于 2012-11-27 08:52

wangjian6931 发表于 2012-11-26 21:05
只将这一段代码放在Sheet2表内不就行了吗？

试过。没达到效果，，我也想，，如果那样就更好了

shuyee · 发表于 2012-11-27 18:59

If Target.Parent.CodeName = "Sheet2" Then

注意CodeName和Name的区别，Name更常用些

yuanlinfj · 发表于 2012-11-28 15:11

shuyee 发表于 2012-11-27 18:59
If Target.Parent.CodeName = "Sheet2" Then

注意CodeName和Name的区别，Name更常用些

好使了这回又学会一招 3Q

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

[求助] 进来看看 在线等

[求助] 进来看看在线等