MS Excel

Téma: Opakovaný zápis do buňky

Zaslal/a lib0r 19.10.2013 14:42

Zdravím,

řeším situaci, kdy potřebuji opakovaně zapisovat do buňky. Můžete mě prosím navést jak na kód ve VBA?

Příklad zadávám hodnotu např. do InputBoxu, která zapisuje do buňky A1:

Výchozí stav např. buňky A1 = ""

Nový stav buňky A1 = "XX1"

Nový stav buňky A1 = "XX2
XX1"

Jinak řečeno, aby se načetla hodnota a nová se zapsala nad ní, v buňce chci mít odřádkování přes ALT+ENTER.

Díky

Zaslat odpověď >

Pavlus(19.10.2013 15:26)#015750

Je to klasické přiřazení.
Zmíněné odřádkování můžeš udělat např. s pomocí "vbCrLf".
P.

Př.:Sub pridej_hodnotu_do_A1()

If ActiveSheet.Range("A1").Value = "" Then
ActiveSheet.Range("A1").Value = Application.InputBox("Zadejte hodnotu", _
"Dialog pro zápis do A1", "")
Else
ActiveSheet.Range("A1").Value = Application.InputBox("Zadejte hodnotu", _
"Dialog pro zápis do A1", "") & vbCrLf & ActiveSheet.Range("A1").Value
End If

End Subcitovat

lib0r(19.10.2013 15:32)#015751

To je přesně ono. Díky

(téma lze uzamknout)citovat

Uživatelské menu

Nejste přihlášen(a)

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.