Příspěvky uživatele
< návrat zpět
Len mi nepovedzte aj teraz, že to nefunguje.
A podľa čoho sa vyberá hodnota v stĺpci 12 ? Raz je tam z ANA = N, druhý krát ale z ANA = A.
No keď si myslíte, že to bude prehľadnejšie/rýchlejšie medzi toľkými číslami...
Žiaľ fnc z odkazu sa ani mne nedarí sprevádzkovať, hneď prvý test končí pádom fnc úplne bez debugovania chyby. Ak zadám druh formátovania "rovná sa" 1, spadne pri krokovaní v GetStrippedValue na tom MID, kde nastane záporná hodnota.
Ak by ste použil iba PF vzorcom, tak som Vám urobil maximálne zjednodušenú verziu. A mne sa zdá, že funkčnú.
Zmažte číslo 1 v A1 a uvidíte zmenu.
Ľavý Alt+F11. V otvorenom okne Microsoft Visual Basic for Application kliknite pravým mišítkom na VBAProject(názov dokumentu) - Insert - Module. Dvojklik na ten vytvorený Module1 a v do pravej bielej časti okna nakopírujete jedno alebo druhé makro. Makro potom priradte napr. tlačítku, ktorému nastavte vlastnosť Netlačiť.
Pozor ale, ako vstupná/výstupná bunka je tam nastavená
Cells(1, 5)
teda E1
To si upravte podľa seba.
PS: Príkaz Cells pracuje s indexami riadkov a stĺpcov. Čiže Cells(číslo riadka, číslo stĺpca)
Stačí takto?
Ja by som to skôr asi urobil takto. Je tam minimum formátovaní - 2.
Vypočítava sa to na základe indexu podľa čísla stĺpca.
Ak budete potrebovať pridať ďalšie štvorstĺpce, len pri pripočítajte vo formátovaní rozsah. Alebo si urobte dostatočný predstih.
Čo to tam máte za makro ? Čo to malo robiť, pomôžeme...
EDIT: Máte tam až po riadok 526 v stĺpci H Výberový zoznam. Tak som to prerobil na oblasť $I$5:$AWV$526. Vymenil som prílohu.
Alebo tento druhý variant je tuším jednoduchší.
Pozeral som nejaké miestne a jazykové nastavenia, ale nevidím tam nič o strednom formáte.
Skúste to zatiaľ vyriešiť definovaným názvom, podľa návrhu eLCHa.
Malo by to fungovať na SK,CZ,HU.
Skúste či je to to, čo ste chcel. Nezdá sa mi, že chcete zlučovať rôzne dátumy, a nepovedali ste ani koľko to má stĺpcov, akého formátu, či sa budú sčítavať (tak som to urobil) atď. Je to minimum informácii, navyše bez prílohy...
EDIT: 5.2.2015 09:08
Oprava prílohy
Na tom čo som si vytvoril to funguje tak ako si myslím, že aj má. Ak to Vy máte ako Tabuľku a nie tabuľku, alebo máte pred tým (asi áno) iné dáta atď, atď, tak to fungovať nebude.
Príloha je bezpodmienečne nutná.
Načo tam máte vo vzorci C2, keď je mimo tabuľkových dát a nič v nej nieje?
No a na ktorom presne riadku ? Nie náhodou na Evaluate ?
Akú hodnotu má FC.Formula1 ?
Nejako takto asi...
Váš kód ale neumožňuje prípadnú ďalšiu prácu s číslom palety. Navyše funguje pri dvojkliku hocikde, čo spôsobuje problém pri potrebe prepísať nejaké iné dáta na liste. Skôr by som to upravil na niečo takéto
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = Range("Pocitadlo").Address Then
With Range("Pocitadlo")
If .Value = 6 Then .Value = 1 Else .Value = .Value + 1
Application.Goto Range("Pocitadlo").Offset(1)
End With
End If
End Sub
A formát bunky
###?"/6"
Prepínanie zo 6 na 12 by som riešil netlačiteľným zaškrtávacím políčkom.
Private Sub CommandButton50_Click()
With Worksheets("Cold").ListObjects("ColdInputEmails").DataBodyRange
.Columns(2).Resize(Evaluate("=COUNTIF(ColdInputEmails[EmailAddress],""<>""&"""")")).Value = TextBox1.Value
End With
End Sub
Ale prečo musí mať tá Tabuľka 1048566 riadkov ?
No tak to obabrime takto:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim N As Long, V As String, H As Single
If Target.Column <> 1 Then Exit Sub
With Sheets("Zdroj")
On Error Resume Next
N = WorksheetFunction.Match(Target.Value, .Columns(1), 0)
If Err <> 0 Then Target.Offset(0, 1) = "": Exit Sub
V = .Cells(N, 2)
H = .Cells(N, 2).RowHeight
With Target.Offset(0, 1).MergeArea(1)
V = Replace(V, " Adresa:", vbCrLf & "Adresa:")
.Value = V
.Font.Bold = False
.Characters(Start:=1, Length:=17).Font.Bold = True
.Characters(Start:=InStr(1, V, "Adresa:"), Length:=7).Font.Bold = True
.EntireRow.RowHeight = H
End With
End With
End Sub
Alebo CDO (až dole)
http://excelplus.net/jak-odeslat-e-mail-z-excelu/
Pozor na to heslo. Ak bude robiť s Master súborom aj niekto iný, môže si pozrieť heslo do mailu v kóde. Ak to budú iba bezpečné osoby/a tak NoProblem. Aj tak by bolo ale vhodné si na túto činnosť zriadiť novú schránku.
Uživatelské menu
\nMenu
On-line nástroje
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
RSS nejnovější články