遍历表格

本文介绍了一个使用JavaScript实现的简单示例,该示例能够遍历HTML页面中的表格元素,并根据指定的关键词进行搜索。找到匹配项后,会高亮显示关键词,并为用户提供点击交互功能来改变背景颜色。
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>js遍历table中的tr</title>
<script language="javascript">

function matchFun(el) {
    //var re = eval("/"+el+"/ig");
	var re = /aaa/g;

	//alert("aaa".replace(re,"gggg"));

    var table1=document.getElementById('table1');
	var rows=table1.rows;
	//alert(rows.length);
	for(var i=1;i<rows.length;i++){
	    if(rows[i].innerHTML.indexOf(el)>0){
		   for(var j=0;j<rows[i].cells.length;j++) {
			  var str = rows[i].cells(j).innerHTML;
			  rows[i].cells(j).onclick = function() {
			     alert(this.parentNode.innerHTML);
				 var cellIndex = this.cellIndex;  
				 var tb=this.parentNode.getElementsByTagName("td");
				 if(tb.length>0) {
				    tb[cellIndex].style.backgroundColor='#CCFFCC'; 
					//alert(tb[cellIndex].innerHTML);
				 }
				 
				 
			  }
			  rows[i].cells(j).innerHTML = str.replace(re,"<span style='color:red'>"+str+"</span>");
		   } 
		} else {
		   rows[i].style.display = 'none';
		   
		}
		
		
	}
}

</script>
</head>

<body>
<table id="table1"  border="1">
<tr>
    <td>列1</td>
    <td>列2</td>
    <td>列3</td>
</tr>
<tr>
    <td>张三</td>
    <td>李四</td>
    <td>王五</td>
</tr>
<tr id="tr02">
    <td>aaa</td>
    <td>bbb</td>
    <td>ccc</td>
</tr>
<tr>
    <td>张三</td>
    <td>aaa</td>
    <td>eee</td>
</tr>
</table>


<a href="javascript:matchFun('aaa');">正则匹配</a>
</body>
</html>
 

 [code="html"] js

在 Excel 中使用 VBA 遍历表格数据是一种常见的操作,尤其适用于自动化数据处理和分析任务。遍历方式主要包括基于行或列的循环、使用 `Range` 对象、以及通过 `For Each...Next` 语句实现对单元格的访问。以下是几种常用方法及其应用场景。 ### 使用 `For` 循环按行或列遍历 可以使用 `For` 循环结合 `Cells` 或 `Rows`/`Columns` 属性来逐行或逐列访问数据。例如,以下代码遍历工作表中某一列的数据并进行简单操作: ```vba Sub TraverseColumn() Dim i As Long For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row ' 假设要遍历第一列(A列) Debug.Print Cells(i, 1).Value Next i End Sub ``` 此方法适用于需要按行号访问数据的场景,且可灵活控制起始和结束行[^3]。 ### 使用 `For Each...Next` 遍历单元格区域 `For Each...Next` 结构适用于对某一范围内的所有单元格执行相同操作。例如,以下代码遍历 A1:A10 区域中的每个单元格: ```vba Sub TraverseRange() Dim cell As Range For Each cell In Range("A1:A10") Debug.Print cell.Value Next cell End Sub ``` 此方法的优势在于代码简洁,适用于对整个范围进行统一处理的操作[^2]。 ### 遍历整个工作表的数据区域 若需要处理整个数据表,可以先确定数据区域的边界,然后嵌套使用 `For` 循环遍历行和列。例如,以下代码遍历当前工作表中所有非空数据: ```vba Sub TraverseEntireData() Dim LastRow As Long, LastCol As Long Dim i As Long, j As Long LastRow = ActiveSheet.Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row LastCol = ActiveSheet.Cells(1, ActiveSheet.Columns.Count).End(xlToLeft).Column For i = 1 To LastRow For j = 1 To LastCol Debug.Print Cells(i, j).Value Next j Next i End Sub ``` 该方法适用于需要对数据表整体进行操作的场景,如数据清洗或格式化[^3]。 ### 处理合并单元格时的注意事项 在遍历过程中,如果涉及合并单元格,需特别注意。Excel 中没有直接的属性判断单元格是否为合并单元格,但可以通过检查 `MergeCells` 属性或使用 `MergeArea` 来识别合并区域。例如: ```vba Sub CheckMergeCell() Dim cell As Range Set cell = Range("A1") If cell.MergeCells Then MsgBox "该单元格是合并单元格的一部分" End If End Sub ``` 此外,访问合并单元格的值时应使用 `MergeArea.Cells(1, 1)` 来确保获取的是主单元格的值,避免因访问其他子单元格而导致错误[^1]。 ---
评论
成就一亿技术人!
拼手气红包6.0元
还能输入1000个字符
 
红包 添加红包
表情包 插入表情
 条评论被折叠 查看
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值