function 测试()
{
// 假设你已经有了一个UserForm1,并且其中有一个ListBox1控件
// 假设工作表名为"资料库"
// 获取UserForm1中ListBox1选中的文本
var selectedText = UserForm1.ListBox1.Text;
// 获取工作簿和工作表
var zlk = Sheets("资料库");
// 遍历工作表的每一行和每一列来查找匹配值
var rowCount = zlk.Rows.Count;
var columnCount = zlk.Columns.Count;
var found = false;
var rowIndex = 0;
var columnIndex = 0;
for (var i = 2; i <= rowCount; i++) {
for (var j = 1; j <= columnCount; j++) {
var cellValue = zlk.Cells(i, j).Value2;
if (cellValue === selectedText) {
found = true;
rowIndex = i;
columnIndex = j;
break;
}
}
if (found) break;
}
if (found) {
// 弹出消息框显示行列号
MsgBox("找到匹配值!行号:" + rowIndex + ",列号:" + columnIndex);
}
}