» Excel FAQ

Господа, как в экселе снимать выделение?

Нужно выделить несколько десятков разрозненых строк, выделяю одну, вторую, 3ю и т.д. на 20й делаю ошибку, как отменить, снять выделение этой строки и оставить выделение первых 19ти?

LINUXXX
Что-то мне не очень понравился пример :))))))
То есть он не очень понятный (если не трудно, то в следующий раз оформи в виде таблички)... и боюсь, судя по логике, там допущены ошибки...

Но попробую предположить, что в обновлениях по определению не должно быть записей, которые не влияют на исходный файл... следовательно любая запись в этих обновлениях либо обновляет строку либо добавляется в конец...

Если я не прав, то я что-то не просек... попробуй все же более понятный (для меня) пример...

И еще вопрос, можно ли сделать ссылку-поиск по другому листу?

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

Цитата:

3ю и т.д. на 20й делаю ошибку, как отменить, снять выделение этой строки и оставить выделение первых 19ти?

- Нажать на неё еще раз при нажатой клавише кнтрол (ctrl). Как и во всех приложениях офиса .

Цитата:

Цитата:
3ю и т.д. на 20й делаю ошибку, как отменить, снять выделение этой строки и оставить выделение первых 19ти?
- Нажать на неё еще раз при нажатой клавише кнтрол (ctrl). Как и во всех приложениях офиса .

в экселе это не работает ;(

так как там насчет файла?

Цитата:

в экселе это не работает ;(

- Хм.. не выходит.
Цитата:

Сохраняя первоначально выделенный диапазон, необходимо добавить к нему или исключить из него несколько ячеек
· Удерживая клавишу SHIFT, укажите последнюю ячейку, которую необходимо включить в заново выделяемый диапазон. Прямоугольная область между активной ячейкой и указанной областью образует новый диапазон.

Чтобы включить в диапазон дополнительные несмежные ячейки или несмежные диапазоны ячеек, укажите или выделите их, удерживая клавишу CTRL.

блин, и помощь молчит..

Цитата:

так как там насчет файла?

- с такими огромными не работал. самые сложные и длительные статистические-прогностические вычисления, какие делал, с кучей промежуточных графиков укладывались в 3-5 метров.
(+связи с другими файлами)
Так что, в варианте единого файла не смогу помочь. Только разделение.

Tropin,
может в асе объясню?
или на мыло отпралю в экселе как надо?

Добавлено
Tropin,
короче, еще проверка по названию столбца...

LINUXXX
А какая именно проверка????
Совет один - использовать If ... Then ... Else ... End If ;)

Здравия желаю All.

Есть такой траблю.

Имеется книга excel. Создана в стародавние времена еще при 4 excel-e.
По мере появления версий она правилась добавлялись макросы и т.д.
Сейчас excel 2003.
Так вот сейчас понадобилось удалить пункт меню который создается при загрузке книги.
Этот пункт был создан еще в 5 excel-e.

Вопрос где хранится информация об автоматическом создании этого меню.

Облазил все макросы ничего не нашел.

Help me.

Bol970
Так не бывает, и чтобы меня переубедить прошу файлик сюда или куда-нибудь, где его можно пощупать...

Bol970

Цитата:

Облазил все макросы ничего не нашел

Т.е. процедур, которые Private, и не отображаются в списке макросов по Alt+F8, тоже ни каких подходящих нет?
Интересует в первую очередь Private Sub Workbook_Open() из модуля ThisWorkbook (ЭтаКнига).

Tropin
1. Поместил файл сюды -> _http://www.webfile.ru/139076_

max67


Цитата:

Интересует в первую очередь Private Sub Workbook_Open() из модуля ThisWorkbook (ЭтаКнига).

2. Там все пусто. см. п 1

Bol970

Цитата:

Поместил файл сюды -> _http://www.webfile.ru/139076

Что-то я не заметил там никакого меню! Макросов, действительно куча.
Обычно я добавляю меню с помощью Application.CommandBars.Add("CustomMenu1", msoBarTop, False, True). (последнее True как раз для того, чтобы меню пропадало при закрытии книги).

Horex

Пункты в меню Сервис

MinMax и cw

раньше к ним были макросы прикреплены или как там они назывались в 5 excel-e
еще до VBA которые.

Bol970
1. Это не макросы, потому как при их отключении меню всё равно появляется...
2. Хрен знает что это такое, но если найду - расскажу ;)

Bol970
Tropin

Цитата:

Это не макросы, потому как при их отключении меню всё равно появляется..

Сам голову чешу - даже удалил их, а меню появляется... Выбрал удалить через настройки - пофиг.

Horex
но то что это VBA, а не просто меню сохраненное в файле не вызывает сомнений...
возможо, конечно, баг мелкософта, раз файл был создан в более ранних версиях...

Tropin

Цитата:

но то что это VBA, а не просто меню сохраненное в файле не вызывает сомнений...

почему так думаешь?
Bol970
Я бы просто создал новый файл, и перенес туда все макросы.

Horex

Цитата:

почему так думаешь?

Да потому, что при открытии каждого экземпляра этого файла создается отдельно оба меню, а при закрытии книги эта пара удаляется...
(если переоткрыть тот же документ, то создадуться два меню, хотя открыт всего один файл и при его закрытии останутся хвосты в виде тех ранее созданых менюшек)...


Цитата:

Я бы просто создал новый файл, и перенес туда все макросы

С языка снял ;)

Tropin
Horex


Цитата:

возможо, конечно, баг мелкософта, раз файл был создан в более ранних версиях...

я тоже к этому склоняюсь, а файл то я уже переделал это не проблема макросы перетащить, просто спортивно интересно стало как его от туда убрать, ведь работает-же,
значит мелкомягкие как то эту секцию из файла обрабатывают, теоретически значит где-то должна быть управлялка всей этой фигней.

вариант конечно поставить 5 excel и там посмотреть как оно туды попадает и от туда убрать тогда.

Tropin,

Цитата:

Совет один - использовать If ... Then ... Else ... End If

Эт понятно, просто я с excel не работал и не знаю как сделать проверку названий по столбцу. Просто пока только проверка по названию строк, а ещё бы по столбцам. Хочется

Tropin,
помоги плиз, а то вручную делать ломит(
Что надо изменить в коде, чтобы обновление шло по столбцам, а не по строкам?

А как сделать автозапуск макроса?
(поиск не работае(( )

Цитата:

А как сделать автозапуск макроса?

нужно поместить код в обработчик нужного события, например для выполнении макроса при открывании книги в
Код: Private Sub Workbook_Open()

End Sub

можно ли сделать так, чтобы при выделении ячейки подсвечивалась вся строка?

Цитата:

при выделении ячейки подсвечивалась вся строка?

- А вариант нажатия на заголовок строки не годится?

:обращался уже несколькими страницами раньше, но никто не помог, неужели никто не знает((:

Подскажите пожайлуста:
Есть картинка (предположим из Word'a), нажимаем "копировать", заходим в Excel, выделяем нужную ячейку и нажимаем "вставить". Картинка вставляется кое-как, но сразу видно что к выбранной ячейке она совсем не относится и "висит в воздухе" рядом с ячейкой. Несмотря на то что в свойствах картинки написано "привязать к ячейке и изменять размеры"!
Как это исправить, т.е. чтобы картинка также грамотно вставлялась как если бы таблица была бы в Word'e? Т.е. если ячейку куда-то перемещаешь (сортировкой, например), то картинка вместе с ней перемещалась и вообще жестко к ней была привязана - т.е. например если ячейкаменьше по размеру чем картинка, то она автоматически под нее расширилась (как в Word'e).

Заранее благодарен, меня этот вопрос давно волновал)

Ответ: 'в формате объекта есть параметр "перемещать и изменять размер вместе с ячейками" ' почему то не рабоает.

L
Используая VBA, например так :

Код: Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Rows(Target.Row).Select
End Sub

Доброго времени суток, уважаемые гуру!

Сабжем никогда не пользовалась, а тут возникла жгучая необходимость написать или найти макрос, который сравнивает две таблицы и пишет в третью позиции, которые не совпадают.

Помогите глупой блондинке!

Цитата:

Сабжем никогда не пользовалась, а тут возникла жгучая необходимость написать или найти макрос, который сравнивает две таблицы и пишет в третью позиции, которые не совпадают.

Dim act1
Dim act2

Range("A1").Select
act1 = ActiveCell.Value

Do While act1 <> 0
ActiveCell.Offset(0, 1).Select
act2 = ActiveCell.Value
If act2 = act1 Then
ActiveCell.Offset(1, -1).Select
act1 = ActiveCell.Value
Else
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = "Error"
ActiveCell.Offset(1, -2).Select
act1 = ActiveCell.Value
End If
Loop