Страницы: 1
RSS
Поиск значений из ячейки в разных столбцах
 
Здравствуйте!
В связи с тем, что не получил ответ по своему прошлому вопросу, решил разбить его на подзадачи. Надеюсь, что так ее получится решить.

Итак,
На одном листе имеется строка с ячейками, в этих ячейках указаны табельные номера через запятую (вот так: 13, 15, 47)
На другом листе имеется несколько столбцов, в которых эти табельные номера дублируются (по 1 табельному номеру в ячейке)

Как я могу сделать проверку по всей строке с табельными номерами и получить ссылки (адреса ячеек) этих табельных номеров на втором листе?
Возможно кто-то уже делал подобное или есть идеи с чего начать?

В файле 1.xlsx два листа с данными
Изменено: Иван Ж - 27.07.2021 22:18:19
 
Цитата
получить ссылки (адреса ячеек) этих табельных номеров
При активном листе Лист2 запустить макрос
адреса в строке 5
Код
Sub iAdres()
Dim FoundCell As Range
Dim ws1 As Worksheet
Dim j As Integer
Dim i As Integer
Dim j_cell
 Set ws1 = ThisWorkbook.Worksheets("Лист1")
   Rows(5).ClearContents
 With ws1
  For j = 7 To 9
    j_cell = Split(Cells(4, j), ", ")
    For i = 0 To UBound(j_cell)
      Set FoundCell = .Columns("A:J").Find(j_cell(i), , xlValues, xlWhole)
      Cells(5, j) = Cells(5, j) & FoundCell.Address(0, 0) & ", "
    Next
  Next
  End With
End Sub
 
Кузьмич, здравствуйте!
Спасибо за ваш макрос, выполняет поставленную мной задачу!
Только у меня складывается впечатление, что задачу я сформулировал некорректно. Похоже, что я запутался в логике построения цепочки действий для добавления комментариев в ячейку.

Форумчане, возможно кто-то сможет "популярно объяснить", как правильно передать в комментарий данные, из ячеек, найденных макросом Кузьмича.
Или я все-таки ошибся и это нужно делать не так?

Понимаю, что вопрос не совсем по теме, но мою прошлую тему удалили из-за создания этой, т.ч.. решил написать тут
 
Цитата
передать в комментарий данные
Код
Sub iAdres()
Dim FoundCell As Range
Dim ws1 As Worksheet
Dim j As Integer
Dim i As Integer
Dim j_cell
Dim msg As String
 Set ws1 = ThisWorkbook.Worksheets("Лист1")
     If Not Range("G4").SpecialCells(xlCellTypeComments) Is Nothing Then Range("G4").Comment.Delete
     If Not Range("H4").SpecialCells(xlCellTypeComments) Is Nothing Then Range("H4").Comment.Delete
     If Not Range("I4").SpecialCells(xlCellTypeComments) Is Nothing Then Range("I4").Comment.Delete
 With ws1
  For j = 7 To 9
    j_cell = Split(Cells(4, j), ", ")
    For i = 0 To UBound(j_cell)
      Set FoundCell = .Columns("A:J").Find(j_cell(i), , xlValues, xlWhole)
      msg = msg & FoundCell.Address(0, 0) & ", "
    Next
      Cells(4, j).AddComment.Text Text:=msg
      msg = ""
  Next
  End With
End Sub
 
Кузьмич, благодарю вас!
Теперь логика построения кода понятна.
Страницы: 1
Наверх