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

pureshadow

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

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

tanhong

我发过这方面的实例,你看一下是否符合你的要求,如不是我再帮你看看

http://www.office-cn.net/forum.p ... 0333&highlight=

tanhong

Private Sub 日历控件名_Click()
    ActiveCell.FormulaR1C1 = 日历控件名.Value
   Unload Me
End Sub

pureshadow

谢谢江版,我解决了.

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

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

复制代码

pureshadow

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

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

pureshadow

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

pureshadow

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

pureshadow

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