循环遍历多个工作表以查找与文本相邻的单元格

时间:2018-02-09 17:59:07

标签: excel vba

我的代码存在问题。我有多个工作表(100)。每个工作表基本上是相同的格式,但大约20除外。我正在尝试编译数据的主列表(1行/工作表,一个工作表上的100行的最终产品)。我的问题是在E32单元格中通常可以找到其中一条数据,但在E38和E50中可以找到一些数据。我可以对下面的代码做些什么来解决这个问题?

// JavaScript Document
$(document).ready(function() {

  $('.selector').each(function() {
    $(this).on('click', check);
  });
  $('.all').each(function() {
    $(this).on('click', all);
  });

  function all(event) {

    if ($(this).is(':checked')) {
      $("input:checkbox:not(:checked)", $(this).parents('form')).not(this).prop("checked", "checked");
    } else {
      $("input:checkbox(:checked)", $(this).parents('form')).not(this).prop("checked", "");
    }

    //$('.selector').prop("checked", this.name === "SelectAll");

    check(event);
  }

  function check(event) {
    var checked = $(".selector:checked").map(function() {
      return this.name
    }).get()
    $('td').css('background', '#fff').filter(function() {
      return $.inArray($(this).text(), checked) >= 0
    }).css('background', $('#nextColor').val())
    if ($(this).is(".selector"))
      $('.all').not(this).prop("checked", false)

  }


  $("#Hidden").on("click", function() {
    $(".selector").toggle();
  });


});

START OF MASTER CODE:

If ws.Name <> "Compiled LOPA Data" Then
wsList.Cells(i, 7).Value = _
ws.Range("E32").Value

0 个答案:

没有答案