Релиб / Программирование / VBA / координаты ячейки / Latest Posts

RE: координаты ячейки

Pavel55 — Sun, 16 Sep 2007 03:08:27 GMT

1) Может эта тема чем-то поможет (переделаете под себя) http://www.vbnet.ru/forum/show.aspx?id=151581

2) Ищем на листе "Лист1" слово "Test" и показываем адрес ячейки, где этот текст находится

[code]Sub Test()
Dim FoundRng As Range
Dim SoughtStr As String
SoughtStr = "Test"
Set FoundRng = Worksheets("Лист1").Cells.Find(What:=SoughtStr)
If Not FoundRng Is Nothing Then
MsgBox "Строка """ & SoughtStr & """ найдена в ячейке " & FoundRng.Address(0, 0)
Else
MsgBox "Строка """ & SoughtStr & """ не найдена на листе!"
End If
End Sub[/code]

Таким образом FoundRng.Address(0, 0) показывает нам относительный адрес ячейки, например, А1 (без (0, 0) будет абсолютный адрес, т.е. $A$1).

координаты ячейки

ЛораП — Sat, 15 Sep 2007 21:17:27 GMT

Здравствуйте! Помогите, пожалуйста, с проблемой. Заказчик принес таблицу.Там есть объединение ячеек.Если из разъединить, то в нескольких ячейках (кроме самой левой) есть нули.При объединении их появляется запрос и остается самая левая. Как же можно объединить ячейки, сохранив в нескольких информацию?
И второй - основной - вопрос. По столбцу делаю поиск ячейки(просматривать по столбцам, область поиска-значение,ячейка целиком). Ячейка найдена.Как программно узнать ее координаты? Т.е. столбец известен, а строка? С благодарностью жду Ваших ответов.