• Здесь может быть Ваша реклама

Смета АВК 3.2.хх

М

Маришк@

Гость
В помощь пользователям для ввода в ПК АВК-3 (2.7.0) предлагаем пользовательскую НСИ с нормами гос. стандарта ДСТУ на бетонные и ж/б конструкции и др. работы, опубликованные в Ц.О. № 6,7,8 за 2008 год. файл Для ввода в ПК АВК-3 (2.7.0) в пункте меню "Прочие функции" необходимо выбрать "Ввод НСИ пользователя из файла".
Скачать:
Скрытое содержимое доступно для зарегистрированных пользователей!
 

sassa

Активный участник
Регистрация
30 Мар 2008
Сообщения
13
Реакции
7
Баллы
0
sassa, к посту 39 Какие именно неточности? Поподробнее плиз
В общем очень многие жалуются на 2.7.0. предыдущие версии считали точнее.
Надо просматривать полностью смету и не пропустить пустых строк и проектных материалов.
Что я заметил, так это неточности в округлении:
1. при з/п 9,125 АВК округляет до 9,13 по всей тарифной сетке. Для подрядчиков все класно, а для заказчиков-увы;
2. неправильно расчет ведется в общепроизводственных расходах;
3. иногда бывают сбои в расчетах механизмов.
Эти неточности иногда составляют порядка 13%. Чем больше ручных работ, тем больше неточностей.

СТС и АВК лицензионные.
Это еще одна причина перехода с АВК на СТС.
 
K

ksilit

Гость
Вопрос: можно ли метафайлы из версии 2.7.1. импортировать или переводить в 2.6.0 и если можно, то как. Спасибо

Можно ли конвертировать файлы АВК3 в другие программы (например Эксель)?

Добавлено через 4 минуты

Насколько корректно работает АВК3 на машине с интегрированной видеокартой?

Добавлено через 3 минуты

Помогите, пожалуйста с кряком или кецгеном на АВК3 2.7.0. Спасибо.
1.Есть программка, сделанная одним пользователем, все прекрасно переводит через текстовый формат или фрагмент(но не должно быть пользовательских расценок) выдаст ошибку, но если потом сделать эти расценки самому, то нормально открывается.
2.Можно, опять таки с помощью этой программки, делает в ексель чтото типа коммерческой сметы, материалы отдельно, работы отдельно, начисления присутствуют...
Скрытое содержимое доступно для зарегистрированных пользователей!

только для скачивания надо регистрация
3. есть тут виртуальная машина с предустановленной АВК 2.7.0, скачайте ее.

Обещают вскоре выход 2.8.0, пока якобы тестируют ее, там реализован вывод в ексель
 

sassa

Активный участник
Регистрация
30 Мар 2008
Сообщения
13
Реакции
7
Баллы
0
Серьёзное обвинение, а можно узнать: конкретно где не правильно считает- в расчёте какого блока?
Во втором блоке, особенно при суммировании.
 
K

ksilit

Гость
и пользователей уж точно запутали выбором: или АВК-5, или НВК.
да никто не путает, АВК5 -это обещанная 2.8.0, которую должны были выпустить под АВК3.
ИВК (от инпроекта) еще не прошла аттестацию, как в прочем и АВК5
многие останутся на 2.7.0
есть нормальные другие программы АС-4, СТС
 
М

Маришк@

Гость
Уважаемые господа!​

Довожу до Вашего сведения, что 19 ноября 2008 года НПФ “АВК Созидатель” представила программный комплекс АВК-5 на рассмотрение Комиссии Минрегионстроя Украины на предмет его соответствия действующим “Правилам определения стоимости строительства” для решения вопроса о рекомендации к применению. Указанная Комиссия рассмотрела работу ПК АВК-5 и его взаимодействие с другими программными комплексами на основе технологии ИБД-2, убедилась в его полном соответствии ДБН Д.1.1-1-2000 и никаких замечаний не высказала. В ближайшее время мы ожидаем официального подтверждения Минрегионстроем Украины этого факта - публикации соответствующего письма.
В связи с большой актуальностью прошедших за последние месяцы изменений в отечественном строительном ценообразовании, в том числе, влияющих на величину расчетной трудоемкости и, соответственно, административных расходов и сметной прибыли в инвесторской сметной документации и договорной цене, с выходом дополнений и изменений в базе общегосударственных и ведомственных сметных нормативов, и отвечая на многочисленные обращения пользователей, мы вынуждены начать распространение АВК-5 уже сейчас.
Еще раз обращаю Ваше внимание на полную преемственность ПК АВК-5 с ПК АВК-3. С более подробной информацией можно ознакомиться на http://avk.creator.dp.ua .
 
R

rus_stas

Гость
Разъяснение НПФ "Инпроект" относительно изменений в программном обеспечении и дальнейшего обслуживания пользователей. Читать здесь

Добавлено через 12 минут

На сайте Созидателя выложили прайс на АВК-5 2.8.0 как для новых пользователей, так и для пользователей АВК-3.
Вот ссылочка
 
K

ksilit

Гость
Ну вот и появилась долгожданная ИВК, на сайте разработчика пока только презентация?
Интерфейс по-моему удобнее.
ИВК слизанная программа Смета-97, была такая до СТС, это их первая программа

Добавлено через 4 минуты

Есть дистрибутив на АВК 5 2.8.0 *** скрытый текст ***
Пока без кряка
связывались с "черным дилером" развод полный...
но мне кряк не надо...) у меня и так есть
 
М

Маришк@

Гость
Минрегионбуд прислал факсом разработчикам(и выслал почтой) письмо, о том что АВК-5 рекомендована для использования всеми участниками строительства.
ссылка на источник http://www.stroysmeta.com.ua/
на сайте АВК пока письма нет, но похоже на правду
 
D

Dimon4eg

Гость
забираем таблетки для 1.1.x-2.7.0
Скрытое содержимое доступно для зарегистрированных пользователей!
 

Sun

VIP кандидат
Регистрация
4 Авг 2007
Сообщения
43
Реакции
2
Баллы
84
да это все так. но. создатели АВК выпустили новую сметную програму и с 2009 г. скорее всего вся бюджетная стройка будет финансироватся только по ней. подробности на сайте ИНПРОЭКТА
Все с точностью до наоборот.

создатели АВК (http://avk.creator.dp.ua/) выпустили новую версию АВК, а новую программу пытается выпустить (http://www.inproekt.kiev.ua/) Инпроект. И на сегодня 20/01/2009 еще не выпустил.
 
K

ksilit

Гость
У кого стоит AVK-5 2.8.0 и кому не жалко, поделитесь, пожалуйста, своим кодом компьютера и паролем. Вам все равно, а мне приятно.
вы считаете, что это вам поможет...?
у каждого компьютера свой код, к которому генерируется пароль + есть ньюансы
 

Sun

VIP кандидат
Регистрация
4 Авг 2007
Сообщения
43
Реакции
2
Баллы
84
А вот и ошибки, точнее их фиксы, пошли:

Пользователям АВК-5 ред. 2.8.0 предлагается несколько специальных программ, позволяющих исправить выявленные в программе ошибки.
1. Ошибка: не всегда правильно отрабатывает функция Ц() (целая часть от выражения в скобках), что может приводить к искажению результата во встроенном расчете Командировочных расходов.
Разработана программа, устраняющая эту ошибку. Ее можно скачать здесь. Программу patch280_1.exe необходимо поместить в папку ...\EXE программного комплекса АВК-5 и стартовать ее. При нормальном выполнении программы будет сообщение "Изменения в АВК-5 2.8.0 выполнены".

2. Вниманию пользователей АВК-5 , работающих в ОС "Windows 2000“ (не путать с ОС "Windows XP“!).
Если при инсталляции на компьютер программа АВК-5 ред. 2.8.0 не устанавливается, следует скачать программу kor_avksetup.exe , которая вносит изменение в программу инсталляции. Содержимое инсталляционного диска следует переписать на жесткий диск. После этого необходимо убрать атрибут "только чтение" в файле программы инсталляции AVKSETUP5_2_8.EXE. В то же место (в ту же папку) необходимо переписать программу kor_avksetup.exe стартовать ее. После инсталляции ПК АВК-5 необходимо выполнить действия, описанные в п.1.

3. Вниманию пользователей АВК-5 , столкнувшихся с проблемой явного снижения скорости счета по сравнению с программой АВК-3.
Снижение скорости счета наблюдается при определенных, нестандартных способах установки операционной системы Windows XP (например, установка ее поверх Vista). Для получения конкретных инструкций и специальной программы, нейтрализующей эту ошибку в АВК-5, пользователю следует обратиться непосредственно к дилеру, у которого получен программный комплекс. Всем дилерам данная программа передана.
 

Наталя

Активный участник
Регистрация
21 Ноя 2007
Сообщения
3
Реакции
2
Баллы
0
Необходимо у кого есть рабочая правельная версия АВК 5 сделать вертуальную машину!! И тогда смогут все пользоваться!! Как сделали с версией 2.7.0!!! Так что если у кого то есть сделайте вертуальную машину!!
 

sassa

Активный участник
Регистрация
30 Мар 2008
Сообщения
13
Реакции
7
Баллы
0
Строим Мини АВК
Урок 1 -БАЗА РАСЦЕНОК.

Прежде всего нам понадобиться база расценок ДБН.
В свободной публикации этих вещей нет, есть в Зодчем техкарты, но при их использовании нужно вручную создавать базу самим.
Учитывая украинский опыт взаимствования норм (пример с Гарячкиным) мы не будем сами заниматься разработкой базы.
Если у наших друзей или знакомых есть ПК, рекомендованный Минрегионстроем, попросим набрать сметку со всеми расценками из всех сборников.
Что, трудоемко?
Не думаю.
Для примера возьмем ПК АВК5 (для рекламы этого продукта) последней версии и попробуем создать базу расценок всех сборников Р (Ремонтные работы).
Создаем стройку, объект, смету.
На уровне локальной сметы жмем ALT+F2.
В НСИ отмечаем "Ремонтно строительные-работы". В поле поиска "поисковый образ/часть" ставим букву Р и жмем "Начать поиск".
Все расценки всех сборников выстроились в порядке возрастания.
Осталось только выбирать.
Ремонтных расценок где-то больше 7500шт. Выбирать вручную будет очень накладно.
Проанализируем наши действия при наборе и постараемся процесс автоматизировать.
1.ALT+F2
2.ENTER
3.1
4.ENTER
5.ALT+F2
6.опускаемся на одну позицию вниз (DOWN)
7.повторяем п.2-6
и т.д. до конца.
Мы нажимаем одни и те же клавиши на клавиатуре в цикле 7500раз.
Если заставить клавиши нажиматься самим, то и набор сметки выйдет в сто крат дешевле.
Заставить клавиши работать самостоятельно при помощи ВИНДЫ можно, если написать соответствующий скрипт.
Итак открываем обычный блокнот и пишем:
'=============================================
Set WshShell = CreateObject("WScript.Shell")
DIM cnt
cnt=10

While cnt > 1
NABOR
cnt=cnt-1
Wend

Sub NABOR ()
WshShell.SendKeys "%{F2}"
WshShell.SendKeys "{DOWN}"
WshShell.SendKeys "{ENTER}"
WScript.Sleep 100
WshShell.SendKeys "1"
WshShell.SendKeys "{ENTER}"
End Sub
'=============================================
Попробуем разобраться:

1. Set WshShell = CreateObject("WScript.Shell") '(в переменную WshShell создать объект "WScript.Shell")
2.Создаем счетчик количества вызова функции набора одной строки
3. Устанавливаем счетчик в 10 (набор десяти строк) для эксперимента, потом поставим сколько нужно.
4. While -это цыкл вызова функции: выполняется до тех пор пока счетчик больше 1 (первую позицию мы набрали вручную), дальше с каждым вызовом счетчик уменьшается на единицу cnt=cnt-1 и при достжении cnt=1 -выходим - Wend
5. Sub NABOR () -это и есть сама функция набора расценок.
6. WshShell.SendKeys "%{F2}" - означает подать команду SendKeys объекту WshShell.
SendKeys - это виртуальные клавиши, "%{F2}" - это ALT+F2
7. Далее {DOWN} , {ENTER}, WScript.Sleep 100 -это задержка в 100миллисекунд чтобы в АВК установилась расценка, далее 1 и {ENTER}. Все понятно.
Всю нашу писанину сохраняем под именем RAVK5.vbs
Присвоив файлу расширение vbs мы как бы прописываем его к программе (есть в ВИНДЕ), которая выполняет скрыпты.
А теперь внимание: ни вкоем случае не пробуйте запускать ваш файл, т.к. начнут работать виртуальные клавиши и натворят делов на компе без вашего на то разрешения.
Делаем следующее:
Становимся курсором на файл, правая кнопка мыши >> отправить >> Рабочий стол (создать ярлык).
На рабочем столе появится ярлык нашего скрипта.
Становимся на него курсором, правая кнопка мыши >> свойства >> ставим курсор в окно "Быстрый вызов". Нажимаем клавиши ( к примеру) Ctrl+Alt+Z. Жмем ОК.
Мы присвоили ярлыку гарячие клавиши и теперь мы всегда сможем вызывать наш скрипт по нажатию этих клавиш.
Итак открываем смету и делаем в строгой последовательности:
1.На уровне локальной сметы жмем ALT+F2.
2.В НСИ отмечаем "Ремонтно строительные-работы". В поле поиска "поисковый образ/часть" ставим букву Р и жмем "Начать поиск".
Все расценки всех сборников выстроились в порядке возрастания.
Жмем:
3.ENTER
4.1
5.ENTER
Набрана первая расценка, теперь передаем слово скрипту: жмем Ctrl+Alt+Z.
Если все правильно сделано - пошла работа, ждем пока не наберутся 10 расценок.
Далее - установите в скрипте счетчик на 100 или 200 и повторите урок для закрепления и уверенности в дальнейших действиях.

Пока работает ваш робот, не мешайте ему, не нажимайте никаих клавиш, пейте кофе и любуйтесь теперь уже вашим детищем.
Робот сможет вам набрать расценки из любых сборников: прейскуранта, материалов и пр.

На слудеющем уроке набранную нами смету мы превратим в свою базу расценок.
Напоминаю, что мы своими дейстиями не нарушаем закон об авторском праве, мы используем программу в прямых целях - набираем сметы.
Урок 2 -БАЗА РАСЦЕНОК-продолжение.

Итак наши друзья или товарищи выполнили нашу просьбу и набрали нам смету.
Т.к. их труд мы превратили в удовольствие, а за удовольствие нужно платить, то и за смету мы им ничего не должны.
Теперь сформируем максимум выходных документов в АВК- не помешают.
1. Локальная смета.
2. Локальная смета с расчетом единичной стоимости.
3. Расчет ОПР.
4. Если версия 2.8.0. - файл OUTBOX.

Если есть версия 2.8.0, то эти документы можно продублировать в формате ЕКСЕЛЬ -пригодятся.

Создаем папку MAVK5_280_UKR (или RUS), а в ней папку DOC.
Забрасываем в нее наши документы, благодарим друзей и продолжаем работу.

Определяемся с алгоритмом поставленной задачи.
Что нам нужно для выпуска сметы??

1. Создать сметную строку 11 граф.
2. Создать концовку.
3. Произвести расчет.
4. Вывести на печать.

Все!

Для создания сметной строки мы имеем достаточно данных, которые есть в базовой смете.
Создадим таблицу из того , что имеем:
===============================================================
ШИФР |Наименование |Ед измерен. |Всего |З-та рабочих |МАШ |З-та машинист |ТЗ раб |ТЗ МАШ |ОПРК1 |ОПРК2

Р1-1-1 |Розробка грунту.. |100м3 |10623,43 |9390,1 |4,20 |1,89 |787,1 |0,15 |0,098 |2,21

===============================================================

Скопируйте эти строки и вставьте в ЕКСЕЛЬ в первую ячейку A1.
Так будет наглядней, чем в текстовом файле.
Все остальные строки идентичны.

Данные полученные нами из АВК уже расчитаны с учетом з-ты 2300грн. и продолжительности рабочего времени 167,00 ч-час в месяц.
(для 2009г нужно установить в АВК 167 ч-час)
ОПР у нас есть тоже расчитаны для каждой строки, мы могли бы взять итоги, но учитывая много вопросов по расчету ОПР, возмем только К1 (к для определения ТЗ) и К2 (к для определения остальных статей расходов) и расчитаем сами.
Стоимость материалов, которая нужна для концовки можно высчитать в каждой графе:

Всего - З-та рабочих - МАШ = МАТ или 10623,43 - 9390,1 - 4,20 = 1229,13грн

Если откроем нашу смету с единичкой, то увидим там, что материалы для Р1-1-1 стоят 1229,13грн.
Также можно высчитать разряд работ, зная ТЗ, З-ту и шкалу тарифных ставок.

Вобщем табличка, которую мы создали вполне подойдет нам как база данных.
Теперь задача: как из сметы получить табличку в таком виде?

Нам подойдет программка для конверации РТФ в ЕКСЕЛЬ (в загрузках).
Конвертируем локальную смету. Далее все делаем ручками, т.к. мы еще не знакомы с автоматикой ЕКСЕЛЬ.
В ЕКСЕЛЕ удаляем столбцы А, D, F, H, I, K -не нужны.
Дальше удаляем строки 1-17 -не нужны.
Осталось 5 столбцов с таким набором:
A B C D E
Р1-1-1 Розробка грунту всередині будівлі в котлованах

100м3 10623,43 9390,10 4,20 1,89 787,10 0,15

Становимся на ячейку А1.
Далее >> меню >> данные >> сортировка АЯ.
После сортрировки ненужные строки вначале и в конце листа удалить.
Должны остаться только строки с расценками.
Выделим столбцы C,D,E, в меню Правка нажмем Вырезать и вставим в столбец O ( перенесем пока , чтобы не мешали) и сохраним наш файл как УРОК2.xls в нашу папку DOC.

Смотрим на второй столбец, где наименование.
Текст и ед. измерения у нас слиты в одной ячейке.
Становимся на ячейку B2.
Выделим в тексте пробелы от конца текста до начала единицы измерения (100м3), жмем копировать ( в буфер).
Далее выделяем столбец B >> правка >> найти - вводим (вставляем скопированные пробелы) >> заменить все -@ - происходит замена строки пробелов на один символ @.
Далее >> меню >> данные >> текст по столбцам >> с разделителями >> другой (@) >> готово.
Наименования и ед. измерения разделились.
Копируем столбец О в D, D выделяем >> меню >> данные >> текст по столбцам >> с разделителями >> отмечаем пробел >> готово.
Копируем столбец Р в F, повторяем операции разделения.
Копируем столбец Q в H, повторяем операции разделения.
Столбцы O,P,Q удаляем. Выделяем D - I >> правка >> найти - вводим -- >> заменить все -оставляем пусто - происходит замена ненужных символов --. Тоже проделываем и с __-__, потом с - .

Осталось вставить последние столбцы -Коеф ОПР.
Конвертируем расчет ОПР в ЕКСЕЛЬ. Обнаруживаем, что количество строк меньше, чем в смете.
Обнаруживаем, что на многие расценки ОПР не начисляется.
Дело в том, что там где нет з-ты рабочих остается очень маленькая з-та машинистов и ОПР в этом случае меньше гривны.
АВК такие строки пропускает. Как же нам достать все К1 и К2??
Если мы станем на уровне нашей сметы в АВК и зададим К к объему 1000, то з-та вырастет в 1000раз (она нам не нужна), но зато не будет строк с результатом ОПР меньше 1грн. К1 и К2 при этом не изменятся.
Так и сделаем. Формируем документ ОПР, опять конвертируем.
Удаляем строки 1-6, отмечаем ячейку B2, включаем сортировку АЯ, удаляем ненужные строки вначале и в конце.
Удаляем все столбики, кроме, шифра и К1-К2 (0,098 и 2,21).
Копируем столбцы А-С и вставляем в выделенный столбец J нашей базы.
Проверим шифры в столбцах А и J в начале и в конце таблицы, если они равны, то удаляем столбец J.
Все, мы получили таблицу такую, как хотели.
Теперь меню >> файл >> сохранить как >> (тип файла) Текстовые файлы (с разделителями табуляции), (имя файла) P.dat
То есть конвертируем нашу таблицу в текстовый формат даты.
Вот мы и получили базу данных ремонтных расценок P.dat
Такие базы есть и в АВК и в АС4 и в СТС, но они имеют разный формат и зашифрованы от нас пользователей.
Мы шифроваться пока не будем, а перенесем нашу базу на место ее постоянного жительства в ее родную папку.
Создаем в папке MAVK5_280_UKR еще одну для хранения баз - Data и переносим в нее файл P.dat
Мы таким способом можем создать и Е.dat и МАТ.dat и МАШ.dat и т.д.

Как мы уже говорили раньше, имея список расценок или готовую смету можно создать фрагмент для последующего его применения в следующих версиях АВК, чтобы не пользоваться медленным скриптом.
Берем программку "Пользовательские фрагменты для АВК3" (в загрузках).
Меню >> утилиты >> создать накопительную .... Ф4 в FRG..
Выбираем нашу смету, от выбора следующей отказываемся.
Задаем произвольный номер, в наименовании пишем "Ремонтные расценки"
Получим текстовый файл такого содержания:
=====================================================
ФПН252`Ремонтные расценки*
:ДУ`Нажмите кнопку "Сохранить" `0*
:Д*
:ВС=Р1-10-1*
:Л?С.`1,0*
:ВС=Р1-10-2*
:Л?С.`1,0*
:ВС=Р1-10-3*
:Л?С.`1,0*
:ВС=Р1-10-4*
:Л?С.`1,0*
:ВС=Р1-1-1*
:Л?С.`1,0*
:ВС=Р1-11-1*
:Л?С.`1,0*
:ВС=Р1-11-10*
:Л?С.`1,0*
:ВС=Р1-11-11*
:Л?С.`1,0*
:ВС=Р1-11-12*
:Л?С.`1,0*
:ВС=Р1-11-13*
:Л?С.`0,01*
...........................................
======================================================
Если номер ФПН252 больше 7 знаков -АВК не пропустит, сотрите последние цифры, если такие будут.
Проверим фрагмент, вставим в АВК. (как это делать тема отдельная, думаю все знают).
Теперь расценки набираются очень-очень быстро.
Скопируем себе в папку Doc этот файл на будущее.

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

Медитируем, есть вопросы -задавайте, нет -поедем дальше.

На следующем уроке мы будем знакомиться с макросами ЕКСЕЛЬ и учиться создавать свои функции.
Урок 3 -За кулисами ЕКСЕЛЯ.

а)Макросы.

Прежде чем начать манипуляции с нашей базой данных, нам нужно научиться управлять командами ЕКСЕЛЯ.
С работой на листах многие не просто знакомы. Применение формул, функций встроенных в ЕКСЕЛЬ не раз приходилось применять в повседневной работе. А вот создавать свои функции и подчинать ЕКСЕЛЬ своим требованиям пожалуй умеют не многие (кто тему знает, может урок пропустить).

Итак МАКРОСЫ.
Приставка "макро" часто встречается в в техническом и научном языке, происходит от греческого слова - "большой". В ЕКСЕЛЬ -это большая команда, состоит из набора небольних команд.
Макрос -это даже минипрограмма, составленная из определенных команд.
ЕКСЕЛЬ оснащен механизмом, который создает сам макросы.
Он записывает Ваши действия в виде команд VBA (язык понятен приложениям М-офиса), которые впоследствии можно воспроизвести.
Настроим наш ЕКСЕЛЬ на работу с макросами.
Открываем -меню >> сервис >> макрос >> безопасность >> устанавливаем: средняя.
Сохраняем книгу под именем "Урок-3".
Установим для удобства панель инструменов - меню >> вид >> панель инструментов >> Visual Basic. Попробуем записать наш первый макрос.
На панели нажимаем красную кнопочку (записать макрос), имя макроса оставим как есть, ОК и как в магнитофоне -тишина, идет запись.
Вы полняем действия: немного раздвинем столбик B, в ячейку A1 пишим 1, в В1 - Иванов, С1 -муж, D1- 1990. Нажимаем на плавающем окошке - остановить.
Макрос записан. Сотрем все наши записи и попробуем вызвать джина из бутылки.
Нажимаем зеленую стрелку - выполнить макрос - внизу окна -надпись - находится в: выберем- Урок 3, т.е. в нашей книге. Выбираем Макрос1 -жмем -выполнить. Макрос воспроизвел наши записи.
Где же хранятся команды, которые записал макрос??
На панеле жмем- редактор Visual Basic - и попадаем за кулисы, в окно проекта VBA или в среду программирования, где и хранятся все формы книги, листы и пр.
Слева в верхнем окне проекта видим папку MODULES, открываем, в ней Module1- это наш модуль с нашим макросом:

Sub Макрос1()
'
' Макрос1 Макрос
' Макрос записан 31.01.2009 (Valentin)
'

'
Columns("B:B").ColumnWidth = 17.86
Range("A1").Select
ActiveCell.FormulaR1C1 = "1"
Range("B1").Select
ActiveCell.FormulaR1C1 = "Иванов"
Range("C1").Select
ActiveCell.FormulaR1C1 = "муж"
Range("D1").Select
ActiveCell.FormulaR1C1 = "1990"
Range("E1").Select
End Sub

Из записей наших действий все становится понятным. Если мы не знаем каких-то команд VBA, мы можем выполнить интересующие нас действия и ЕКСЕЛЬ сам запишет нужные команды.
Sub Макрос1() -начало макроса или программы, End Sub -окончание.
Но тупое повторение наших действий вряд ли пригодится в нашей программе.
Изменим наш макрос. Зададим условие: Если в ячейке A1 установить значение 2, то B1 должна быть заполнена записью "Иванов Иван Иванович", размер ячейки B1 при этом увеличится ну раза в два. Пишем:

Sub Макрос1()
'
' Макрос1 Макрос
' Макрос записан 31.01.2009 (Valentin)
'

'
Range("A1").Select
If ActiveCell.Value = "2" Then 'если в ячейке А значение 2 тогда:
Columns("B:B").ColumnWidth = 35
Range("B1").Select
ActiveCell.FormulaR1C1 = "Иванов Иван Иванович"
Range("C1").Select
ActiveCell.FormulaR1C1 = "муж"
Range("D1").Select
ActiveCell.FormulaR1C1 = "1990"
Else: 'иначе

Columns("B:B").ColumnWidth = 17.86
Range("A1").Select
ActiveCell.FormulaR1C1 = "1"
Range("B1").Select
ActiveCell.FormulaR1C1 = "Иванов"
Range("C1").Select
ActiveCell.FormulaR1C1 = "муж"
Range("D1").Select
End If 'конец условия

End Sub

Ставим в А1 -2, запускаем, техника нас слушается.

Запускать макрос (программу) через меню панели -очень неудобно.
Создадим кнопочку для запуска макроса.

б)Кнопки.

Выберем в нашей панельке "элементы управления".
Нажмем "Кнопка" и где-то в районе F2 нашего листа нарисуем курсором прямоугольник.
Отпустив кнопку мішки -увидим появившуюся кнопку.
Кликаем по ней два раза, попадаем в окно проекта:
Private Sub CommandButton1_Click()

End Sub
Вставим в тело программы имя нашего макроса: Макрос1
Private Sub CommandButton1_Click()
Макрос1
End Sub
Вернемся к нашей кнопке и выйдем из режима конструктора.
Теперь нажав на кнопку вызывается наша программа Макрос1.

Думаю, сегодня мы достаточно ознакомились с азами программирования в ЕКСЕЛЬ.
Настало время приступить непосредственно к программированию нашей программы.
продолжение следует
 

JiKetch

VIP-персона
Регистрация
2 Ноя 2007
Сообщения
403
Реакции
657
Баллы
0
зеркало АВК (патч)
В архиве находятся 2 файла: русский и украинский.
Скрытое содержимое доступно для зарегистрированных пользователей!
 
Яндекс.Метрика
Сверху