Прехвърляне към съдържание


Снимка

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


  • Моля, влезте, за да отговорите
1459 отговора по тази тема

#1456 azureuz

azureuz

    Потребител

  • Потребители
  • ПипПипПипПипПипПип
  • 26 мнения

Публикувано: 15 February 2019 - 21:27

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

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

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

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



#1457 TRN

TRN

    Потребител

  • Потребители
  • ПипПипПипПипПипПип
  • 13 мнения
  • Пол:Мъж

Публикувано: 16 February 2019 - 08:19

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

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

SF_DatePick.Top = UserForm1.Top

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

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



#1458 azureuz

azureuz

    Потребител

  • Потребители
  • ПипПипПипПипПипПип
  • 26 мнения

Публикувано: 16 February 2019 - 10:11

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

SF_DatePick.Top = UserForm1.Top

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

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

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



#1459 naskobk

naskobk

    Потребител

  • Потребители
  • ПипПипПипПипПипПип
  • 168 мнения
  • Пол:Мъж

Публикувано: 07 October 2019 - 12:53

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

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

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

 

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

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

 

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

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

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

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

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


Помощни програми за обработка на Данни в Ексел - http://infosoftbg.com Не слушай какво ти говорят, а гледай какво правят - По делата им ще ги познаете.

 

 

Win Free Bitcoins every 3 minutes! Claim it now


#1460 naskobk

naskobk

    Потребител

  • Потребители
  • ПипПипПипПипПипПип
  • 168 мнения
  • Пол:Мъж

Публикувано: 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.com Не слушай какво ти говорят, а гледай какво правят - По делата им ще ги познаете.

 

 

Win Free Bitcoins every 3 minutes! Claim it now





0 потребители четат тази тема

0 регистрирани потребители, 0 гости и 0 анонимни потребители