Макрос. Хочу создать

[streamdown 1 565]

В модуле.

дома создавал hide/show в модуле, писал имя формы-точку-а он ничего не предлагал выбрать. Просто вспоминая бейсик, там в свойствах проекта можно было выбрать первую форму, в дельфи каждую под форму нужно декларировать чтоб увидеть. Тут как-то всё еще проще.

На работе всё получилось.

[kobold 0]

Да, надо показывать(show) нужную в данный момент форму, а остальные прятать (hide). Форма которая должна появляться первой "прописывается" в модуле

Насколько я понял модальных форм у вас не будет.

[ssv22 16]

дома создавал hide/show в модуле, писал имя формы-точку-а он ничего не предлагал выбрать. Просто вспоминая бейсик, там в свойствах проекта можно было выбрать первую форму, в дельфи каждую под форму нужно декларировать чтоб увидеть. Тут как-то всё еще проще.

На работе всё получилось.

hide/show - это только спрятать/показать, а требуется еще и загрузка формы! :

---

This example uses the Load statement to load a Form object. To try this example, paste the code into the Declarations section of a Form object, and then press F5 and click the Form object.

Sub Form_Click ()

Dim Answer, Msg ' Declare variable.

Unload Form1 ' Unload form.

Msg = "Form1 has been unloaded. Choose Yes to load and "

Msg = Msg & "display the form. Choose No to load the form "

Msg = Msg & "and leave it invisible."

Answer = MsgBox(Msg, 4) ' Get user response.

If Answer = 6 Then ' Evaluate answer.

Show ' If Yes, show form.

Else

Load Form1 ' If No, just load it.

Msg = "Form1 is now loaded. Choose OK to display it."

MsgBox Msg ' Display message.

Show ' Show form.

End If

End Sub

---

[brigval 698]

hide/show - это только спрятать/показать, а требуется еще и загрузка формы! :

Для полноты картины.

При использовании метода Show, если форма не была загружена, форма всегда сначала автоматом загружается, а потом отображается. То есть, как бы вполняется Load + Show.

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

[Michael_Mira 135]

Всем привет.

Решил понять работу макросов (потребность в создании макроса).

Надо считать строку, и дописать в нее какую-то инфо, НО с сохранением старой, в определенном порядке.

Для примера выбрал обозначение крепежа по ГОСТ.

Поясню:

Есть запись:

Болт М 6 х 8 ГОСТ 7798-70

Надо:

Болт М6-6gх8.58.016 ГОСТ7798-70

с учетом ненужных пробелов.

Макрос мне написал:

Range("C3").Select

ActiveCell.FormulaR1C1 = "'Болт М6-6gх8.58.016 ГОСТ7798-70"

Range("C4").Select

End Sub

Он действует только на эту строку и только эту форму записи.

Что делать дальше -

Посоветуйте книгу доступную для "чайника" для выполнения моей задачи, что-ли.

[brigval 698]

Всем привет.

Решил понять работу макросов (потребность в создании макроса).

Надо считать строку, и дописать в нее какую-то инфо, НО с сохранением старой, в определенном порядке.

Для примера выбрал обозначение крепежа по ГОСТ.

Поясню:

Есть запись:

Болт М 6 х 8 ГОСТ 7798-70

Надо:

Болт М6-6gх8.58.016 ГОСТ7798-70

с учетом ненужных пробелов.

Макрос мне написал:

Range("C3").Select

ActiveCell.FormulaR1C1 = "'Болт М6-6gх8.58.016 ГОСТ7798-70"

Range("C4").Select

End Sub

Он действует только на эту строку и только эту форму записи.

Что делать дальше -

Посоветуйте книгу доступную для "чайника" для выполнения моей задачи, что-ли.

Приобретите одну из книг Гарнаева. Для начинающих самое то.

[Michael_Mira 135]

Приобретите одну из книг Гарнаева. Для начинающих самое то.

Спс.

[kobold 0]

Решил понять работу макросов (потребность в создании макроса).

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

В интернете достаточно много статей и учебных пособий по нему с примерами и исходными кодами.

[Michael_Mira 135]

В интернете достаточно много статей и учебных пособий по нему с примерами и исходными кодами.

Примеров подходящих не нашел, а так азы изучаю.

Некоторые моменты мне понятны, но вот мозгов немного не хватает.

Например как из 1 ячейки считать всю надпись, и дописать то, что надо только после определенной инфо, которая тоже меняется?

[ssv22 16]

Примеров подходящих не нашел, а так азы изучаю.

...

Это удивительно - примеров по VB - тысячи...

Посмотрите специализированные сайты по VB и VBA.

Например тут:

<noindex>http://bbs.vbstreets.ru/</noindex>

<noindex>http://www.sql.ru/forum/actualtopics.aspx?bid=22</noindex>

<noindex>http://www.google.ru/custom?hl=ru&inla...%E5%ED%ED%EE%EC</noindex>

Можно еще сделать поиск по фразе типа "VBA в Excel"...

[kobold 0]

Например как из 1 ячейки считать всю надпись, и дописать то, что надо только после определенной инфо, которая тоже меняется?

Я опишу алгоритм словами а Вы уже сами переведети в программный код, заодно и потренеруетесь.

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

Берем надпись из ячейки

Смотрим есть ли вхождение в надпись элемента Массива (сначала первого, потом второго и так далее)

Если есть то

..................разделяем надпись на две части: первая -все что до вхождения, вторая - все остальное.

..................записываем в ячейку = первая часть + то что надо дописать + вторая часть

..................выходим

Если нету то переходим на след элемент массива.

Если все элементы масива перебраны то выходим.

[ssv22 16]

Я опишу алгоритм словами а Вы уже сами переведети в программный код, заодно и потренеруетесь.

Во первых у вас ...

Вот мой ранний пример(набросок), когда я этим занимался:

to_kobold.zip

Исполняемый файл: `XLS_v3_WS2007.exe`. Если какие ошибки будут, то надо иметь VB и запускать файл `SP_XLS_WS2007.vbp` (можно прямо из ТС).

А так, весь код в файлах " *.bas "...

Ну и желательно изучить работу этой программки в пошаговом режиме(`F8`).

А также изучить систему адресации к ячейкам таблицы Excel...

Например:

"Public Sub ExpExcel()

'======================================================= иициализация Excel

If xl Is Nothing Then

Set xl = CreateObject("Excel.Application")

Else

Set xl = GetObject(, "Excel.Application")

End If

xl.Visible = True

fileTMPL = "C:\Program Files\SolidWorks\data\templates\SpA4_1.xlt" ' проверка есть ли шаблон

'''' fileTMPL = "F:\Program Files\SolidWorks\data\templates\SpA4_1.xlt"

If Dir(fileTMPL) <> "" Then

Set wb = xl.Workbooks.Add(fileTMPL)

Else

Set wb = xl.Workbooks.Add

MsgBox "Файл шаблона не найден!", , "Error587!"

Set xl = Nothing

Exit Sub

End If ' нет шаблона - завершение работы!

On Error Resume Next

Set ws = wb.Worksheets("Sheet1")

Set ws = wb.Worksheets("Лист1")

'======================================================= иициализация Excel END

'======================================================= запсиь в Excel

ws.Range("B1").Value = "Comp Name from FM" <<<<====заполнение ячеек Excel`a

ws.Range("C1").Value = "Configuration"

ws.Range("D1").Value = "File of compоnent"

ws.Range("E1").Value = "Quantity"

ws.Range("F1").Value = "Pid"

............

"

Чтобы считать значение ячейки, нужно указать ее адрес (например "B1") и выполнить:

val1=ws.Range("B1").Value <= считывание

val1=val1+".Изменено!"

ws.Range("B1").Value = val1 <= заполнение ячейки...

[Michael_Mira 135]

kobold

ssv22

Спс за помощь.

Буду пробовать.