命令铵钮超链接到另个excel文件

wenhaowh64

如下图，

实现要求：（两点）
1、只有当D4单元格有输入时，才能点交卷，最超链接到另一个excel文件
						2.xls
2、如果D4没有输入任何字符，点击交卷按钮时，提示：请您输入姓名。

wenhaowh64

这是上传的附件，我弄了好久都没有弄出来。

liulang0808

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     If Target.Address <> "$D$2" Then Exit Sub
   
3.     If Range("d2").Value = "" Then
   
4.         MsgBox "请先填写姓名!"
   
5.     Else
   
6.      Workbooks.Open ThisWorkbook.Path & "\2.xls"
   
7.     End If
   
8. End Sub

复制代码

liulang0808

不知道理解的对不对

wenhaowh64

谢谢，改进了一下，现在完全可以实现了。也附下代码，相互学习。


Private Sub CommandButton2_Click()

    If Range("d2").Value = "" Then
        MsgBox "请先填写姓名!"
        Range("d2").Select
    Else
     Workbooks.Open ThisWorkbook.Path & "\TIJIAO.xls"
    End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Range("d2").Value = "" Then
        MsgBox "请先填写姓名!"
        Range("d2").Select
    End If
End Sub