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

[naskobk]

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

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

troxfakturi.mdb

troxfakturi.xls

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

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

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

[cnachew]

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

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

troxfakturi.mdb

troxfakturi.xls

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

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

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

 

Здравей naskobk,

 

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

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

[TRN]

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

Позволих си да направя няколко корекции в макроса.

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

[azureuz]

Благодаря за корекциите TRN

[naskobk]

Поздравления!

Макроса наистина работи.

Въпреки че аз харесвам нещата ми да са подредени,

но като цяло идеята е добра и може да се доразвива.

[cplx]

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

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

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

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

[k0st4din]

Здравей cplx, 

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

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

 

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

 

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

[TRN]

Имам няколко въпроса по тази снимка:Untitled.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, който е избран от Регионалните настройки

[cplx]

 

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, който е избран от Регионалните настройки

 

 

 

БЛАГОДАРЯ!

[miroidani]

Страхотно!!!Много се радвам,че ви намерих.Сигурен съм ,че ще ми помогнете много!!!

[Armageddon8]

Здравейте,

 

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

 

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

 

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

 

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

 

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

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

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

[k0st4din]

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

 

Здравей Armageddon, 

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

проба.xls

[Armageddon8]

Здравей Armageddon, 

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

ScreenHunter_0023.jpg

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

 

Благодаря.

[naskobk]

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

Виж файла:

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

 

 

 

                                                                               Късмет

 

проба.xls

[ValTan]

Здравейте,

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