这是山版主提供的代码,请参考: http://club.excelhome.net/viewthread.php?tid=219419&replyID=&skin=0 Public nTime As Date Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Count > 1 Then Set Target = Target.Cells(1) If Target.Row = 1 Then Shapes("xinxi").Visible = False: Exit Sub Dim cTxt As String, nRow As Integer Dim Temp As String cTxt = "" nRow = Target.Row For i = 1 To 10 Temp = Cells(nRow, i) Temp = IIf(Left(Temp, 1) = ".", "0", "") & Temp cTxt = cTxt & Chr(13) & " " & Temp Next Label2.Caption = cTxt '更新信息窗口中的文字 With Shapes("xinxi") '动态改变控件的垂直位置 If Target.Offset(1, 0).Top - Cells(ActiveWindow.ScrollRow, 1).Top + 130 > ActiveWindow.UsableHeight Then .Top = Cells(ActiveWindow.ScrollRow, 1).Top + ActiveWindow.UsableHeight - 130 Else .Top = Target.Offset(1, 0).Top End If '动态改变控件的水平位置 If Target.Offset(0, 1).Left - Cells(1, ActiveWindow.ScrollColumn).Left + 270 > ActiveWindow.Width Then .Left = Target.Left - 270 Else .Left = Target.Offset(0, 1).Left End If End With nTime = Timer Shapes("xinxi").Visible = True '显示信息窗口 Call XinxiVisible End Sub Sub XinxiVisible() Do While Timer - nTime < 10 '显示10秒 DoEvents Loop Shapes("xinxi").Visible = False '隐藏信息窗口 End Sub
|