Определение строки где есть слово "Колличество"
dd = Sheets(i).Cells.Find(What:="Колличество").Row
Определение колонки где есть слово "Колличество"
ddd = Sheets(i).Cells.Find(What:="Колличество").Column
Добавлено (21.03.2015, 17:50)
---------------------------------------------
Буфер обмена
ClipboardText (чтение текста из буфера обмена), но не требующая подключения библиотеки
Sub ПримерИспользования()
txt = ClipboardText
MsgBox txt, vbInformation, "Содержимое буфера обмена Windows"
End Sub
Function ClipboardText() ' чтение из буфера обмена
With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
.GetFromClipboard
ClipboardText = .GetText
End With
End Function
Sub SetClipboardText(ByVal txt$) ' запись в буфер обмена
With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
.SetText txt$
.PutInClipboard
End With
End Sub
Добавлено (21.03.2015, 17:53)
---------------------------------------------
Как определить адрес активной ячейки.
ActiveCell.Row и ActiveCell.Column - покажут координаты активной ячейки
Добавлено (10.04.2015, 15:43)
---------------------------------------------
Определение последней заполненной строки
lLastRow = Cells.SpecialCells(xlLastCell).Row
Определение последнего столбца
lLastCol = Cells.SpecialCells(xlLastCell).Column
Данный метод не требует указания номера столбца и возвращает максимальную последнюю ячейку(строку - Row либо столбец - Column). Но используя данный метод следует помнить, что не всегда можно получить
реальную последнюю заполненную ячейку, т.е. именно ячейку со значением.
Если вы где-то ниже занесете данные и сразу удалите их из таблицы, а
затем примените такой метод, то lLastRow будет равна значению строки, из которой вы только что удалили значения. Другими
словами требует обязательного обновления данных, а этого можно добиться
только сохранив и закрыв документ и открыв его снова. Так же, если
какая-либо ячейка содержит форматирование(например, заливку), но не содержит никаких значений, то она тоже будет считаться заполненной.Я этот метод использую только для определения в только что созданном документе, в котором только добавляю строки.
Добавлено (10.04.2015, 16:18)
---------------------------------------------
Получение ссылки ячейки в буквенном формате
a = Cells(1, 1).Address ' результат "$A$1"Добавлено (10.04.2015, 16:45)
---------------------------------------------
' Вгоняем в массив все данные листа
Set Sheet1_WS = Sheets("исх дан")
FinalRow = maxzapolnstr
FinalColumn = 20
'Присваиваем массиву диапазон данных на Листе 1
R_data = Sheet1_WS.Range(Sheet1_WS.Cells(1, 1), Sheet1_WS.Cells(FinalRow, FinalColumn))
