Excel Visual Basic

Programy pro práci s textem, tabulkami, prezentacemi

Moderátor: Moderátoři Živě.cz

Odeslat příspěvekod mia44 13. 6. 2020 09:19

Ahoj, měl bych na Vás prosbu. Začínám s VB v Excelu. Už jsem si koupil i nějakou knížku. V této fázi mi ale nejsou jasný 2 věci:

1) Pokud chci aby uživatel projektu zadal např. nějaké číslo a podle toho čísla se vymazal řádek bude mi stačit inputbox nebo se to musí řešit přes formulář? Prosím kdyžtak mě nakopněte.

2) Možná to souvisí i s tím výše ale ... jde nějak udělat to, že když mám třeba hodnoty 1 až 1000 a buňku, kterou mění uživatel, tzn. zadává tam hodnoty 1 - 1000, tak že pokud zadá třeba 5 tak se někdě něco stane. Můj mozeček zatím pobírá to, že bych to dokázal udělat manuálně tzn. If, then ale to bych to psal ještě 2 roky.

Moc díky a prosím o trpělivost... Začínám...
mia44
Kolemjdoucí

Odeslat příspěvekod mia44 13. 6. 2020 17:56

Tak já budu konkrétnější:

Private Sub CommandButton1_Click()
Dim a As Integer, b As Integer
a = InputBox("Zadejte VS", "Smazat řádek", 0, 0)
Cells(8, 3) = a
b = Range("A9:A1000")
If a = b Then
...
Jde mi o to, že uživatel zadá číslo, což bude proměna a. Proměna b je sloupec. No a já bych chtěl, pokud tam bude nějaká stejná hodnota, aby se označila. případně pak smazala, ale to vím jak na to.

Nevěděl by někdo? Jdu na to úplně blbě? díkec M.
mia44
Kolemjdoucí

Odeslat příspěvekod StalkerX 24. 6. 2020 18:55

Kód: Vybrat vše
Private Sub CommandButton1_Click()
Dim VS As Integer, Rng As Range
VS = Application.InputBox("Zadejte VS", "Smazat řádek", 0, Type:=1)
Cells(8, 3) = VS
Set Rng = Range("A9:A1000").Find(VS, LookIn:=xlValues)
    If Rng Is Nothing Then
        MsgBox "Nenalezeno", vbExclamation, "Oznámení"
    Else
        Rng.Select
    End If
End Sub
StalkerX
Kolemjdoucí


Kdo je online

Uživatelé procházející toto fórum: Žádní registrovaní uživatelé a 0 návštevníků