• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

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

Zaslal/a Onykl 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

Jméno
Kontrola
Text
	Ukázka

---

JoKe(30.9.2021 13:52)#051256

ActiveCell.Value = Number & " " & Format(i, "00")citovat

Onykl(30.9.2021 14:20)#051257

Přesně to jsem potřeboval, moc děkuji.citovat

elninoslov(1.10.2021 0:22)#051258

Č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

Onykl(4.10.2021 13:07)#051278

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)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse