Private Sub Worksheet_SelectionChange(ByVal Target As Range) '可以直接sub(),不然选择就会触发vba Dim rows_count As Integer Dim rows_id As Integer Dim column_count As Integer Dim column_id As Integer column_count = Selection.Columns.Count '返回选择区域列数
Sub W() ' MsgBox "行数:" & Selection.Rows.Count Dim rows_count As Integer Dim rows_id As Integer Dim column_count As Integer column_count = Selection.Columns.Count '获取选择区域的列数 'MsgBox column_count '打印列数 rows_id = ActiveCell.
function Test() { var rows = document.getElementById("tbDetail").rows; if (rows.length > 0) { for (var i = 1; i < rows.length; i++) { (function (i) { //var temp = rows[i].cells[0].childNodes[1].value; var temp = rows[i].cells[0].childNodes