Příspěvky uživatele
< návrat zpět
Maticový
=SUMPRODUCT(IFERROR(1/COUNTIF(A1:A4;A1:A4)*(B1:B4="Milan")*(A1:A4>=E4)*(A1:A4<=E5);0))
=SOUČIN.SKALÁRNÍ(IFERROR(1/COUNTIF(A1:A4;A1:A4)*(B1:B4="Milan")*(A1:A4>=E4)*(A1:A4<=E5);0))
Tak tu máte hromadné pre Excel. Ono čo sa týka toho Outlooku, tak nerozumiem odkiaľ by bral mail, adresáre, text do mailu...
Inak ten text do mailu (telo správy), to je akože u každého iné? Predmet tiež?
Tak asi nemáte v Outlooku povolené makrá
V Exceli to naprogramovať nieje problém. Mrknem na to ale najskôr na obed. Zatiaľ upresnite:
-Na ktorom riadku začínajú dáta?
-Ktorý stĺpec je smerodajný na určenie počtu riadkov?
-V ktorom stĺpci je mail klienta?
-Počas tejto operácie je Outlook stále zapnutý? Ide totiž o to, že ak by ste mal neustále vytvárať a rušiť objekt Outlooku (alebo ho otvárať), tak je to neúnosne pomalé.
EDIT: Aha screen som si všimol až teraz.
Z Outlooku je to takto:
Sub vice_priloh_Click()
Dim myItem As Outlook.MailItem
Dim strFolderPath As String
Dim strFileName As String
Dim bIsCreated As Boolean
On Error Resume Next
Set myItem = Application.ActiveInspector.CurrentItem
On Error GoTo 0
If myItem Is Nothing Then
Set myItem = Application.CreateItem(olMailItem)
bIsCreated = True
ElseIf myItem.Class <> olMail Then
Set myItem = Application.CreateItem(olMailItem)
bIsCreated = True
End If
With myItem
strFolderPath = "C:\a pracovni\adresare\adam\"
strFileName = Dir(strFolderPath, vbNormal)
While Len(strFileName) > 0
.Attachments.Add (strFolderPath & strFileName)
strFileName = Dir
Wend
If bIsCreated Then .Display
.HTMLBody = "posíláme protokoly" & " " & " Najděte přiložený soubor " & .HTMLBody
.To = "ab@volny.cz"
.CC = "ab@volny.cz"
.BCC = "ab@volny.cz"
.Subject = "TEST MAIL"
'.Send
End With
Set myItem = Nothing
End Sub
Excel:
Private Sub vice_priloh_Click()
' Reference Microsoft Outlook xx.x Object Library
Dim objOutlook As Object
Dim myItem As Object
Dim strFolderPath As String
Dim strFileName As String
Dim bIsCreated As Boolean
On Error Resume Next
Set objOutlook = GetObject(, "Outlook.Application")
On Error GoTo 0
If objOutlook Is Nothing Then
Set objOutlook = CreateObject("Outlook.Application")
bIsCreated = True
End If
Set myItem = objOutlook.CreateItem(0)
With myItem
strFolderPath = "C:\a pracovni\adresare\adam\"
strFileName = Dir(strFolderPath, vbNormal)
While Len(strFileName) > 0
.Attachments.Add (strFolderPath & strFileName)
strFileName = Dir
Wend
.HTMLBody = "posíláme protokoly" & " " & " Najděte přiložený soubor " & .HTMLBody
.To = "ab@volny.cz"
.CC = "ab@volny.cz"
.BCC = "ab@volny.cz"
.Subject = "TEST MAIL"
.Display
'.Send
End With
If bIsCreated Then objOutlook.Quit
Set myItem = Nothing
Set objOutlook = Nothing
End Sub
A odkiaľ sa majú brať tie údaje na doplnenie ?
A ešte na konci to overiť v danom rozsahu týždňa (E4 a E5):
=SUMPRODUCT(1/COUNTIF(A1:A4;A1:A4)*(B1:B4="Milan")*(A1:A4>=E4)*(A1:A4<=E5))
=SOUČIN.SKALÁRNÍ(1/COUNTIF(A1:A4;A1:A4)*(B1:B4="Milan")*(A1:A4>=E4)*(A1:A4<=E5))
Takto?
=AVERAGE(IF((A1:A50<>"")*(COUNTIF(OFFSET(A1;;;ROW(A1:A50));A1:A50)=1);COUNTIF(A1:A50;A1:A50)))
=PRŮMĚR(KDYŽ((A1:A50<>"")*(COUNTIF(POSUN(A1;;;ŘÁDEK(A1:A50));A1:A50)=1);COUNTIF(A1:A50;A1:A50)))
Rozsah 50 si zmeňte na Váš rozsah.
Napadá ma maticový vzorec (Ctrl+Shift+Enter):
=AVERAGE(IF(COUNTIF(OFFSET(A1;;;ROW(A1:A31));A1:A31)=1;COUNTIF(A1:A31;A1:A31)))
=PRŮMĚR(KDYŽ(COUNTIF(POSUN(A1;;;ŘÁDEK(A1:A31));A1:A31)=1;COUNTIF(A1:A31;A1:A31)))
To je prvé čo ma napadlo. Keď príde MePExG, tak ma sprdne, a hodí sem jednoduchšie riešenie 
.
Píšete, že chcete mať index podľa vlastnej voľby, tak vychádzam z toho že máte nejaké indexy položkám priradené.
Jablká <> jablká
Za tento riadok
For y = 1 To Radku
doplňte toto
If LenB(Data(y, 1)) = 0 Then ReDim Preserve aRadky(1 To y - 1): Exit For
Tu to hodí chybu, ak to spustíte na prázdnom liste! Mám dopĺňať kontrolu do kódu?
"Training" nieje "Trénink".
Worksheet_Change sa nedáva do modulu ale do listu.
Meno "Jméno 1" nie je to isté ako "Jméno1".
Upravené, vyskúšajte. Zmena tých mien je ale poriadne nepohodlná, kvôli tomu odkazu.
Link na súbor
A spúšťate súbor z prílohy 49730? Kód vo Vašej prílohe 49733 nie je ten, čo som Vám poslal ja v 49730.
??? Exportujte, a porovnajte hneď prvý riadok s tým, čo dávate ako príklad. Ukážte mi rozdiel. Ja ho nevidím.
Premýšľam ako odpovedať, bo skôr ako napíšem ako fungujú základné veci v Exceli, ako je COUNTIF a relatívne/absolútne adresovanie buniek, tak skôr to vygooglite.)
COUNTIF - spočíta počet výskytov dátumu v oblasti.
Túto oblasť si určíme vždy od prvej bunky $A$1, po aktuálny riadok v stĺpci A. Teda $A$1:A1, $A$1:A2, $A$1:A3 ...
Takže v každom riadku počíta koľko sa tam nachádza tých dátumov od začiatku po práve počítaný riadok.
Rozdiel medzi $A$1 a A1:
$A$1 - absolútne adresovanie buniek
A1 - relatívne adresovanie buniek
Značka absolútneho adresovania, teda $, pribíja danú súradnicu, aby sa nehýbala, pri kopírovaní vzorca. Tu na začiatku pribijeme aj stĺp A aj riadok 1, preto oblasť spočítavania vždy začína v $A$1.
Narozdiel od toho relatívne adresovanie, tam kde $ nieje, sa mení, podľa toho, kam vzorec posunieme/skopírujeme. Preto sa v každom riadku mení adresa koncovej bunky, pri skopírovaní vzorca na A1, A2, A3, ...
PS: Ešte presnejšie by to malo byť $A$1:$A1 
Takýmto poliam nemôžem odolať
Uživatelské menu
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články