Перейти из форума на сайт.

Новости • Файловые архивы
Поиск • Активные темы • Топ лист
Правила • Кто в on-line?
Вход • Забыли пароль? • Первый раз на этом сайте? • Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Закладки » Excel VBA (часть 3)

Модерирует : ShIvADeSt

 Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213

Открыть новую тему     Написать ответ в эту тему

partisan71

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Цитата:
Видеоинструкция Операторы слияния таблиц SQL JOIN в Excel Power Query.

Спасибо добрый человек!
Всего записей: 4 | Зарегистр. 02-04-2014 | Отправлено: 15:08 25-01-2024
Drazhar

Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Ivanus8147rus
пардон
Замените квадратные скобки на круглые
Всего записей: 88 | Зарегистр. 10-11-2009 | Отправлено: 15:06 06-05-2010
Ivanus8147rus

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Drazhar, спасибо за то что откликнулись, только при попытки отредактировать некоторые строки выдает вот что.
Массив, как видите, объявил. Я так понимаю, ему действия не нравятся, может быть из-за формата Long?
Всего записей: 4 | Зарегистр. 27-04-2010 | Отправлено: 14:52 06-05-2010
Drazhar

Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Ivanus8147rus
'arr - наш массив

Код:
dim mn as long
dim mx as long
dim pr as long
mn=arr[0,0]
mx=arr[0,0]
pr=1
for i=0 to 6
for j=0 to 7
if arr[i,j]>mx then
mx=arr[i,j]
end if
if arr[i,j]<mn then
mn=arr[i,j]
if j=2 then
pr=pr*arr[i,j]
endif
end if
next j
next i
Всего записей: 88 | Зарегистр. 10-11-2009 | Отправлено: 14:12 06-05-2010 | Исправлено: Drazhar, 14:13 06-05-2010
vlth

Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
dimazt

Код:
Область.FormatConditions.Add 2, 3, "=A10>0"
???
Всего записей: 258 | Зарегистр. 22-01-2008 | Отправлено: 13:23 06-05-2010
Ivanus8147rus

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Господа, помогите пожалуйста с заданием)
Я полный нуб, а работу нужно сдать как можно скорее

Цитата:
В матрице R(6,7) найти диапазон значений элементов и произведение элементов 2-го столбца.

Элементы матрицы задаются вручную
Заранее благодарю!)
Всего записей: 4 | Зарегистр. 27-04-2010 | Отправлено: 13:10 06-05-2010
vlth

Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
NJCorp

Цитата:
неработает так как у меня обєдененние яцейки, что посоветуете?  


Код:
Sub Example()
With ActiveCell.MergeArea
    If .MergeCells Then
        .Rows.RowHeight = .Cells(1).Font.Size * 1.25 / .Rows.Count
    End If
End With
End Sub
Всего записей: 258 | Зарегистр. 22-01-2008 | Отправлено: 11:17 06-05-2010 | Исправлено: vlth, 12:51 06-05-2010
dimazt

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
как правильно в 1с написать формулу условного форматирования в  Excel
в Excel выглядить так:
Range("A10:C15").Select
    Selection.FormatConditions.Delete
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$A10>0"
    Selection.FormatConditions(1).Interior.ColorIndex = 35
в 1с все правильно до ввода формулы.
 Worksheet.Range("A10:C15").Select();  //выделение области  
    Область = Worksheet.Range("A10:C15");
    Область.FormatConditions.Delete();
    Область.FormatConditions.Add(2, "=$A10>0");
    Область.FormatConditions(1).Interior.ColorIndex = 35;
как правильно написать строчку
Область.FormatConditions.Add(2, "=$A10>0");
Всего записей: 3 | Зарегистр. 01-12-2009 | Отправлено: 16:58 05-05-2010
NJCorp

Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Цитата:
Ищите источник ошибки при пошаговом выполнении процедуры.  

етот не поможет, придется вручную искать, пошагово.  
Спасибо за помощь
 
Добавлено:
Переделал цикл и все пошло,  
правда теперь ишит перебором, ето немного дольше (наверное), но база не большая, думаю проблем не будет.
 
вопрос, как сделать чтоб висота строки подгонялась автоматом относительно содержимого.
Типа Формат => Строка => автоподбор висоти...  
Кстати у меня ето не работает, всегда виставляет висоту 15,75 независимо от содержимого
СПС
 
Добавлено:
неработает так как у меня обєдененние яцейки, что посоветуете?
Всего записей: 72 | Зарегистр. 18-08-2007 | Отправлено: 09:55 04-05-2010
andrewkard1980

Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Спасибо!
С этим разобрался. Создал на листе списки для выбора авто, сгенерировал веб запрос, все работает. Одна проблема, необходимо htmlcode разбивать с помощью функций, поскольку возникает неправильная разбивка данных, я раньше делал так:
 On Error Resume Next
    outstr = Mid(htmlcode, InStr(1, htmlcode, "b-itemSeacrh") + 0, 10000)
    On Error Resume Next
    Set oHttp = Nothing
     On Error Resume Next
    Range("$A$50") = outstr
     On Error Resume Next
    outstr = Mid(htmlcode, InStr(1, htmlcode, "b-itemSeacrh") + 7000, 10000)
    Set oHttp = Nothing
     On Error Resume Next
    Range("$A$51") = outstr
     On Error Resume Next
    outstr = Mid(htmlcode, InStr(1, htmlcode, "b-itemSeacrh") + 15000, 10000)
Возможно что то не так пишу, только пару дней назад сел разбиратся с ним
Со слова b-itemSeacrh начинается найденные машины, к каждой можно привязятся к слову HeaderLink (начало каждой машины). Вот теперь голову ломаю
 
 
 
Добавлено:
По аналогии с функцией excel mid написал для второй машины:
outstr = Mid(htmlcode, InStr(InStr(1, htmlcode, "b-itemSeacrh"), htmlcode, "HeaderLink") + 0, 10000)
Работает, интерестно, сколько вложений видерживает функция, вряд ли много...
Всего записей: 209 | Зарегистр. 01-05-2010 | Отправлено: 15:23 03-05-2010
Drazhar

Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
andrewkard1980
А в чем проблема-то? Записываете макрос  создания веб-запроса к поизвольной странцие. Дальше смотрите какой параметр в URL за тчо отвечает(методом тыка), дальше генерируете URL и подставляете в заготовку из пункта 1
Всего записей: 88 | Зарегистр. 10-11-2009 | Отправлено: 00:57 03-05-2010
andrewkard1980

Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Добрый день!
Помогите с макросом для импорта данных с интернет страницы. Необходим макрос, который бы запрашивал марку, модель, год выпуска, тип КПП и копировал результаты поиска с сайта, вставляя данные на листе по порядку, т.е. 1 машина в А1, вторая в А2, и так далее. Нужно для расчета стоимости в оценке автотранспорта. Вот сайт: http://auto.ria.ua/?target=search&event=little&category_id=0&state=0&city=0&marka=58&model=526&s_yers=2007&po_yers=2007&bodystyle=0&gearbox=0&type=0&drive_type=0&color=0&engineVolumeFrom=&engineVolumeTo=&raceFrom=&raceTo=&custom=1&damage=1&exchangeTypeId=0&saledParam=0&under_credit=0&price_ot=&price_do=&currency=1&auto_id=&order_by=0&search_button=%CF%EE%E8%F1%EA&page=0
 
Данные, которые нужны по авто, в таком виде: Peugeot 307 2007 г.в Запорожье   Цена $ 14 500 Запорожье Тип кузова: Хэтчбек; Коробка передач: Типтроник; Цвет: Черный; Объем двигателя: 2.00 л. ; Пробег: 43 тыс.км;
 
Возможно сделать? Спасибо.
Всего записей: 209 | Зарегистр. 01-05-2010 | Отправлено: 15:27 01-05-2010
vlth

Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
miroed2, небольшое замечание по поводу Select и ... не только.
 
Оптимальная организация кода процедур не требует применения метода Select.
 
Необходимость применения Select - это:
1. выделение диапазона в процессе отладки процедуры;
2. выделение определённой ячейки в конце работы кода для удобства дальнейшей работы пользователя.
 
Следует понимать, что все приведённые примеры оперируют с диапазонами активного листа Excel, что в результате работы реальной программы может привести к неконтролируемому изменению, скажем, содержимого рабочих книг, и Вы об этом, может статься, не узнаете никогда.
Всего записей: 258 | Зарегистр. 22-01-2008 | Отправлено: 14:16 01-05-2010
miroed2

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Большое спасибо, vlth !
А сколько времени мной потрачено на поиск решения !
Что оно простое и существует - понимал.
 
Всего записей: 10 | Зарегистр. 29-11-2008 | Отправлено: 13:47 01-05-2010
vlth

Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
miroed2

Цитата:
i = A1: j = A4  
Здесь переменная i содержит текст "A1", а переменная j - "A4"
Правильно:
Код:
Rows([A1] & ":" & [A4]).Select
'или
Rows(Cells(1, 1) & ":" & Cells(4, 1)).Select
'или
Rows(Range("A1") & ":" & Range("A4")).Select
'или
Rows(Range(i) & ":" & Range(j)).Select
'или
'...
Всего записей: 258 | Зарегистр. 22-01-2008 | Отправлено: 13:12 01-05-2010 | Исправлено: vlth, 13:19 01-05-2010
miroed2

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Может, кто знает, как в макросе сделать ссылку на "динамический" диапазон строк/столбцов, аналогично такому выделению "динамического" диапазона ячеек с помощью комбинации формул ДВССЫЛ и АДРЕС. Т.е. чем можно заменить цифры в диапазоне вида  
Rows("4:10)".Select.  
так, чтобы это было приемлемо для работы макроса.  
Попытки вставить в эту строку названные выше функции в разных комбинациях, абсолютный и относительный адреса ячейки с вычисленным номером строки ничего не дали, макрос сбоит и ругается.  
Использование  
i = 4: j = 10  
Rows(i & ":" & j).Select  
не решает проблемы. Диапазон по прежнему статичен и определяется значениями переменных i и j, которые жестко заданы.  
Как выделить диапазон, в котором номер одной или обеих строк вычисляется разными формулами при предыдущих вычислениях макроса ?  
Попробовал видоизменить  на  
i = A1: j = A4  
Rows(i & ":" & j).Select  
при этом в ячейки А1 и А4 записал цифры 1 и 4, но не помогло, ругается.  
Что-то делаю не так ?
Всего записей: 10 | Зарегистр. 29-11-2008 | Отправлено: 12:24 01-05-2010
vlth

Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Цитата:
Народ, помогите... достал меня етот кусочек кода...  
Вибрасивает ерор91, немогу понять что не туда...  

 
Err.Number=91:
Цитата:
Объектная переменная или переменная блока With не установлена. Эта ошибка возникает, если не пользоваться оператором Set в начале создания объектной переменной. Кроме того, такая ошибка возникает, когда создаётся ссылка на объект рабочего листа (например, ActiveCell), а в это время активен лист диаграммы.


Цитата:
... меня интересует ошибка а не модернизация кода

NJCorp, Вы можете, не "модернизировав" свой код и не заглядывая в VBE, утверждать, ссылки на все объекты у Вас создаются корректно?
Я - нет. Поэтому код и переписан.
 
Ошибки, по крайней мере, в синтаксисе, в переделанном варианте нет.
Ищите источник ошибки при пошаговом выполнении процедуры.
 
З.Ы. Предполагаете, что компилятор пропустит ошибку, если её таким образом замаскировать?
Всего записей: 258 | Зарегистр. 22-01-2008 | Отправлено: 13:46 30-04-2010
NJCorp

Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Цитата:
Offset(0, 4).Value - в этой ячейке нет #знач?

нет конечно
vlth
изначально так и било, меня интересует ошибка а не модернизация кода
функция Zapovn () самостоятельно работает, и цикл нормально работает, если не запускать в теле функция (пробовал на msgbox .... все как часики). А вот вместе....  
я уже и другой цикл пробовал (for to next) - один фиг, придется переделивать...
Всего записей: 72 | Зарегистр. 18-08-2007 | Отправлено: 11:18 30-04-2010
vlth

Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
NJCorp, не проще записать
Код:
Zapovn rg.Offset(, 4)
вместо
Код:
Zapovn (Sheets("Form").Range(rg.Address).Offset(0, 4).Value)  
???
 
Добавлено:

Код:
If chekbox Then
    With Sheets("Form").Columns(3)
        Set rg = .Find(OsKrt_klass.Text, , xlValues, xlWhole)
        If Not rg Is Nothing Then
            strt = rg.Address
            Do
                Zapovn rg.Offset(, 4)
                Set rg = .FindNext(rg)
            Loop Until (rg Is Nothing And rg.Address = strt)
        End If
    End With
Else
     
End If
Всего записей: 258 | Зарегистр. 22-01-2008 | Отправлено: 15:51 29-04-2010
Hugo121

Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Offset(0, 4).Value - в этой ячейке нет #знач?
Всего записей: 128 | Зарегистр. 14-08-2007 | Отправлено: 15:06 29-04-2010
vaulin

Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
NJCorp
трудно разобраться. попробуй упростить эту подпрограмму по максимуму, где-нибудь в отдельном проекте, до тех пор, пока ошибка будет еще появляться.
 
Всего записей: 80 | Зарегистр. 16-10-2008 | Отправлено: 14:47 29-04-2010
Открыть новую тему     Написать ответ в эту тему

Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Закладки » Excel VBA (часть 3)


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru