KENTAUR napsal/a:
Třeba taktoPříloha: 24312_podminka.rar
Hoj excel guru, chtěl jsem se zeptat, jestli by mi někdo poradil, jak zjistím, že buňka na kterou uživatel kliknul je v povoleném rozsahu.
Např:
Povolená oblast range(¨C6: AD36“)
Uživatel kliknul na buňku A1.
Potřebuji porovnat zvolenou buňku s oblastí povolených buněk. Mám v hlavě vymeteno poradí mi někdo?
Děkuji.
Palooo napsal/a:
este ma napadlo ze to chcete dostat do userformu :)
takze
userform:
public aRange as Range
workbook:
set userform.aRange = Target
Palooo napsal/a:
co si predstavujete do formulare?? ... do gridu, premenej, listboxu, textboxu, comboboxu?
chceto prilohu
Dobrý den všem chtěl jsem poprosit o pomoc: potřeboval bych poradit, jak se dá předat hodnota odtud: Private Sub Worksheet_SelectionChange(ByVal Target As Range) a tohle Target potřebuji předat do formuláře. Jak se to dá udělat? Děkuji za pomoc.
Hm tak nic již vyřešeno
kp57 napsal/a:
třeba:Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rdX As Long, rdY As Long, MyStr As String
rdX = Target.Rows(1).Row: rdY = Target.Rows.Count
If rdY > 1 Then
rdY = rdX + rdY - 1
MyStr = "od: " & Format(Cells(rdX, 1), "h:mm") & " do: " & Format(Cells(rdY, 1), "h:mm")
Else
MyStr = "výbìr: " & Format(Cells(rdX, 1), "h:mm")
End If
MsgBox "oblast: " & Target.Address & vbCrLf & MyStr
End Sub
kp57 napsal/a:
třeba:Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rdX As Long, rdY As Long, MyStr As String
rdX = Target.Rows(1).Row: rdY = Target.Rows.Count
If rdY > 1 Then
rdY = rdX + rdY - 1
MyStr = "od: " & Format(Cells(rdX, 1), "h:mm") & " do: " & Format(Cells(rdY, 1), "h:mm")
Else
MyStr = "výbìr: " & Format(Cells(rdX, 1), "h:mm")
End If
MsgBox "oblast: " & Target.Address & vbCrLf & MyStr
End Sub
achoj kucí a holký potřeboval bych poradit, v příloze mám plánovací kalendář. Potřeboval bych zajistit, když člověk klikne v kalendáři a označí pole buněk, aby se mi vybral - vrátilo mi to hodnotu čas od kdy, do kdy jsou buňky označeny (hodinu). Poradí mi někdo?
AL napsal/a:
Bez prílohy môžem iba hádať, ale bez VBA to asi v popísanom prípade nepôjde. Riadok kódu bude vyzerať nejak nasledovne:
If [F2] = "" And [Y2] <> "" Then [F2] = [Y2]Pokiaľ to nie je ono, tak bez prílohy ja osobne už nenapíšem do tohto vlákna ani slovo
kucí je to celkem jednoduché v buňce y2 se vypočte něco např.
v buňce a1 mám datum vystavení
v buňce b2 mám datum splatnosti
v buňce y2 se počítá počet měsíců mezi daty, ale toto mám ve skryté oblasti mimo tabulku a chci to dosadit do tabulky do buňky f2, která je již viditelná.
ale problém je, že někdy znám počet měsíců do splatnosti a jindy zase jen datumy vystavení a datumy splatnosti.
bohužel vycházím z programování v c++ když je splněná podmínka zapiš do buňky f2 výsledek vypočtený v buňce y2
protože kdybych tam dal vzorce tak by se někdy museli nahrazovat (buňka by musela být odemknutá).
jednoduše chci zadat datum vystavení, datum splatnosti a v buňce f2 by se mělo objevit počet měsíců do splatnosti, a jindy znám datum vystavení a počet měsíců do splatnosti a tam se mi zase bude dosazovat datum splatnosti, protože znám datum vystavení a počet měsíců do splatnosti
fuj to je elaborát a basicovat se mi moc nechce
ale pokud nebude zblití
tak doufám, že jsem mou problematiku osvětlil
Hoj kucííí,
zase potřebuji poradit od chytřejších.
Mám vzorec: =KDYŽ(A(F2="";Y2<>"");F2=Y2;"") a potřebuji aby se mi do buňky f2 vyplníla hodnota z buňky y2. Jak na to? Ale v buňce f2 nechci žádné vzorce.
mhueeeee tak to je vončo díííííkyyyyy
Čus guruové, mohl by nebohému, nemyslícímu chudáčkovi zpěváčkovi v příloze je soubor, když zvolí někdo volbu 1 tak potřebuji, aby se mi vyplnil sloupec ano ne dle šablony. 2 podle šablony atd.
mockrát děkuji pánové
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
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.