|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
08.10.2007, 16:54 | #1 |
Пользователь
Регистрация: 08.10.2007
Сообщений: 15
|
Скопировать строку, содержащую активную ячейку.
НАДО Сабж! Как правильно будет звучать эта строчка?
Если в двух словах, то Cells.Find......................... .....нашел нужную мне ячейку, т.е курсор на ней стоит. теперь мне нужно скопировать строчку, содержащую эту ячейку.(точнее даже надо будет скопировать несколько строчек ниже заданной тоже, но это уже не суть вопроса) я так понимаю что сначала надо задать диапазон для копирования потом ввести i J которые будут координатами активной ячейки(т.к я не знаю как подругому выцепить координаты активной ячейки и потом их применить, естественно просто числа я подставить немогу. т.к каждый раз это будут разные ячейки...), и от этого уже запускать цикл.... iLastRow = Application.WorksheetFunction.Count A(ws.Range("A:A")) jLastColumn = Application.WorksheetFunction.Count A(ws.Range("A:A")) For i = ActiveCell.Row To iLastRow Step 1 Next i For j = ActiveCell.Column To jLastColumn Next j Rows(i, j).Select - вот тут должна быть строчка копирования..... в каком месте я лох?
ICQ:203884299
Последний раз редактировалось Iren; 08.10.2007 в 16:57. |
08.10.2007, 17:39 | #2 |
Форумчанин
Регистрация: 21.08.2007
Сообщений: 292
|
Может я не очень хорошо понял вопрос... вот так у мя копируется 5-я строчка
Код:
Rows - ряд может быть от 1 до 65536 (Office 2003) и второго аргумета, вроде, у ряда нет, а вот у ячейки есть Cells(ряд, столбец). |
09.10.2007, 08:35 | #3 |
Форумчанин
Регистрация: 04.09.2007
Сообщений: 155
|
Sub CelectAndCopyRange()
Dim strSelectTop As String, strSelectBottom As String 'адрес выделенной (найденной) ячеки strSelectTop = ActiveCell.Address 'адрес ячеки на две строки ниже и на две колонки левее strSelectBottom = ActiveCell.Offset(2, 2).Address 'само копирование Range(strSelectTop & ":" & strSelectBottom).Copy End Sub |
09.10.2007, 12:45 | #4 |
Форумчанин
Регистрация: 03.11.2006
Сообщений: 524
|
Offset(2, 2).Address не всегда возвратит, цитирую "адрес ячеки на две строки ниже и на две колонки левее", например, если активной "вдруг" окажется ячейка "IV65536" (XL2000), то ...
Кроме того, свойство Offset учитывает об'единённые ячейки, т.е. если активной будет, например, ячейка "C3" и эта ячейка будет об'единена с другими, для примера, пусть это будет диапазон "С3:E5", то если верить словам предыдущего оратора - адрес смещённой ячейки будет "E5", однако, на самом деле - адрес конечно будет "G7" Поэтому, если говорить о ячейке, "смещённой" на две строки вниз и два столбца влево, то более уместно говорить о любом из двух нижеприведённых вариантов : Код:
Код:
|
09.10.2007, 14:42 | #5 | |
Пользователь
Регистрация: 08.10.2007
Сообщений: 15
|
Цитата:
Rows и cells я конечно спутала.. но все равно итог не меняется от этого...
ICQ:203884299
|
|
09.10.2007, 14:52 | #6 | |
Пользователь
Регистрация: 08.10.2007
Сообщений: 15
|
Цитата:
возможно ли strSelectBottom приравнять к результатом второго поиска. всвязи с моим ламерством спрашиваю, мне надо задать критерий поиска чтобы после первой найденной ячейки которая стала активной в том же столбце F(он будет неизменным) искалась первая ячейка с пустым значением, это и будет strSelectBottom, посколько ваше предложенное ( strSelectBottom = ActiveCell.Offset(2, 2).Address)совершенно мне неподходит, т.к я незнаю сколько строк каждый раз будет копироваться, колличетсво будет разным
ICQ:203884299
Последний раз редактировалось Iren; 09.10.2007 в 15:30. |
|
09.10.2007, 15:09 | #7 |
Форумчанин
Регистрация: 21.08.2007
Сообщений: 292
|
Хм. ну. какая разница ) я же просто пример вам дал ) Не нравится вам i=5, давайте напишу так )
Код:
|
09.10.2007, 15:23 | #8 |
Пользователь
Регистрация: 08.10.2007
Сообщений: 15
|
во клева так попробую. ибо если бы мне мозгов хватило я сама доперла бы что надо туда вписать а так неделю мучаюсь...спасибо!
ICQ:203884299
|
09.10.2007, 15:35 | #9 |
Пользователь
Регистрация: 08.10.2007
Сообщений: 15
|
2madmot
Код:
Код:
strSelectTop по strSelectBottom (можно невключая последнюю)
ICQ:203884299
Последний раз редактировалось Iren; 10.10.2007 в 11:01. |
09.10.2007, 17:29 | #10 |
Пользователь
Регистрация: 08.10.2007
Сообщений: 15
|
Вопрос снят! если что вот полный код того что я хотела(ну малоли кому)
Код:
ICQ:203884299
Последний раз редактировалось Iren; 10.10.2007 в 11:00. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Скопировать в буфер обмена | Dj_smart | JavaScript, Ajax | 8 | 15.05.2008 19:16 |
Help (Составить запись, содержащую сведения о сдаче группой студентов экзамена) | Forro | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 08.01.2008 12:15 |
Перенос содержимого грида в активную базу | SpiDer87 | БД в Delphi | 13 | 24.12.2007 11:30 |
как скопировать файл | Scorpeon | Общие вопросы Delphi | 1 | 19.04.2007 13:45 |
как скопировать? | zetrix | Microsoft Office Excel | 0 | 30.10.2006 18:52 |