正文

test

(2009-08-12 10:31:24) 下一個

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)

Dim test As String
Dim strSngCell As String
Dim strCellAddress As String
   
   
 'MsgBox ("test")
strCellAddress = Target.Cells.Address

If Target.Cells.Value <> "" Then


   strSngCell = Replace(strCellAddress, "$", "")

    Range(strSngCell & ":" & strSngCell).Select
    Selection.Copy
    Sheets("Sheet2").Select
    Range(strSngCell).Select
   
    ActiveSheet.Paste

 
End If


End Sub

[ 打印 ]
閱讀 ()評論 (0)
評論
目前還沒有任何評論
登錄後才可評論.