Поправката е в ред 32 на UserForm1
CStr(ara.Offset(0, 3).Value) = CStr(ComboBox1.Text) Then
Прилагам и файла с поправките
Благодаря ти много.А има ли вариянт при цъкването на календара от формата да излиза под юзер формата?
Публикувано: 15 February 2019 - 21:27
Поправката е в ред 32 на UserForm1
CStr(ara.Offset(0, 3).Value) = CStr(ComboBox1.Text) Then
Прилагам и файла с поправките
Благодаря ти много.А има ли вариянт при цъкването на календара от формата да излиза под юзер формата?
Публикувано: 16 February 2019 - 08:19
Благодаря ти много.А има ли вариянт при цъкването на календара от формата да излиза под юзер формата?
В SF_DatePick ред 209 определя къде да се визуализира формата
SF_DatePick.Top = UserForm1.Top
Например така SF_DatePick.Top = UserForm1.Top + UserForm1.Height
ще се появи под формата
Публикувано: 16 February 2019 - 10:11
В SF_DatePick ред 209 определя къде да се визуализира формата
SF_DatePick.Top = UserForm1.Top
Например така SF_DatePick.Top = UserForm1.Top + UserForm1.Height
ще се появи под формата
Идеялно се получи.Благодаря ти отново.
Публикувано: 07 October 2019 - 12:53
Предлагам всеки който има интересна програма
направена на Ексел да е публикува в тази група:
В тази група може да се публикуват и разработват програми
които са полезни за потребителите в нея.
Групата е за взаимопомощ и ценни съвети за
работата с програмата, аз също ще публикувам
полезни програми разработени под средата
на MS Excel - програмите са свободни за сваляне
от всички потребители в групата.
Помощни програми за обработка на Данни в Ексел - http://infosoftbg.eu Не слушай какво ти говорят, а гледай какво правят - По делата им ще ги познаете.
Win Free Litecoins every day! Every week free withdraw
Публикувано: 15 November 2019 - 13:52
Този макрос служи за автоматично записване на всички диаграми
създадени в ексел във формат на изображения,
моля вградете си кода в макросите
като отделен модул,
тестван е и работи коректно.
Как автоматично да конвертирате диаграми в работни таблици на Excel
в различни формати на изображения с VBA.
Ето пълния код на VBA:
Sub ExportCharts() Dim sht As Worksheet Dim cht As ChartObject Dim i As Integer i = 1 Application.ScreenUpdating = False Application.EnableEvents = False Set sht = ActiveSheet For Each sht In ActiveWorkbook.Worksheets For Each cht In sht.ChartObjects cht.Activate ActiveChart.Export ActiveWorkbook.Path & "\" & sht.Name & "-" & i & ".gif" i = i + 1 Next cht i = 1 Next sht Application.EnableEvents = True Application.ScreenUpdating = True End Sub
Помощни програми за обработка на Данни в Ексел - http://infosoftbg.eu Не слушай какво ти говорят, а гледай какво правят - По делата им ще ги познаете.
Win Free Litecoins every day! Every week free withdraw
Публикувано: 11 February 2020 - 13:18
Помощни програми за обработка на Данни в Ексел - http://infosoftbg.eu Не слушай какво ти говорят, а гледай какво правят - По делата им ще ги познаете.
Win Free Litecoins every day! Every week free withdraw
Публикувано: 18 May 2020 - 13:22
Здравейте! Беше ми дадена задача, която не разбирам. Спряма капитала на фирма и печалбата и за дадена година трябва да определя дали фирмата е пред фалит или е добре разработена. Чрез функцията =IF(F3>E3;"на печалба";"пред фалит") нарправих част от условието, но има и трета опция. Ако печалбата е равна на капитала трябва да се изпише "Задоволително". Чрез коя функция могат да се направят и трите опции?
Също така как се изважда името на фирмата с най-голяма иил най-малка печалба? Другото, което не успявам да направя е общата печалба на фирмите, регистрирани след 1990 година.
От тази задача зависи оценката в дипломата ми, а срокът и е за днес! Ще съм много благодарна, ако някой се отзове, защото колкото повече опитвам, толкова по-зле стават нещата...
Публикувано: 21 May 2020 - 11:07
Здрасти изпрати ми работния файл на abakalov@mail.bg
ще се опитам да ти помогна.
Може да попиташ и тук: https://www.facebook...421350771918101
Помощни програми за обработка на Данни в Ексел - http://infosoftbg.eu Не слушай какво ти говорят, а гледай какво правят - По делата им ще ги познаете.
Win Free Litecoins every day! Every week free withdraw
Публикувано: 17 June 2020 - 22:31
Здрасти изпрати ми работния файл на abakalov@mail.bg
Помощни програми за обработка на Данни в Ексел - http://infosoftbg.eu Не слушай какво ти говорят, а гледай какво правят - По делата им ще ги познаете.
Win Free Litecoins every day! Every week free withdraw
Публикувано: 24 June 2020 - 06:46
Здравейте naskobk,
доста пъти препрочитах, това което пишете и към момента все още не ми става ясно, следното:
Вие в softvisia ли сте се регистрирал, за да помогнете с това, което умеете или да си рекламирате собствената фейсбук страница, където препращате имащите от нужда, потребители или пък на лично изпращане на @-mail Ви?
Първото, което ми прави впечатление е че запитването е от 18.05.2020 г на Sunflower, а пък да не говорим, че срокът й също е бил до същата тази дата.
Вие към 17 юни, продължавате да пишете да Ви го изпрати на личната поща????
Все си мисля, че форумите са, за да се задават въпроси и на тях да се отговаря отново във форумите, за да има проследяване, а и не на последно място, биха помогнали на някой друг.
Не че потребителя е влизал след тази дата, но и да е, как ще помогнете като ви го изпрати на личната ви поща и въпроса във форума остане "висящ", а може да се появи друг потребител, на който да му помогне решението на търсеният проблем за решаване?
Публикувано: 30 June 2020 - 18:29
Нека се разберем така,
който желае да му се реши проблема да
прикачи работния файл до момента които
е направил и аз ще му препратя вариант на
файла, за да е по ясно и разбираемо за
потребителя, а и за останалите потребители
Помощни програми за обработка на Данни в Ексел - http://infosoftbg.eu Не слушай какво ти говорят, а гледай какво правят - По делата им ще ги познаете.
Win Free Litecoins every day! Every week free withdraw
Публикувано: 30 June 2020 - 18:47
Публикувано: 20 February 2021 - 19:01
Публикувано: 24 February 2021 - 01:08
Да приемем, че данните са в лист 1 колона D. Копирай клетка D1. В лист 2 в клетка A1 постави копираното съдържание. Редактирай адреса на клетката, който е D1 на $D1
Хвани в долния десен ъгъл манипулатора и тегли надолу до клетка A30. Хвани в долния десен ъгъл манипулатора и тегли надясно до клетка C1 включително. Кликни на клетка B1 и редактирай $D1 на $D31 и клетка C1 и редактирай $D1 на $D61
Маркирай клетки B1 и C1. Хвани в долния десен ъгъл манипулатора и тегли надолу до клетка C30.
Това е - печаташ лист 2
Публикувано: 27 February 2021 - 13:25
За да се автоматизира най лесно се получава с макроси,
прикачвам решението на задачата с макрос:
Свалете си файла и
използвайте един от двата метода
Поздрави и късмет!
Помощни програми за обработка на Данни в Ексел - http://infosoftbg.eu Не слушай какво ти говорят, а гледай какво правят - По делата им ще ги познаете.
Win Free Litecoins every day! Every week free withdraw
0 регистрирани потребители, 0 гости и 0 анонимни потребители