请教各位高手,给段代码实现,如何能实现对一EXCEL工作表内顺号列(假如A列)内的“顺号数值”进行点击,打开别一个现有的工作表,让新打开的工作表某个表单元格值等于点击顺号列的"顺号数值"。
如果有时间再帮忙看看,如何实现点击“顺号数值”行的某个单元格,导出到新打开的某个单元格内,其实这两个问题应该是差不多的。谢谢了。

解决方案 »

  1.   

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        Dim xlNewBook As Workbook
        
        If Target.Column = 1 Then
            If Target.Columns.Count = 1 And Target.Rows.Count = 1 Then
                If Target.Value <> Empty Then
                    Set xlNewBook = Workbooks.Add()
                    xlNewBook.Sheets(1).Range("A1").Value = Target.Value
                End If
            End If
        End If
    End Sub
      

  2.   

    谢谢高手,您的代码太好了,对我很有帮助,但我想用的是打开一个即有的表“Sheets(表2)”麻烦你有时间再给改一下,谢谢了。
      

  3.   

    如何不判断是不是空格删除If Target.Value <> Empty Then  end if就行啊?