[已解决]VBA＿数据有效性问题－－－还存在个小问题

yjwdjfqb

回复 放浪形骸 的帖子

实际需要的不是这个

放浪形骸

yjwdjfqb 发表于 2011-8-12 22:46
回复 放浪形骸 的帖子

看下宏中，可以看到，

那你现在显示的内容是“序号 姓名 科室 级别 身份 职称 受聘专业 参工时间 工作年限 入院时间 入院年限 职务 专业技术职称 晋升专业技术职称时间”
那你说什么不显示？
序号么？

放浪形骸

我知道了。你的意思是C2里选择了对应的项目之后，C3里不要再显示标题了。

yjwdjfqb

回复 放浪形骸 的帖子

对对对

其它二处也是一样哈

放浪形骸

那你就需要把这个修改下：
在过程：

Private Sub Worksheet_Change(ByVal Target As Range)

里的

1. 
   
2.     arr = .Cells(2, icolumn).Resize(irow - 1)
   

复制代码

修改成：

1. arr = .Cells(3, icolumn).Resize(irow - 1)
   

复制代码

从第三行开始就可以了。
从第二行开始就是把标题放进去了。

放浪形骸

yjwdjfqb 发表于 2011-8-12 22:51
回复 放浪形骸 的帖子

对对对

http://www.excelpx.com/forum.php?mod=redirect&goto=findpost&ptid=191193&pid=2778780&fromuid=324899
把中间的内容修改下就可以了。
从第三行开始读取数据就行了，直接把标题行给略过去就好了某

fjmxwrs

原来是我理解错了。
arr = .Cells(3, icolumn).Resize(irow - 2)

yjwdjfqb

回复 放浪形骸 的帖子

感谢老师，问题已经解决了

放浪形骸

yjwdjfqb 发表于 2011-8-12 23:00
回复 放浪形骸 的帖子

感谢老师，问题已经解决了

不客气，共同努力学习撒。