21

Re: Маю напрацювання в VBA/Word, Excel, куди кидати?

Файл

Подякували: 0xDADA11C71

22

Re: Маю напрацювання в VBA/Word, Excel, куди кидати?

Ведення складу, виписка накладної

Post's attachments

Склад, Накладна (v1).xls 173.5 kb, 414 downloads since 2015-02-16 

Подякували: 0xDADA11C71

23

Re: Маю напрацювання в VBA/Word, Excel, куди кидати?

Створення заголовків другого рядка таблиці в Ворд

Подякували: Chemist-i1

24

Re: Маю напрацювання в VBA/Word, Excel, куди кидати?

Мо кому пригодиться

Post's attachments

Порахувати дату через N робочих днів.xls 19.5 kb, 376 downloads since 2015-04-21 

Подякували: 0xDADA11C71

25

Re: Маю напрацювання в VBA/Word, Excel, куди кидати?

Там є макроси?

26 Востаннє редагувалося Григорій2 (21.04.2015 10:26:43)

Re: Маю напрацювання в VBA/Word, Excel, куди кидати?

HetmanNet написав:

Там є макроси?

Нема
В жовтих ячейках вихідні дані, в яч.C3 формула
яка враховує і дані "Святкові дні"

27 Востаннє редагувалося HetmanNet (21.04.2015 16:22:41)

Re: Маю напрацювання в VBA/Word, Excel, куди кидати?

Григорій2 написав:
HetmanNet написав:

Там є макроси?

Нема
В жовтих ячейках вихідні дані, в яч.C3 формула
яка враховує і дані "Святкові дні"

Ну тоді почистіть сій зверинець, бо є непідписані макроси в усіх документах. Всіх користувачів Windows, що відкрили ці файли мабуть можна привітати з поповненням.

28

Re: Маю напрацювання в VBA/Word, Excel, куди кидати?

Ну тоді почистіть сій зверинець, бо є непідписані макроси в усіх документах. Всіх користувачів Windows, що відкрили ці файли мабуть можна привітати з поповненням.

Я відкривав - нічого там такого нема. Нащо підписувати макроси для власного вжитку?
Григорій2
Втім, я раджу взяти за взірець стиль оформлення першого повідомлення і відредагувати всі інші повідомлення, бо списувати з рахунків вірусну атаку чи страх користувачів перед нею не варто. Ще раз дякую за ваш внесок.

29 Востаннє редагувалося Григорій2 (22.04.2015 08:25:25)

Re: Маю напрацювання в VBA/Word, Excel, куди кидати?

HetmanNet написав:

Ну тоді почистіть сій зверинець, бо є непідписані макроси в усіх документах. Всіх користувачів Windows, що відкрили ці файли мабуть можна привітати з поповненням.

Нащо тут смітити макросами?
Відкриваєш файл, тиснеш комбінацію Alt+F11 і
всі макроси як на долоні

30

Re: Маю напрацювання в VBA/Word, Excel, куди кидати?

0xDADA11C7 написав:

Втім, я раджу взяти за взірець стиль оформлення першого повідомлення і відредагувати всі інші повідомлення, бо списувати з рахунків вірусну атаку чи страх користувачів перед нею не варто. Ще раз дякую за ваш внесок.

1. Відредагувати всі інші повідомлення? - не маю часу кирпіти над цим
2. Слідуючі повідомлення старатимусь оформляти належним чином
3. І як докір Вам-чому нема надписів українською для значків форматування повідомлень?
це ж не тяжко зробити

31

Re: Маю напрацювання в VBA/Word, Excel, куди кидати?

Нащо тут смітити макросами?
Відкриваєш файл, тиснеш комбінацію Alt+F11 і

Коли відкриваєш, то вже пізно :)

3. І як докір Вам-чому нема надписів українською для значків форматування повідомлень?

BB-коди - розповсюджена фіча, таких програмістів, що не розуміють її, мабуть не існує. Втім, типово вмикати цю можливість при реєстрації, і за бажанням вимикати її в профілі - дійсно було б непогано додати.

32 Востаннє редагувалося fed_lviv (24.10.2015 17:26:05)

Re: Маю напрацювання в VBA/Word, Excel, куди кидати?

Може, кому стане в пригоді. Робив надстройку для Excel, різні запити до БД, результати запиту до БД відображалися на новому листку в "розумній таблиці". Ось загальний макрос:

Sub CreateTableFromMySQL(title As String, query As String)
    Const driver = "{MySQL ODBC 5.3 Unicode Driver}"
    Const server = "XXX.XXX.XXX.X"
    Const database = "XXXX"
    Const user = "XXXX"
    Const password = "XXXX"
    Const connection = "ODBC;DRIVER=" & driver & ";SERVER=" & server & ";DATABASE=" & database & ";USER=" & user & ";PASSWORD=" & password & ";"
    Dim table As ListObject
    Dim x As Range
        Worksheets.Add
        Set table = ActiveSheet.ListObjects.Add(xlSrcExternal, connection, True, xlYes, Range("A2"))
        With table.QueryTable
            .CommandType = xlCmdSql
            .CommandText = query
            .Refresh False
            .Delete
        End With
        Set x = Range(Cells(1, 1), Cells(1, (Cells(2, Columns.Count).End(xlToLeft).Column)))
        With x
            .Merge
            .HorizontalAlignment = xlCenter
            .Font.Bold = True
            .Value = title
        End With
        Range("A1").AddComment query
        Range("A1").Comment.Visible = False
End Sub

Де title це заголовок до таблиці, query - запит до БД
P.S. Звичайно перед цим потрібно встановити драйвер MySQL ODBC, в мене він - MySQL ODBC 5.3 Unicode Driver