Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Как пустить макрос через несколько прокси
 
Как в VBA указать прокси сервер через который макрос должен подгружать функцией .QueryTables.Add данные
Параллельный поиск по 2 словам
 
Есть список в одном столбце допустим его диапазон B1:B150  
Где в ячейках находится случайный текст.  
Искомые ячейки имеют вид:    
Цена "в наличии/на заказ" "случайный мусорный текст" Магазин "случайный мусорный текст"  
Примеры:  
4 260 руб. в наличии в Магазине  
4 370 руб. в наличии в Ларьке  
4 373 руб. на заказ в Универмаге
В столбце необходимо провести поиск первых трех таких ячеек.  
Я думал о поиске по словам "в наличии" или "на заказ", но одновременном  
Т.е. ЕСЛИ в ЯЧЕЙКЕ есть "в наличии" ИЛИ "на заказ", то ПЕРЕМЕННАЯ = ЯЧЕЙКЕ  
 
Я пытался осуществить поиск по совпадению знаков, но выдало только мусор  
 
Код
 range("B1:B101").Select   
        Selection.Find(What:="* ?а??*", After:=ActiveCell, LookIn:=xlFormulas, _   
        LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _   
        MatchCase:=False, SearchFormat:=False).Activate   
        Cells(1, 5) = ActiveCell
Извлечение Ссылки из ячейки с гиперссылкой без функции
 
Спасибо идеально подошло!
Извлечение Ссылки из ячейки с гиперссылкой без функции
 
"=HYPERLINK(""http://Ссылка разлоичной длины"",""Отображаемый текст"")"  
 
Нужно извлечь из ячейки с такой формулой саму ссылку вложив ее в стринговую переменную  
я пробовал использовать,    
.Hyperlinks.Add  
.Hyperlinks.Address  
но мне выдавало, то out of range, то argument(последний) not optional, то еще что-то.  
Подскажите как это реализовать, именно в макросе, без написания дополнтельных функций.  
 
В идеале хотел чтобы было, что-то вроде  
x = Cells(n,9).Hyperlinks.Address, где x - строчная переменная n- целочисленая  
для работы в цикле
Страницы: 1
Loading...