Jump to content

Ръководства за работа с Excel 2003


Препоръчан пост

Поправката е в ред 32 на UserForm1

CStr(ara.Offset(0, 3).Value) = CStr(ComboBox1.Text) Then

Прилагам и файла с поправките

Благодаря ти много.А има ли вариянт при цъкването на календара от формата да излиза под юзер формата?

Link to comment
Сподели другаде

  • Отговори 1.5k
  • Създадена
  • Последен отговор

ТОП потребители в тази тема

ТОП потребители в тази тема

Публикувани изображения

Благодаря ти много.А има ли вариянт при цъкването на календара от формата да излиза под юзер формата?

В SF_DatePick ред 209 определя къде да се визуализира формата

SF_DatePick.Top = UserForm1.Top

Например така SF_DatePick.Top = UserForm1.Top + UserForm1.Height

ще се появи под формата

Link to comment
Сподели другаде

В SF_DatePick ред 209 определя къде да се визуализира формата

SF_DatePick.Top = UserForm1.Top

Например така SF_DatePick.Top = UserForm1.Top + UserForm1.Height

ще се появи под формата

Идеялно се получи.Благодаря ти отново.

Link to comment
Сподели другаде

  • 7 months later...

Предлагам всеки който има интересна програма

направена на Ексел да е публикува в тази група:

MS Ексел - Полезните неща

 

В тази група може да се публикуват и разработват програми

които са полезни за потребителите в нея.

 

Групата е за взаимопомощ и ценни съвети за 

работата с програмата, аз също ще публикувам 

полезни програми разработени под средата

на MS Excel - програмите са свободни за сваляне

от всички потребители в групата.

Link to comment
Сподели другаде

  • 1 month later...

Този макрос служи за автоматично записване на всички диаграми

създадени в ексел във формат на изображения,

моля вградете си кода в макросите

като отделен модул,

тестван е и работи коректно.

 

Как автоматично да конвертирате диаграми в работни таблици на 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

Link to comment
Сподели другаде

  • 2 months later...
Как да си създадем баркодове в Ексел

Barcodes-14.png

 

 

Интересен и полезен видео урок за създаване на Баркодове в Ексел:

ако имате складова програма може на всеки един артикул да му се създаде уникален баркод

и с помощта на баркод четец автоматично да се вкарва в софтуера за фактуриране

с които работи всяка една търговска верига.

Линк към видео урока и работния файл който може да си свалите от тук:

 

Link to comment
Сподели другаде

  • 3 months later...

Здравейте! Беше ми дадена задача, която не разбирам. Спряма капитала на фирма и печалбата и за дадена година трябва да определя дали фирмата е пред фалит или е добре разработена. Чрез функцията =IF(F3>E3;"на печалба";"пред фалит") нарправих част от условието, но има и трета опция. Ако печалбата е равна на капитала трябва да се изпише "Задоволително". Чрез коя функция могат да се направят и трите опции? 

Също така как се изважда името на фирмата с най-голяма иил най-малка печалба? Другото, което не успявам да направя е общата печалба на фирмите, регистрирани след 1990 година. 

 

От тази задача зависи оценката в дипломата ми, а срокът и е за днес! Ще съм много благодарна, ако някой се отзове, защото колкото повече опитвам, толкова по-зле стават нещата...

Link to comment
Сподели другаде

  • 4 weeks later...

Здравейте naskobk, 

доста пъти препрочитах, това което пишете и към момента все още не ми става ясно, следното:

Вие в softvisia ли сте се регистрирал, за да помогнете с това, което умеете или да си рекламирате собствената фейсбук страница, където препращате имащите от нужда, потребители или пък на лично изпращане на @-mail Ви?

Първото, което ми прави впечатление е че запитването е от 18.05.2020 г на  Sunflower, а пък да не говорим, че срокът й също е бил до същата тази дата

Вие към 17 юни, продължавате да пишете да Ви го изпрати на личната поща????

Все си мисля, че форумите са, за да се задават въпроси и на тях да се отговаря отново във форумите, за да има проследяване, а и не на последно място, биха помогнали на някой друг.

Не че потребителя е влизал след тази дата, но и да е, как ще помогнете като ви го изпрати на личната ви поща и въпроса във форума остане "висящ", а може да се появи друг потребител, на който да му помогне решението на търсеният проблем за решаване?

Link to comment
Сподели другаде

Нека се разберем така,

който желае да му се реши проблема да

прикачи работния файл до момента които

е направил и аз ще му препратя вариант на

файла, за да е по ясно и разбираемо за

потребителя, а и за останалите потребители

Link to comment
Сподели другаде

Ние няма какво да се разбираме. Правилата и начина на работа за измислени преди много години.

Някой трябва да се постарае да обясни точно какво му трябва, а на всеки желаещ да помогне, може да си напише формулите, макросите и ако има желание, да качи готов файл, спрямо желанието на нуждаещият, а не спрямо нашите възможности.

Бъдете жив и здрав.

Link to comment
Сподели другаде

  • 7 months later...

Здравейте,

нов съм във форума.

За мен това е един от малкото останали качествени бг форуми.

Въпросът ми е следния -

има ли опция в ексела, която автоматично да прави следното:

копирал съм примерно една колона, съдържаща 90 клетки.

Искам да ги копирам в друг лист, нo не в една колона, а

разпределени в 3 колони по 30 клетки.

Идеята е да не разпечатвам примерно 3 листа, след като мога

да ги вместя по този начин само в един.

И да поясня - не говорим за опцията Text to Column...

Link to comment
Сподели другаде

Да приемем, че данните са в лист 1 колона D. Копирай клетка D1. В лист 2 в клетка A1 постави копираното съдържание. Редактирай адреса на клетката, който е D1 на $D1
Хвани в долния десен ъгъл манипулатора и тегли надолу до клетка A30. Хвани в долния десен ъгъл манипулатора и тегли надясно до клетка C1 включително. Кликни на клетка B1 и редактирай  $D1 на $D31 и клетка C1 и редактирай  $D1 на $D61
Маркирай клетки B1 и C1. Хвани в долния десен ъгъл манипулатора и тегли надолу до клетка C30.
Това е - печаташ лист 2
 

Link to comment
Сподели другаде

За да се автоматизира най лесно се получава с макроси,

прикачвам решението на задачата с макрос:

 

Свалете си файла и

използвайте един от двата метода

 

 

Поздрави и късмет!

 

 

 

 

 

cut_and_paste.xlsm

Link to comment
Сподели другаде

Гост
Отговори на тази тема

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   Не можете да качите директно снимка. Качете или добавете изображението от линк (URL)

Loading...

×
×
  • Създай ново...