Příspěvky uživatele


< návrat zpět

Strana:  « předchozí  1 2 3 4 5   další »
Odkaz na formát buňky (8.10.2015 13:30)

tak pak jak psal eLCHa, do sešitu si zadejte další pravidlo na chtěné buňky =D2=Dnes(), ale s černou barvou..

Odkaz na formát buňky (8.10.2015 11:58)

asi nejjednodušší způsob - je to nastaveno na žlutou barvu v buňce A1, mění buňku B1... Více je nutno upravit makro.. v zadání nebylo

Sub barva()
If Range("A1").Interior.ColorIndex = 6 Then
Range("B1").Interior.ColorIndex = 3
Else
Range("B1").Interior.Pattern = xlNone
End If
End Sub

Hromadná korespondence? (9.9.2015 13:22)

Pokud umíš fce svyhledat, tak hromadná korespondence ve wordu bude sranda...

pusť si průvodce hromadnou korespondencí a tam Tě to navede - vytvoříš si šablonu
(Příjmení a Jméno:
Dat. Narození:
Adresa:
PSČ:
Obor:
atd.)

rozložení dle svého uvážení, pak načteš data z excelu z listu data. Pak už jen vytvoříš dopis, tzn proměnné položky dáš na své místo - tzn. Příjmení a Jméno: a za to vložíš slučované pole z excelu

to když uděláš pro všechny položky, tak máš hotovo 1

na netu určo najdeš spousty návodů jak na to

Hromadná korespondence? (9.9.2015 13:14)

ještě by to mohlo jít možná takto


Sub test()
Dim i, j, k As Long
Dim sht As Worksheet
Set sht = ThisWorkbook.Sheets("data")
i = 2
k = sht.Range("A1", sht.Range("A1").End(xlDown)).Rows.Count - 1
For j = 1 To k
Range("E13").Value = Sheets("Data").Range("A" & i).Value
ActiveWindow.SelectedSheets.PrintOut Copies:=3, Collate:=True
i = i + 1
Next j
End Sub

Hromadná korespondence? (9.9.2015 12:56)

jj, word umí načítat data z excelu, tak jak je definovaná příloha, tak to stačí.. To bude fungovat 1

podminene formatovani - porovnani dvou sesitu (9.9.2015 9:17)

nebyla by snazší varianta VBA - otevřít si druhý soubor, zkopírovat si list a vložit jako nový do otevřeného, tam pak provést porovnání, zbarvit a zase ho překopírovat zpět?

Sice to může být o něco delší, ale zase asi jednodušší na provedení :-)

Zápis vzorců do příspěvků (9.9.2015 9:03)

Já teda nevím, ale přijde mi, že když už se někdo na něco zde zeptá, je z toho celkem patrné, jakou verzi Excelu používá... a myslím, že i v tomto směru jsou generovány odpovědi :-)

Vlaná většina dotazů je definována tak, že chtějí jen řešení... A jestli dostane řešení v podobě indirect nebo nepřímí.odkaz je úplně jedno. Jediné co s tím uživatel udělá je CTRL+C a CTRL+V, zjistí jestli to dělá to co chce a pokud ano, nestuduje proč to tak dělá, je to pro něj prostě dogma a víc k životu nepotřebuje 1

Vytvoření složky, v zadane cestě (4.9.2015 10:23)


Sub slozka()
Dim Cestado As String
Dim TestSlozky As String

Cestado = "c:/prace/"

TestSlozky = Dir(Cestado & Range("A1").Value, vbDirectory)
If Len(TestSlozky) > 0 Then
MsgBox "Tato složka již existuje!"
Else
MkDir (Cestado & Range("A1").Value)
End If
End Sub

Kopie datumu (26.8.2015 15:56)

Pokud jste použil hodnota.na.text

pak by to šlo i

Dim i As String
i = Range("A1").Value
Range("B1").Value = i

Pole se seznamem s odkazy na listy (25.8.2015 11:33)

jako tak?

Závislé seznamy (11.3.2015 14:32)

Mně se nejvíc ověřilo pomocí definování názvů.. K tomu jsem použil makra, pokud se názvy nějak výrazně měnily, stačí jedním tlačítkem na celou oblast (sloupec).

a do ověření pak dáš jen název oblasti (jednotlivých sloupců)

a do závislého seznamu funcki: neprimy.odkaz(dosadit(...))

to pak funguje naprosto bez problémů, jen při každé aktualizaci oblastí, je třeba aktualizovat názvy..

Přičítání a odečítání data (4.12.2014 17:14)

Já tomu taky moc dle popisu nerozumím, hoď sem přílohu..

Aktualizace sbirky z jineho sesitu (15.10.2014 13:49)

Zásadně si myslím, že kopírovat obrázky je celkem problém v rámci maker, protože ty se nevážou na buňku, ale prostě na pozici..

jinak bych volil něco tohoto

<code>
Sub update()
Dim i As Long
Dim j As String

For i = 1 To ThisWorkbook.Worksheets.Count
Windows("Xl0000037.xls").Activate

ThisWorkbook.Sheets(i).Select
j = ActiveSheet.Name
lastCol = ActiveSheet.Range("I3").Column
lastRow = ActiveSheet.Cells(65536, 1).End(xlUp).Row
ActiveSheet.Range("a3:" & _
ActiveSheet.Cells(lastRow, lastCol).Address).Select
Selection.Copy
Windows("update-test.xlsx").Activate 'pokud bude tento sešit také otevřený
Sheets(j).Select

If Range("A3").Value = "" Then
Range("A3").Select
Else
Range("A2").Select
Selection.End(xlDown).Offset(1, 0).Select
End If
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

Next i
End Sub
</code>

kopírování daného počtu řádků do jiného sešitu (14.10.2014 15:11)

myslím, že bez maker tohle neuděláš, nepřiměješ žádným vzorcem otevřít excel nový sešit a do něj vkládat hodnoty, to prostě nende..

na makra to zas tak složitě nezní, ale trochu se ztrácím v tom Tvým popisu, hodil by se example..

scitanie vyplnenych buniek (25.9.2014 21:38)

na to nemusíš dělat makra

funkce pocet2(oblast) zajišťuje to co, potřebuješ


Strana:  « předchozí  1 2 3 4 5   další »

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

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.

On-line nástroje