linkedcell属性在窗体里的控件怎么弄啊.....已解决

pureshadow

请问，如果点击单元格就出现窗体(这个其实我会做了)，点击日历控件后日期自动填在单元格里(这个不会)，谢谢。

[ 本帖最后由 pureshadow 于 2008-6-16 23:42 编辑 ]

pureshadow

我试了,确实不行啊......
难道是我的小笔发飚了?他这两天一直在发飚......

tanhong

Range("Sheet1!b1") 这个写法是没有问题的,你试试看

pureshadow

不过还是要谢谢江版[:19]

pureshadow

江,貌似Range("Sheet1!b1") 的写法有问题
sheets("sheet1").range("b1")

pureshadow

直接 calender1.value......
我真是笨妖,还在一个劲地找linkedcell........

pureshadow

谢谢江版
谢谢师傅
师傅这么忙还帮我[:17]

[ 本帖最后由 pureshadow 于 2008-6-17 13:46 编辑 ]

Jonathan.K

小妖，如果对控件的位置没有要求的话，试试下面这个

1. Private Sub Calendar1_DblClick()
   
2.     With Calendar1
   
3.         [B1].Value = .Value
   
4.         .Visible = False
   
5.         [A1].Select
   
6.     End With
   
7. End Sub
   
8. 
   
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

复制代码

tanhong

因为看小妖的实例,所以理解错了小妖的意思,以为是在窗体在加日历控件.小妖的代码没错,不过,建议做适当修改.

'加一个工作簿事件,控件的初始化
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

pureshadow

谢谢江版,我解决了.