Příspěvky uživatele

Treba dať prílohu, ako a kde je čo zadané. Funkcia sa bez toho nedá vytvoriť . .

Do svojho makra zabudujte napr. toto:

Sub poslednySaR()
Dim r As Long
Dim c As Integer
With ActiveSheet.UsedRange
r = .Row + .Rows.Count - 1
c = .Column + .Columns.Count - 1
End With
MsgBox "Riadkov " & r & " ."
MsgBox "Stlpcov " & c & " ."
Cells(r, c).Select
End Sub

Keď to zhrniem: potrebujete KLIKNÚŤ na ikonu vloženia obrázku a kliknutím vyvolať dialóg na výber súboru.
Word:
1.klik na kartu Vývojár
2.klik na ikonku Obrázok
Celkovo dva kliky

Excel:
1.klik na kartu Vložiť
2.klik na ikonku Obrázok
Celkovo dva kliky

Skutočne nevidím dôvod prečo "potřebujete" nájsť nejakú ďalšiu možnosť.
Alebo len skúšate svojimi otázkami trpezlivosť odpovedajúcich, ešte som zmätočnejšie požiadavky tu nevidel

Tak neviem, či je rozdiel medzi Excelom a Wordom so zobrazením ikony na vloženie obrázka.
Na karte Vložiť je ikona, tretia zľava, ktorá vyvolá dialog. To je asi všetko

Makro v iných zošitoch funguje iba v xlsm-súboroch.
Pri nahrávaní makra je predsa výber, kam sa má makro nahrať.

Ak tomu dobre rozumiem, z tých veľa súborov potrebujete jednotlivé súčty SUMIFS. Navrhujem dať tento vzorec PRIAMO DO SÚBOROV, potom v centrálnom zdrojovom súbore budete ťahať už iba jednu bunku a to ide aj zo zatvoreného súboru.
Ak je tých SUMIFS z jedného súboru viacero, pre napr. iné IF, rovnako by som do súborov dal možnosti v presne stanovených miestach, najlepšie na samostatný list. Inak, príloha by veľa vyriešila, možno aj iný postup na dosiahnutie cieľových výsledkov.

Kto si ešte nekopol, nech sa prihlási ... viete kde.
Vie si vôbec niekto predstaviť, v akej situácii a kedy (21:47) písal svoju prosbu? Má deti, manželku ktorej chce pomôcť a svoju hrdosť . . . za to že sa nedokázal presne vyjadriť nie je predsa na nakopávanie ? NEODPOVEDAJ ak nerozumieš !!! Môžete sa spoločne hanbiť, bez výnimky.

Ja som sa naučil robiť makrá podľa záznamu makra priamo na súboroch. Predviedol som čo potrebujem a potom študoval a upravoval zápis. Takže niečo je v prílohe , študuj

Kto si zmení na chvíľu systémový čas, ten to prečurá ... to je čo za podmienka ? dôvod ? Hádam by to šlo inak ..

Správne Marjankaj - zadanie ako pre jasnovidcov, tajomné a bez prílohy - snažte sa.

Vybrať VŠETKY listy, tlačiť napr. takto

Sheets(Array("Hárok1", "Hárok2", "Hárok3")).Select
Sheets("Hárok1").Activate
ActiveWindow.SelectedSheets.PrintPreview
ExecuteExcel4Macro "PRINT(1,,,1,,FALSE,,,,,,2,,,TRUE,,FALSE)"

Dať samozrejme PrintOut . .

Skúste použiť kód, ktorý pospája všetky listy v súbore na aktuálny list (t.j. ten kde sa práve nachádzate). Pôvodné listy zachová, ale môžete to v kóde upraviť aby ich vymazal, stačí odstrániiť apostrofy pri príkazoch ma mazanie:

Dim OK As Boolean
Sub ConsolidateWorkbook()
Dim k1 As Long, k2 As Long, n As Long
Application.ScreenUpdating = False
k1 = 1
k2 = 2
n = ActiveWorkbook.Worksheets.Count
While k2 <= n
CombineSheets Worksheets(k1), Worksheets(k2)
If OK Then
k2 = k2 + 1
Else
k1 = k1 + 1
If k2 = k1 Then k2 = k2 + 1
End If
Wend
Application.DisplayAlerts = False
For k2 = n To k1 + 1 Step -1
' Worksheets(k2).Delete
Next k2
MsgBox n & " worksheets have been consolidated to " & k1, vbOKOnly + vbInformation, "All Done"
End Sub

Sub CombineSheets(s1 As Worksheet, s2 As Worksheet)
Dim n1 As Long, n2 As Long
n1 = s1.Range("A999999").End(xlUp).Row
n2 = s2.Range("A999999").End(xlUp).Row
OK = (n1 + n2 <= 999999)
If OK Then
With s2.Range(s2.Cells(1, 1), s2.Cells(n2, s2.UsedRange.Columns.Count))
.Copy s1.Range("A" & n1 + 1)
' .Clear
End With
End If
End Sub

Ja si dám pomocou vzorca ešte z Excelu4 vyznačiť počet strán napr.do bunky B1 týmto makrom:

Sub PocetStran()
Range("B1").Value = _
ExecuteExcel4Macro("Get.Document(50)")
End Sub

Ak to dáš pod klávesovú skratku, môžeš to smerovať aj do MsgBoxu a podobne.

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje