< návrat zpět

MS Excel


Téma: Generování číslené řady rss

Zaslal/a 30.9.2021 12:37

Dobrý den,

chtěl bych používat níže uvedené makro pro generování číselného řetězece. Bohužel výstup je např. 1234 1 a já bych potřeboval 1234 01. Předem děkuji za každou radu.


Dim Number As String
Dim First As String
Dim Last As String

Number = InputBox("zadej číslo řady")
First = InputBox("zadej první číslo")
Last = InputBox("zadej poslední číslo")
For i = First To Last
ActiveCell.Value = Number & " " & i
ActiveCell.Offset(1, 0).Select
Next i

Zaslat odpověď >

#051256
avatar
ActiveCell.Value = Number & " " & Format(i, "00")citovat
#051257
avatar
Přesně to jsem potřeboval, moc děkuji.citovat
#051258
elninoslov
Čo ak bude Last alebo First 3 a viac ciferné?
Čo ak niečo z toho nebude vôbec číslo?
Čo ak užívateľ zruší InputBox bez zadania?
Čo ak nebude po koniec hárku dosť buniek?

zišlo by sa pár ošetrení...citovat
#051278
avatar
Ochrany jsem řešil takto.

Čísla se zapisují do sloupce a není problém, že by došlo místo.

Hodnota First zažím nepřesáhla 2 ciferné číslo, naní pro to ani předpoklad.



Number = Application.InputBox(Prompt:="Zadejte číslo ", Type:=1)
If Number = "" Then Exit Sub
First = Application.InputBox("Zadejte počáteční číslo", Default:="01", Type:=1)
If First = "" Then Exit Sub
Last = Application.InputBox("Zadejte koncové číslo", Type:=1)
If Last = "" Then Exit Sub

For i = First To Last
ActiveCell.Value = Number & " " & Format(i, "00")
ActiveCell.Offset(1, 0).Select
Next icitovat

Uživatelské menu

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

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

Kombinace bez opakování – výpis

elninoslov • 4.12. 2:35

Chyba pri triedení

Denis • 3.12. 20:33

Chyba pri triedení

elninoslov • 3.12. 19:13

Chybné řazení ve filtrované oblasti

elninoslov • 3.12. 18:58

Chyba pri triedení

Denis • 3.12. 17:39

Chybné řazení ve filtrované oblasti

B3rsiCZ • 3.12. 15:56

Chybné řazení ve filtrované oblasti

B3rsiCZ • 3.12. 15:55