» Excel FAQ (часть 3)

Подскажите, пожалуйста, как проделать следущее:
Имеется достаточно длинный столбец гиперссылок с названием.
Нужно: получить столбец, в котором сама по себе гиперссылка и название будут удалены, а элементами столбца будут адреса, на которые ссылались элементы первого столбца.
Проще говоря, из ГИПЕРССЫЛКА (адрес;имя) получить адрес.

Спасибо

ildarchikk
Гиперссылка-Копировать гиперссылку, вставить в новый столбец, затем этот столбец
Копировать и Специальная вставка (значения)

Vitus_Bering
Так из ГИПЕРССЫЛКА (адрес;имя) получается имя, а мне нужно адрес.

ildarchikk
Приведи пример гиперссылки т.е. как написано у тебя.

dino
У меня обычные гиперссылки, которые создаются Ctrl-K. Проблема в том, что не я их создаю, они мне даны списком, и мне нужно вытянуть urlы.

ildarchikk
ОК!
Понял!


Добавлено:
ildarchikk
Попробуй пользовательскую функцию:
Public Function ExtractHyperlink(CellWithHyperlink As Range) As String
On Error Resume Next
ExtractHyperlink = CellWithHyperlink.Hyperlinks.Item(1).Address
End Function

dino
Спасибо, брат, функция работает!

ildarchikk
OK!

Насколько я понимаю, эта тема в основном содержит вопросы ответы типа "как сделать...?", но так как меня усиленно сюда посылали, поппробую и свою проблемку сюда пихнуть:
Человек очень плотно работает с Excel2007 - открыто 5-7 файлов с большим количеством листов, между ними идет интенсивный обмен данными (копируются фрагменты, применяются фильтры) переключение между таблицами производится Alt-Tab'ом. Через некоторое время такой интенсивной работы по Alt-Tab'у происходит зависание эксела. В чем дело, как лечится?
ОС - XPProRus OEM, установленная производителем ПК, автоматическое обновление работает, проблем с другими приложениями нет, проблема только с Excel. Причем файлы не особо большие 1-3 МБ. Зависание происходит не внезапно, сначала эксел начинает подтормаживать, перестает перерисовывать элементы интерфеса, потом начинает выводить панел меню с большой задержкой, и после этого виснет наглухо.
Машина новая и достаточно приличная - Core2Duo 6420, 2 гига памяти, видео полноценное. Зависание похоже на мертвое, но полчаса ждать не пробовали. Да сначала происходит именно замедление. Но так как ресурсов предостаточно, непонятно из-за чего это происходит. Причем, если переключение между окнами делать мышью, то все нормально. А вот когда пользуешься Alt-Tab'ом - умирает. Симптомы очень похожи на нехватку памяти, но при 2 гигах оперативки это не выглядит разумным.
Идеи?

demiurh
Скорее всего проблема именно в нехватке памяти. По Alt-Tab происходит переключение между запущенными приложениями, видимо у вас запущенно столько приложений Microsoft Excel сколько открыто файлов. Пробуйти запустить Excel и открывать файлы через меню Файл->Открыть.

demiurh

Цитата:

интенсивный обмен данными (копируются фрагменты,

А если попробовать периодически очищать буфер обмена от всего, что там накопилось при копировании?
Да, еще - на панели задач появляется значок буфера обмена, если на нем правой кнопкой мышки кликнуть и выбрать "Прекратить сбор данных"?

Подскажите, пожалуйста, как в Excel 2003 сделать блок зависимых переключателей(радиокнопки - OptionButton), чтобы они выдавали результат в одну из ячеек. Никак не могу догнать.
Делаю по какому-то руководству курсовую работу для подруги. Там видимо для более старого Excel даны шаги: Сделать рамку (Frame что-ли?)и на неё натащить три OptionButton. Потом задать им соответствие на одну ячейку. Я так понял что это Linked Sell в свойствах каждого Button'a. Но вот только не работает. Я думал что работы мышкой будет достаточно. Неужели разбираться с программированием?

Уже задавал вопрос, но пока не нашел ответа. Кто-нить может сказать в чем прикол?
http://forum.ru-board.com/topic.cgi?forum=5&topic=23470&start=640#15

Добавлено:
Интерестно то, что если все листы просто тупо скопировать в новый файл (ctrl+A; ctrl+C ), доступ к книге становиться активным... Не пойму в чем дело то?

Подскажите как сделать обединение 3-х ячеек с сохранением текста.
Иванов| Иван| Иванович|
Привести к виду Иванов Иван Иванович в одной ячейке

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

RedShadow
Попробуй в дополнительном столбце прописать формулу: =A1&" "&B1&" "&C1

dino,greyish
Но памяти-то полно! Эксел не жрет больше 200 метров из свободных более чем 1600.

Подскажите уважаемыйе участники.

Проблема простая - автоматически пометить каждую вторую строчку (или 25ую, или 30ую), пометить в плане - поставить символ какой-нибудь, чтобы потом можно было автофильтром отобразить эти помеченые стррочки.

Никак не могу найти решения

Вроде было уже тут.
Делаешь справа столбик, допустим это столбик Б.
в Б1 вносишь "1".
допустим тебе нужно каждую 5ю строку "отфильтровать".
Идешь в Б6 и там ставишь =Б1.
Тут тоже появляется значение "1".
Далее эту формулу копируешь вниз до конца таблицы.
Получается что у тебя каждая 5я строка содержит в столбке Б "1". А остальные строки - "0".

Mike Di
На то они и зависимые переключатели, что "истина" только одна, т.е. это именно переключатель, а не множество отдельных тумблеров (как флажки).

Поскажите пож-ста каким образом можно на vba достать имя текущего пользователя windows. Заранее спасибо.

kserg1983
Это тебе в топике Excel VBA спрашивать надо.

Mushroomer

спасибо

Помогите разобраться с проблемой... Имеется Microsoft Excel из состава Office 2003 Professional. Есть экселевский файлик, в котором 2100 строк, 12 столбцов. В заголовках столбцов настроен список (фильтр). Соответственно на каждой строке вбиваются значения, а фильтрация (для наглядного поиска информации) осуществляется выбором значений из списка в столбцах. Проблема заключается в том, что в раскрывающемся списке восьмого столбца отсутствуют некоторые позиции (их просто нет в списке). Хотя если сделать выборку по отбору "(Условие...)" и вбить в "Пользовательском автофильтре" наименование отсутствующей позиции, то позиция с этим значением находится.

В чем может быть дело? Как починить список?

Заранее спасибо.

Цитата:

В чем может быть дело? Как починить список?

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

Взял из предыдущих топиков такой пример функции, определяющей окончание столбца с записями

Public Function lrc(ws As Worksheet, c As Integer)

lrc = 1
Do While ws.Cells(lrc, c) <> ""
lrc = lrc + 1
Loop
End Function

Но не могу ею воспользоваться, точнее передать аргументы.
Запускаю процедуру свою

Sub pusk()
b = lrc(ws, c)
MsgBox b
End Sub

И получаю ошибку в виде "ws - ByRef argument type mismatch"

Подскажите пожалуйста, что я не так делаю

Добавлено:

Цитата:

Подскажите пожалуйста, что я не так делаю

Ребята разобрался - дописал ByVal перед аргументами и назначил активный лист
Set ws = ActiveSheet

как в Экселе объеденить ячейки? то есть данные из 2-3 ячеек идущих сверху вниз, объеденить в одну общую

NPC
=1& A2 & A3

Mushroomer спасибо! но немного не то, не нужны мне всякие ссылки на ячейки, а физическое объеденение

NPC
при физичском объединении пропадет содержимое всех ячеек кроме первой
Надо выделить все ячейки, затем CTRL + 1 -> Выравнивание -> Объединение ячеек.