Excel精英培训网

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

[已解决]excel2010怎么在几列中加入日期选择器

[复制链接]
发表于 2012-9-14 13:06 | 显示全部楼层 |阅读模式
如何在 B到G 列每个单元格中加入日期选择器,
任意点这几列中的任意单元格,都能出现日期选择器提示框,
虽然论坛上有很多答案,可是一到我的表格上,就出现错误,
麻烦各位大侠帮忙,感激涕零
最佳答案
2012-9-14 15:30
  1. Private Sub Calendar1_Click()
  2.     With Calendar1
  3.         ActiveCell = .Value    '将日历控件的值,复制给激活单元格
  4.         .Visible = False    '隐藏日历控件
  5.     End With
  6. End Sub
  7. '
  8. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  9.     With Calendar1
  10.         If Target.Column > 1 And Target.Column < 8 Then
  11.             .Top = Target.Offset(0, 1).Top    '设置位置
  12.             .Left = Target.Offset(0, 1).Left
  13.             .Visible = True    '显示日历控件
  14.         Else
  15.             .Visible = False  '隐藏日历控件
  16.         End If
  17.     End With
  18. End Sub
复制代码
日期选择器2.rar (26.69 KB, 下载次数: 298)

日期选择器.rar

17.03 KB, 下载次数: 162

 楼主| 发表于 2012-9-14 14:54 | 显示全部楼层
回复

使用道具 举报

发表于 2012-9-14 15:30 | 显示全部楼层    本楼为最佳答案   
  1. Private Sub Calendar1_Click()
  2.     With Calendar1
  3.         ActiveCell = .Value    '将日历控件的值,复制给激活单元格
  4.         .Visible = False    '隐藏日历控件
  5.     End With
  6. End Sub
  7. '
  8. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  9.     With Calendar1
  10.         If Target.Column > 1 And Target.Column < 8 Then
  11.             .Top = Target.Offset(0, 1).Top    '设置位置
  12.             .Left = Target.Offset(0, 1).Left
  13.             .Visible = True    '显示日历控件
  14.         Else
  15.             .Visible = False  '隐藏日历控件
  16.         End If
  17.     End With
  18. End Sub
复制代码
日期选择器2.rar (26.69 KB, 下载次数: 298)
回复

使用道具 举报

 楼主| 发表于 2012-9-14 16:03 | 显示全部楼层
爱疯 发表于 2012-9-14 15:30

太感谢了.
如果只要在B和D列,用日期选择器,其他列都不用,又如何写呢?
是不是把
If Target.Column > 1 And Target.Column < 8
改为
If Target.Column = 2 And Target.Column = 4
我这样去测试了下,好像不行啊
拜托您了,再帮下忙
回复

使用道具 举报

发表于 2012-9-14 16:07 | 显示全部楼层
If Target.Column = 2 or Target.Column = 4

and改成or
回复

使用道具 举报

 楼主| 发表于 2012-9-14 16:13 | 显示全部楼层
爱疯 发表于 2012-9-14 16:07
If Target.Column = 2 or Target.Column = 4

and改成or

谢谢,以后我要多学习啦
回复

使用道具 举报

 楼主| 发表于 2012-9-14 16:27 | 显示全部楼层
爱疯 发表于 2012-9-14 16:07
If Target.Column = 2 or Target.Column = 4

and改成or

你好,我在自己的表里面写进去,有提示错误,帮我看一下是什么原因?提示424的错误

(方法1)业务活动跟踪表.rar

21.46 KB, 下载次数: 17

回复

使用道具 举报

发表于 2012-9-14 16:32 | 显示全部楼层
huangtiange 发表于 2012-9-14 16:27
你好,我在自己的表里面写进去,有提示错误,帮我看一下是什么原因?提示424的错误

(方法1)业务活动跟踪表2.rar (28.02 KB, 下载次数: 50)
回复

使用道具 举报

 楼主| 发表于 2012-9-14 16:39 | 显示全部楼层
爱疯 发表于 2012-9-14 16:32
因为只复制代码了,还没插入日历控件,所以报错。

谢谢.其实我也想到了,就是不知道怎么插入,
我知道控件在哪里,可是不知道怎么在一整列当中插入
回复

使用道具 举报

发表于 2012-9-14 16:52 | 显示全部楼层
不客气。这是关于日历控件使用方法的贴,第五步附件里有动画,不知能否有助于理解。
http://www.excelpx.com/thread-255298-1-1.html
回复

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-3-29 21:44 , Processed in 0.462780 second(s), 9 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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