» Poradna » Programy

Excel VBA - Neplatný kvalifikátor

 |   |  Microsoft Windows 10 Chrome 77.0.3865.90

Ahoj, mám dotaz jestli někdo nebude vědět nějaké hezké řešení, číslo 12 v tomto kusu kódu potřebuji měnit až na 42 a tak jsem tedy upravil na viz níže:'If TextBox12 <> "" Then'hodnota12 = TextBox12.Value'List1.Copy after:=Sheets(1)'ActiveSheet.Name = hodnota12'ActiveSheet.Move after:=Worksheets(Worksheets.Count)'ActiveSheet.Unprotect'Cells(2, 3) = hodnota12'Cells(15, 2) = hodnota12'ActiveSheet.Protect'End If'******************************************************************For i = 12 To 42 Dim TextBox As String TextBox = "TextBox" & i If TextBox <> "" Then Hodnota = TextBox.Value List1.Copy after:=Sheets(1) ActiveSheet.Name = Hodnota ActiveSheet.Move after:=Worksheets(Worksheets.Count) ActiveSheet.Unprotect Cells(2, 3) = Hodnota Cells(15, 2) = Hodnota ActiveSheet.Protect End IfNext iBohužel mi to píše na řádku viz níže neplatný kvalifikátor.Hodnota = TextBox.Value Jak jinak přířadit x TextBoxům pořadové číslo než spojováním řetězců ? Když jsem pro kontrolu dal MsgBox tak proměnná TextBox obsahuje hodnotu TextBox12 ale bohužel v kódu to nefunguje.

Odpovědi na otázku

 |   |  Microsoft Windows 10 Firefox 74.0

Skús vyhodiť deklaráciu toho TextBoxu (Dim TextBox As String) mimo For.

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows 10 Chrome 77.0.3865.90

Bohužel nepomohlo. Asi má problém s tím, že nedokáže deklarovat daný TextBox pomocí řetězce. Asi budu muset všech 12 až 42 těchto bloků vypsat pod sebe ... . prasárna ale funguje to pak.

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows 10 Firefox 74.0

Pardon, to bola blbosť. Každopádne, tvoj TextBox je String. A ty sa pýtaš na Value, ale to sa musíš pýtať Objektu.

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows 10 Chrome 78.0.3904.97

Me.Controls("Textbox" & i) = i

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows 10 Chrome 77.0.3865.90

Nevím jak použít, můžete zařadit do kódu ?

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows 10 Chrome 77.0.3865.90

Dal jsem to dohromady: For i = 12 To 42 If Me.Controls("Textbox" & i) <> "" Then Hodnota = Me.Controls("Textbox" & i).Value MsgBox Hodnota List1.Copy after:=Sheets(1) ActiveSheet.Name = Hodnota ActiveSheet.Move after:=Worksheets(Worksheets.Count) ActiveSheet.Unprotect Cells(2, 3) = Hodnota Cells(15, 2) = Hodnota ActiveSheet.Protect End IfNext iDíky

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows 7 Chrome 79.0.3945.117

Možno keby si napísal, čo má ten kód vlastne spraviť.

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows 10 Chrome 77.0.3865.90

Z formuláře kde je 32 TextBoxů se pokud bude v nějakém hodnota tak se vytvoří list s daným názvem a ještě se do určitých buněk zapíše daný název a posune se list na konec. .... Ale zdá se mi špatné řešení opisovat tento kód s názvy TextBoxů 32x.If TextBox12 <> "" Then'Hodnota = TextBox12.ValueList1.Copy after:=Sheets(1)ActiveSheet.Name = Hodnota'ActiveSheet.Move after:=Worksheets(Worksheets.Count)ActiveSheet.UnprotectCells(2, 3) = HodnotaCells(15, 2) = HodnotaActiveSheet.ProtectEnd If

Souhlasím  |  Nesouhlasím  |  Odpovědět

Související témata: Mira, Move, Protect, Pořadové číslo


Určitě si přečtěte

12 nejšílenějších programovacích jazyků, ze kterých vám praskne hlava

12 nejšílenějších programovacích jazyků, ze kterých vám praskne hlava

** Myslíte si, že umíte programovat? ** Ale prosím vás, zkuste jazyk Wenyan nebo Malbolge ** Z ezoterických jazyků zešílíte, nebo vás zaměstnají v Googlu

Jakub Čížek | 26

Jak funguje kontroverzní program, který ženám krade plavky. Mají se čeho bát?

Jak funguje kontroverzní program, který ženám krade plavky. Mají se čeho bát?

** Strojové učení ještě nepřitáhlo takový zájem jako na začátku prázdnin ** Ne, umělá inteligence nenašla lék na rakovinu ** Naučila se svlékat ženy nejen z plavek

Jakub Čížek | 35

Nový Edge je opravdu Chrome! Prohnali jsme prohlížeče benchmarky i vlastním unikátním testem

Nový Edge je opravdu Chrome! Prohnali jsme prohlížeče benchmarky i vlastním unikátním testem

** Nový Edge je postavený na Chromiu ** Prohnali jsme ho benchmarky a srovnali s ostatními ** Potvrdily nám, že je prakticky stejný jako Chrome a Opera

Jakub Čížek | 66

Dnes nastal konec Windows 7. Ale nepropadejte panice, počítač vám nastartuje i zítra

Dnes nastal konec Windows 7. Ale nepropadejte panice, počítač vám nastartuje i zítra

** Dnes končí podpora Windows 7 a systém formálně umírá ** Co to ale znamená v praxi a bude mi PC fungovat i zítra? ** A mohu i v lednu 2020 zdarma přejít na Windows 10?

Jakub Čížek | 121



Aktuální číslo časopisu Computer

Velký test autokamer

Test ATX skříní

Jak surfovat pohodlně

Sportovní aplikace

Jak funguje procesor