Příspěvky uživatele
< návrat zpět
Zdravím,
snad už poslední dotaz. Docela dlouho se s tim trápim a nevim.
Dynamický listbox, tedy uživatel sám přidává položky. Ejhle, najednou potřebuje 5. položku vymazat. Jak na to? Jak na to, aby se smazala tato položka i v seznamu, ze kterého je tvořen onen listbox. Nebo výmaz položky v samotném zdrojovém seznamu není zapotřebí?
Předem moc díky!!
Tak jsem na to přišel. Kdyby to někdo potřeboval:
Private Sub cmdSparovat_Click()
Dim selRange As Range
Dim vysledek As Double
koupit = REkoupit.Value
prodat = REprodat.Value
vysledek = Range(prodat) - Range(koupit)
If koupit = "" Then
i = MsgBox("Zadáváte odkaz na špatnou buňku. Bez obsahu!", vbOKOnly + vbCritical, "Spárovat obchod")
Else
Range("AA1") = Range(koupit).Value
Set selRange = Range(koupit)
selRange.Interior.ColorIndex = 19 'pouze obarví uživatelem vybranou bunku
selRange.End(xlToRight).Activate 'aktivuje 1. bunku napravo od vybrané
ActiveCell.Interior.ColorIndex = 19
ActiveCell = "Spárováno"
End If
If prodat = "" Then
i = MsgBox("Zadáváte odkaz na špatnou buňku. Bez obsahu!", vbOKOnly + vbCritical, "Spárovat obchod")
Else
Range("AB1") = Range(prodat).Value
Set selRange = Range(prodat)
selRange.Interior.ColorIndex = 19
selRange.End(xlToRight).Activate
ActiveCell.Interior.ColorIndex = 19
If Range(prodat) - Range(koupit) > 0 Then
ActiveCell = "Zisk ve výši " & vysledek
ElseIf Range(prodat) - Range(koupit) < 0 Then
ActiveCell = "Ztráta ve výši " & vysledek
End If
End If
Unload Me
End Sub
Sice je to takový "odrbaný", protože vedle těch buněk musí být nějaké hodnoty, ale zatim mi to takto stačí.
Zdravím, chtěl bych vás poprosit o pomoc.
Tvořím jakýsi obchodní deník. Jedno tlačítko "Zadat nový obchod" přidá uživatelem vyplněné detaily obchodu do Přehledu obchodů. Potřebuju vymyslet, aby se s položkami v tomto přehledu dalo "individuálně nakládat". Abych např. jeden (nákupní) obchod mohl spárovat s (prodejním) obchodem a řekněme v řádku prodejního (je to jedno) obchodu napsalo výsledek obchodu, jestli zisk, ztráta atd.
Přidávám ukázku. Tlačítko "Spárovat obchod" v List3, řešeno přes RefEdit, uživatel vybere konkrétní obchody. Dokonce se mi podaří vybrané bunky obarvit 
..
Nevim, jestli je tomu rozumět. Prostě nějaký takový kód:
po kliknutí na tlačítko dělej
.obarvi vybranou bunku
.na konci řádku, ve kterém je vybraná bunka, třeba natvrdo sloupec I = přidej výsledek mezi prodejem a nákupem
a tuto techniku bych pak využil i pro výmaz obchodu. Tlačítko "Smaž obchod", zase form, zase RefEdit, uživatel zase vybere jednu bunku, stiskne Vymazat a vymaže se celý řádek.
Omlouvám se za takový popis, snad je tomu rozumět. Moc díky
Pavlusi a Opičáku, jste nejlepší, díky moc, to je bomba!! Díky
Zdravím, potřeboval bych pomoct. Předem se omlouvám, jestli už vlákno na toto téma tu je..
Jedna věc. Tvořím projekt a potřeboval bych, aby to bylo pro uživatele (pro mě) zábavný, vymyslet náhodný výběr z několika buněk ze 3 slupců. Je to takový jakoby generátor jmen a platů. Buňky ve sloupci A(např 40-60) obasuhují jména, buňky ve sloupci B(40-60) příjmení, buňky ve sloupci C(40-60) čísla, která představují plat. A já bych potřebal na form umístit tlačítko, které provede:
náhodný výběr ("A40:A60"), náhodný výběr ("B40:B60"), náhodný výběr ("C40:C60") a do buňky A1 zapíše výsledek - Petr Lopatka 4500. Nehledě na to, že s tím budu dál pracovat, umístim to do seznamu na form ve dvou sloupcích: jméno a plat. Ale seznam nějak vyřešim, spíš ten náhodný výběr. Budu moc vděčný za jakoukoliv radu!
Jakub
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