关于excel,如下 A列 B列 1 2 3 怎样做到B列读取鼠标点击的位置的内容

鼠标右键点击工作表标签 d出菜单选查看代码,然后粘贴下面代码到右边的窗口,保存后返回工作表页面

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If TargetCount = 1 And TargetColumn = 1 Then

        Row = Range("B65535")End(xlUp)Row

        If Range("B1") = "" Then Row = 0

        Range("B" & Row + 1) = TargetValue

        Range("B" & Row + 1)Select

    End If

End Sub

写了一个自定义，希望对你有帮助。不好意思啊，这是第一次写，但能实现你的功能，虽然还不够智能。打开VBA，新建模块，把这段代码贴上去。然后在某一空白单元格中输入 =Statics()，在此格中会显示A列中起始序号

Function Statics()

Dim i As Integer

Dim iCount As Integer

Max = 0

imax = 1

For i = 1 To 250

If Range("a" & i) <> "" Then

If Range("A" & i) = 0 Then

iCount = iCount + 1

If iCount > Max Then

Max = iCount

imax = i - iCount + 1

End If

Else

iCount = 0

End If

End If

Next

Statics = imax

End Function

CellReference cr = new CellReference("A1");

row = mySheetgetRow(crgetRow());

cell = rowgetCell(crgetCol());

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Range("B2") = TargetAddress(False, False)

End Sub

打开excel ,按ALT+F11,双击sheet1，粘贴以上代码。搞定。

'Thisworkbook中粘贴：

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

With Sheets("sheet2")Cells(RowsCount, 1)End(3)

Offset(1, 0) = ActiveWorkbookName

Offset(1, 1) = ActiveSheetName

Offset(1, 2) = ApplicationSubstitute(Target(1)Address, "$", "")

End With

End Sub

以上就是关于关于excel,如下 A列 B列 1 2 3 怎样做到B列读取鼠标点击的位置的内容全部的内容，包括:关于excel,如下 A列 B列 1 2 3 怎样做到B列读取鼠标点击的位置的内容、求excel 在表格里自动对鼠标指针进行定位。、excel获取值的坐标,java 实现。希望大家帮帮忙等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！