Office中国论坛/Access中国论坛

标题: linkedcell属性在窗体里的控件怎么弄啊.....已解决 [打印本页]
作者: pureshadow    时间: 2008-6-16 16:57
标题: linkedcell属性在窗体里的控件怎么弄啊.....已解决
请问，如果点击单元格就出现窗体(这个其实我会做了)，点击日历控件后日期自动填在单元格里(这个不会)，谢谢。

[ 本帖最后由 pureshadow 于 2008-6-16 23:42 编辑 ]
作者: tanhong    时间: 2008-6-16 17:08
我发过这方面的实例,你看一下是否符合你的要求,如不是我再帮你看看

http://www.office-cn.net/forum.p ... 0333&highlight=
作者: tanhong    时间: 2008-6-16 17:26
Private Sub 日历控件名_Click()
    ActiveCell.FormulaR1C1 = 日历控件名.Value
   Unload Me
End Sub
作者: pureshadow    时间: 2008-6-16 23:42
谢谢江版,我解决了.
作者: tanhong    时间: 2008-6-17 09:26
因为看小妖的实例,所以理解错了小妖的意思,以为是在窗体在加日历控件.小妖的代码没错,不过,建议做适当修改.

'加一个工作簿事件,控件的初始化
Private Sub Workbook_Open()
   Calendar1.Visible = False
End Sub

'工作表事件
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calendar1.Visible = False
If Range("Sheet1!b1") = Target Then
   Calendar1.Visible = True
End If
End Sub
作者: Jonathan.K    时间: 2008-6-17 09:32
小妖，如果对控件的位置没有要求的话，试试下面这个
  1. Private Sub Calendar1_DblClick()
  2.     With Calendar1
  3.         [B1].Value = .Value
  4.         .Visible = False
  5.         [A1].Select
  6.     End With
  7. End Sub

  9. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  10.     With Calendar1
  11.         If Target.Address = "$B$1" Then
  12.             .Visible = True
  13.         Else
  14.             .Visible = False
  15.         End If
  16.     End With
  17. End Sub
复制代码
作者: pureshadow    时间: 2008-6-17 13:24
谢谢江版
谢谢师傅
师傅这么忙还帮我[:17]

[ 本帖最后由 pureshadow 于 2008-6-17 13:46 编辑 ]
作者: pureshadow    时间: 2008-6-17 13:43
直接 calender1.value......
我真是笨妖,还在一个劲地找linkedcell........
作者: pureshadow    时间: 2008-6-17 13:45
江,貌似Range("Sheet1!b1") 的写法有问题
sheets("sheet1").range("b1")
作者: pureshadow    时间: 2008-6-17 13:46
不过还是要谢谢江版[:19]
作者: tanhong    时间: 2008-6-17 17:30
Range("Sheet1!b1") 这个写法是没有问题的,你试试看
作者: pureshadow    时间: 2008-6-17 20:06
我试了,确实不行啊......
难道是我的小笔发飚了?他这两天一直在发飚......



欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3