Jump to content

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


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

при мен всичко работи,

свали си двата файла в една директория и пробвай:

troxfakturi.mdb

troxfakturi.xls

единият файл е на Access и в него се съхраняват данните,

другият файл е екселски с който създаваш фактурата,

двата файла не могат един без друг да работят защото са взаимно свързани.

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

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

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

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

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

при мен всичко работи,

свали си двата файла в една директория и пробвай:

troxfakturi.mdb

troxfakturi.xls

единият файл е на Access и в него се съхраняват данните,

другият файл е екселски с който създаваш фактурата,

двата файла не могат един без друг да работят защото са взаимно свързани.

 

Здравей naskobk,

 

Интересно ми е защо се появяват-може би защото трябва да сменя офис пакета с 2007-ма.

Използвам двата файла в комплект.

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

Вече е късно за корекции в 100 файла.  :look:

Позволих си да направя няколко корекции в макроса.
1. Извършва се проверка за наличие на името на обобщения файл в списъка и ако е така не извежда данни от него.
2. Проверката за кой ред следват данните се извършва по двете колони F и G, защото едната може да няма данни
3. В колони 6 или 7 се извеждат нули, защото се използва функция, а тя винаги връща някакъв резултат. Използвал съм проверка TypeName за типа на връщания резултат, ако е = String да извежда данните - това в момента е вярното
4. променил съм пътя до директорията, защото така в момента е фиксирана и на друг компютър няма да работи.
 
Sub CombData_Macro1111111111111111111111111111()
Dim stringSource As String
Set targetWorksheets = ThisWorkbook.Worksheets(1)
 
currentFile = Dir(ThisWorkbook.Path & "\*.xls*")
 
Do While currentFile <> ""
 If ThisWorkbook.Name <> currentFile Then
    stringSource = "'" & ThisWorkbook.Path & "\[" & currentFile & "]Sheet1'!R4C1:R4C1"
    rowCounter = Application.WorksheetFunction.Max( _
     targetWorksheets.Cells(targetWorksheets.Rows.Count, "F").End(xlUp).Row + 1, _
     targetWorksheets.Cells(targetWorksheets.Rows.Count, "G").End(xlUp).Row + 1)
    targetWorksheets.Cells(rowCounter, 1).Value = Application.ExecuteExcel4Macro(stringSource)
    stringSource = "'" & ThisWorkbook.Path & "\[" & currentFile & "]Sheet1'!R4C2:R4C2"
    targetWorksheets.Cells(rowCounter, 2).Value = Application.ExecuteExcel4Macro(stringSource)
        stringSource = "'" & ThisWorkbook.Path & "\[" & currentFile & "]Sheet1'!R4C3:R4C3"
        targetWorksheets.Cells(rowCounter, 3).Value = Application.ExecuteExcel4Macro(stringSource)
        stringSource = "'" & ThisWorkbook.Path & "\[" & currentFile & "]Sheet1'!R4C4:R4C4"
        targetWorksheets.Cells(rowCounter, 4).Value = Application.ExecuteExcel4Macro(stringSource)
        stringSource = "'" & ThisWorkbook.Path & "\[" & currentFile & "]Sheet1'!R9C2:R9C2"
        targetWorksheets.Cells(rowCounter, 5).Value = Application.ExecuteExcel4Macro(stringSource)
        stringSource = "'" & ThisWorkbook.Path & "\[" & currentFile & "]Sheet1'!R10C3:R10C3"
        If TypeName(Application.ExecuteExcel4Macro(stringSource)) = "String" Then _
         targetWorksheets.Cells(rowCounter, 6).Value = Application.ExecuteExcel4Macro(stringSource)
        stringSource = "'" & ThisWorkbook.Path & "\[" & currentFile & "]Sheet1'!R10C4:R10C4"
        If TypeName(Application.ExecuteExcel4Macro(stringSource)) = "String" Then _
         targetWorksheets.Cells(rowCounter, 7).Value = Application.ExecuteExcel4Macro(stringSource)
        stringSource = "'" & ThisWorkbook.Path & "\[" & currentFile & "]Sheet1'!R9C5:R9C5"
        targetWorksheets.Cells(rowCounter, 8).Value = Application.ExecuteExcel4Macro(stringSource)
  End If
    currentFile = Dir
Loop
End Sub
Link to comment
Сподели другаде

  • 1 month later...

Имам няколко въпроса по тази снимка:post-16698-0-97605500-1468601257_thumb.jpg

1. Как мога да направя този сивия фон, така че да остане само старницата на която съм писал?

2.От падащото меню, което съм направил с Data validation искам като избера например 3 да ми се отваря някакъв текст под него. Например избирам едно име от падащия списък и под него или някъде другаде да дава информация за човека.

3. С Data validation елементите от падащото меню, може ли да ги да не ги пиша някъде другаде предварително и после да ги маркирам, за да ги вкарам в списъка ?

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

Здравей cplx, 

по 1ва точка - принципно цвета е бял. Реално ако се уголеми диапазона с избраните клетки в които се пише останалото няма да се виджда.

Не разбирам: Трябва да се виждат колоните A:B или от A:F?

 

По точка 2ра - в В2 е падащото меню на числата, желаеш в В4 да излиза някакво име, ако е така, то ти трябва vlookup или в същият шийт или в друг, откъдето да се взима информацията за това число (ако правилно съм разбрал).

 

По 3та точка - за какво маркиране става на въпрос, може ли по-конкретно обяснение и по тази точка.?

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

  • 2 weeks later...

Имам няколко въпроса по тази снимка:attachicon.gifUntitled.jpg

1. Как мога да направя този сивия фон, така че да остане само старницата на която съм писал?

2.От падащото меню, което съм направил с Data validation искам като избера например 3 да ми се отваря някакъв текст под него. Например избирам едно име от падащия списък и под него или някъде другаде да дава информация за човека.

3. С Data validation елементите от падащото меню, може ли да ги да не ги пиша някъде другаде предварително и после да ги маркирам, за да ги вкарам в списъка ?

1. Маркират се всички колони вдясно до края и се скриват/Hide/. Маркират се всички редове надолу до края и се скриват/Hide/.
2. Това са двата макроса, които ти предлагам, като информацията се показва в Status Bar/лентата най-долу, вляво/. В момента се появява само стойността на клетката, останалото може да се доработи. Макросите се копират в модула на страницата, за която се отнасят. В момента се използва клетка "А1", за работа с друга клетка се сменя Set rng1=Range("Нова клетка") и в двата макроса
Private Sub Worksheet_Change(ByVal Target As Range)
 Dim rng1 As Range
 Set rng1 = Range("A1")
 On Error Resume Next
 If Not Application.Intersect(Target, rng1) Is Nothing Then
  Application.StatusBar = Range("A1").Value
 End If
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 Dim rng1 As Range
 Set rng1 = Range("A1")
 On Error Resume Next
 If Application.Intersect(Target, rng1) Is Nothing Then
  Application.StatusBar = False
 End If
End Sub
3.Елементите в списъка може да ги въведеш ръчно в полето Source: на DataValidation, като ги разделяш с List Separator, който е избран от Регионалните настройки
Link to comment
Сподели другаде

 

1. Маркират се всички колони вдясно до края и се скриват/Hide/. Маркират се всички редове надолу до края и се скриват/Hide/.
2. Това са двата макроса, които ти предлагам, като информацията се показва в Status Bar/лентата най-долу, вляво/. В момента се появява само стойността на клетката, останалото може да се доработи. Макросите се копират в модула на страницата, за която се отнасят. В момента се използва клетка "А1", за работа с друга клетка се сменя Set rng1=Range("Нова клетка") и в двата макроса
Private Sub Worksheet_Change(ByVal Target As Range)
 Dim rng1 As Range
 Set rng1 = Range("A1")
 On Error Resume Next
 If Not Application.Intersect(Target, rng1) Is Nothing Then
  Application.StatusBar = Range("A1").Value
 End If
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 Dim rng1 As Range
 Set rng1 = Range("A1")
 On Error Resume Next
 If Application.Intersect(Target, rng1) Is Nothing Then
  Application.StatusBar = False
 End If
End Sub
3.Елементите в списъка може да ги въведеш ръчно в полето Source: на DataValidation, като ги разделяш с List Separator, който е избран от Регионалните настройки
 
 

 

БЛАГОДАРЯ!

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

  • 4 weeks later...
  • 3 weeks later...

Здравейте,

 

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

 

- В лявата част на листа има фактури от доставчик и полетата C12 C20 C 27  и C 47 представляват общата сума по фактурите.

 

- В дясната страна на листа има плащания по фактури и примерно полетата  H6 H11 H16 H21 H26  и т.н. представляват плащанията направени по фактурите.

 

Въпрос: Възможно ли е да се направи формула която да проверява сумата в клетка C12 дали е идентична с някоя сума от колона H  и по възможност да оцвети двете клетки в определен цвят. По същия начин по отделно  и за останалите клетки където е сумата на фактурата.

 

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

Не мога да прикача ексел файл, ето линк за свалянето му:

http://dox.bg/files/dw?a=f5ad3f5826

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

Въпрос: Възможно ли е да се направи формула която да проверява сумата в клетка C12 дали е идентична с някоя сума от колона H  и по възможност да оцвети двете клетки в определен цвят. По същия начин по отделно  и за останалите клетки където е сумата на фактурата.

 

Здравей Armageddon, 

връщам файлът с направените conditional formatting, за да може и базата(ляво) и дясната колона да ти се оцветяват ако има съвпадения.

post-18983-0-89546800-1473496212_thumb.jpg

проба.xls

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

Здравей Armageddon, 

връщам файлът с направените conditional formatting, за да може и базата(ляво) и дясната колона да ти се оцветяват ако има съвпадения.

attachicon.gifScreenHunter_0023.jpg

Хей, Здравей.

 

Благодаря.

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

друг начин за сравняване на информацията чрез макрос:

Виж файла:

Натисни бутона Сравни колони и следвай указанията:

 

 

 

                                                                               Късмет

 

проба.xls

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

  • 2 weeks later...

Здравейте,

Интересува ме следното:Може ли, клетка с падащо меню, да предположим, че в клетката има 5 въведени входа.Като кликна на вход А в отделен лист да ме препраща на клетка с вход А(която да съдържа живущите разделени по етажи, номера на апартаменти и т.н.След това като кликна на Отделният етаж в Лист 3 да ми излиза Вход А живущите и всички данни.В останалите листи другите етажи и т.н.И възможно ли е ако, направя промяна например в Лист 2 тази промяна автоматично да се отразява в останалите листи?Малко сложно стана, но не надявам някой да ми помогне:)

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...

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