[已解决]求助能否在点击窗口写入时也在G列相应行写入当前录入的日期。谢谢

qinhuan66

求助能否在点击窗口写入时也在G列相应行写入当前录入的日期。谢谢
就读院校.rar (28.04 KB, 下载次数: 10)

2014-10-31 22:09 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2014-10-31 22:51

1. Private Sub CommandButton1_Click()
   
2. Dim objControl As Control
   
3.         For Each objControl In Me.Controls
   
4.             If TypeName(objControl) Like "OptionButton" Then
   
5.                 If objControl.Value Then
   
6.                     ActiveCell.Value = objControl.Caption
   
7.                     ActiveCell.Offset(, 3).Value = Now
   
8.                     
   
9.                      Unload 报考职位  '加这两句是完成后关闭: Unload 综合职位: Unload 报考职位
   
10.                     Exit Sub
    
11.                 End If
    
12.             End If
    
13.         Next
    
14.         MsgBox "呵呵！您还没有选择报考职位呢。"
    
15. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

日期与时间用now就可以搞定啦。

hwc2ycy

1. Private Sub CommandButton1_Click()
   
2. Dim objControl As Control
   
3.         For Each objControl In Me.Controls
   
4.             If TypeName(objControl) Like "OptionButton" Then
   
5.                 If objControl.Value Then
   
6.                     ActiveCell.Value = objControl.Caption
   
7.                     ActiveCell.Offset(, 3).Value = Now
   
8.                     
   
9.                      Unload 报考职位  '加这两句是完成后关闭: Unload 综合职位: Unload 报考职位
   
10.                     Exit Sub
    
11.                 End If
    
12.             End If
    
13.         Next
    
14.         MsgBox "呵呵！您还没有选择报考职位呢。"
    
15. End Sub

复制代码

hwc2ycy

日期与时间都有，如果只有时间可以用time。

qinhuan66

hwc2ycy 发表于 2014-10-31 22:51

版主你好下面这段代码点击单元格即弹出窗口，能否有办法改成点击右键才弹出窗口呢？谢谢

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range) '点击某单元格即弹出窗体
   
2. If Target.Row > 4 And Target.Column = 4 Then
   
3. 医院名称.Show 0
   
4. End If
   
5. End Sub

复制代码

hwc2ycy

1. Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
   
2.     Cancel = True
   
3.     If Target.Row > 4 And Target.Column = 4 Then
   
4.         报考职位.Show 0
   
5.     End If
   
6. End Sub

复制代码

把那个过程注释，换成上面的，就是右键