[原创]车险计算表_动态设置单元格输入的有效性

abzzl · 发表于 2007-8-13 11:15

最近在计算太平洋保险公司车保的时候，数据的输入大都是在序列中选择的，每个序列可以定义为名称。[使用性质]选择后，[车型]要根据[使用性质]来选择，因此需要动态设置车型单元格输入的有效性。本人做了一个简单示例，主要说明2个要点。（注:不完整，非实用程序。） NZRtEkqb.rar (21.79 KB, 下载次数: 172)

1、用[名称]动态设置单元格输入的有效性。见下面改进，不需如此！
Private Sub Worksheet_Change(ByVal Target As Range)
......
    ttt = "=" & Target                             '有效性序列名称
    Range("B5").Select
    With Selection.Validation                 '设定[B5]有效性序列名称
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=ttt
    End With
......

2、用[名称]动态设置查找范围
   ......
   ttt = Range("B4")               '得到查表的范围名称（按使用性质定义）
    text = Range("B5")             '按类型查表
    Set n = Sheets("太平洋费率").Range(ttt).Find(text, SearchOrder:=xlByColumns, SearchDirection:=xlNext, LookAt:=xlPart)
......

请高人指点有无更好的方法。

楼主自己回答：用[名称]动态设置单元格输入的有效性，不需编程，再定义一个名称leixing为=INDIRECT(计算!$B$4)，在B5中定义有效性为leixing即可。

[此贴子已经被作者于2007-12-23 8:50:30编辑过]

wanger · 发表于 2010-5-15 10:57

无法下载啊。。。。

yaozong · 发表于 2010-5-15 12:10

可下载，收下了，谢谢。

农村信合小兵 · 发表于 2010-11-20 11:26

为啥下不到哦

sjeasy · 发表于 2011-7-9 11:15

怎么下载啊

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