Ve spolupráci se SEDUO jsem vytvořil několik videokurzů:
... TextBox (Textové pole) a jeho použítí ve formuláři za pomocí VBA...
Karta Vývojář - Visual Basic. Menu Insert - UserForm. Z Toolboxu vybereme TextBox.
Seznam základních vlastností prvku TextBox (Textové pole). Okno vlastností můžeme zobrazit klávesou F4.
Pojmenování prvku (můžeme změnit). Ve vzorcích se pak budeme na tento prvek odkazovat. V našem příkladě je (Name) TextBox1
Specifikuje, zda mění objekt automaticky velikost v souladu se svým celým obsahem. Pokud mění tak velký text zvětší objekt.
Hodnota (True False)
Label1.AutoSize = False
AutosizeStav = Label1.AutoSize
Specifikuje, zda se vyvolá automatický tabelátor, jakmile uživatel vloží maximální přípustný počet znaků do ovládacího prvku. Případně vratí nastavení tohoto parametru. Hodnota TRUE, FALSE
Specifikuje, zda se má jako základní jednotka pro rozšíření výběru používat slovo nebo znak
Vrací nebo nastavuje barva pozadí objektu TextBox.
TextBox1.BackColor = RGB(255, 128, 128)
BarvaPozadi = TextBox1.BackColor
Vrací nebo nastavuje styl pozadí objektu Label.
fmBackStyleTransparent (0) Pozadí je průhledné.
fmBackStyleOpaque (1) Pozadí je neprůhledné (výchozí nastavení).
TextBox1.BackStyle = fmBackStyleTransparent
Vrací nebo nastavuje barvu okrajů. Pokud není nastaven okraj tak se změna barvy neprojeví.
TextBox1.BorderColor = RGB(254, 127, 127)
Vrací nastavení nebo změní nastavení okrajů.
fmBorderStyleNone - 0 - nemá viditelný okraj
fmBorderStyleSingle - 1 -
TextBox1.BorderStyle = fmBorderStyleSingle
Poznámka ignoruje se pokud je vlastnost SpecialEffect = none
Identifikuje kde se budou ukládat data, která se vloží přes vlastnost Value. Případně vratí kde se budou data ukládat.
TextBox1.ControlSource = "a1"
HodnotaVBunce = TextBox1.ControlSource
Bublinková nápověda. Zobrazí se při najetí nad objekt
TextBox1.ControlTipText = "Můj text v bublinkové
nápovědě."
ControlTipText = TextBox1.ControlTipText
Určuje, zda se může ovládací prvek stát aktivním a odpovídat na události, generované uživatelem. Nebo specifikuje jak je tato vlastnost aktuálně nastavena.
TextBox1.Enabled = True
EnabledNastaveni = TextBox1.Enabled
Určuje chování při výběru po vstupu do TextBox. Nebo vrací jak je tato vlastnost nastavená.
Vrací nastavení fontu nebo nastaví požadovaný fontu (velikost, typ, ...).
TextBox1.Font.Italic = True
TextBox1.Font.Size = 22
TextBox11.Font.Bold = True
TextBox1.Font = "Times New Roman"
velikostFontu = TextBox1.Font.Size
typFontu = TextBox1.Font
FontJeKurziva = TextBox1.Font.Italic
Varcí nastavení nebo definuje barvu popředí objektu tj. v našem případě jakou barvu bude mít text.
TextBox1.ForeColor = RGB(255, 255, 0)
BarvaPopredi = TextBox1.ForeColor
Vrací výšku objektu nebo jeho výšku nastaví.
TextBox1.Height = 28
Vyska = TextBox1.Height
Odkaz do nápovědy ve formátu Microsoft Windows pro konkretní objekt
Určuje, zda má zůstat vybraný text zvýrazněn i v případě, že se prvek není aktivním. Hodnoty True (výchozí) Neaktivní text není zvírazněn. FALSE - zůstane zvýrazněn.
TextBox1.HideSelection = False
Specifikuje výchozí režim pro zpracování IME (Input Method Editor) daného ovládacího prvku.
Udává, zda TextBox zobrazí v seznamu celé řádky textu, nebo jen jejich část. Nybývá hodnot TRUE, FALSE.
Umístění objektu od levého okraje. Nebo zjištění jak je umístěn objekt.
umistenileft = TextBox1.Left
TextBox1.Left = 12
Určuje, zda lze ovládací prvek editovat. Případně vrací stav této vlastnosti. Nabývá hodnot TRUE (nelze editovat), FALSE (lze editovat, jedná se o vychozí nastavení).
TextBox1.Locked = TRUE
TextBox1.Locked = FALSE
Specifikuje maximální počet znaků, které může uživatel zadat do TextBox nebo vrací tento počet znaků. (0 není zadáno)
TextBox1.MaxLength = 5
maxPocetZnaku = TextBox1.MaxLength
Přiřazení ikony por objekt
TextBox1.MouseIcon =
LoadPicture("c:\mojeIkonka.ico")
Vrací typ ukazatele myši, nebo nastaví ukazatel myši. Hodnoty jsou:
TextBox1.MousePointer = fmMousePointerHelp
Určuje, zda ovládací prvek může pojmout a zobrazit více řádků textu. Hodnoty (True - Text se zobrazí ve více řádcích. False - Text se nezobrazí ve více řádcích.
TextBox1.MultiLine = False
TextBox1.MultiLine = True
Určuje, zda se namísto skutečně zadaných znaků zobrazí v TextBox pouze náhradní znaky. Například *.
TextBox1.PasswordChar = ""
TextBox1.PasswordChar = "*"
Určuje, zda ovládací prvek, formulář nebo stránka mají svislý posuvník, vodorovný posuvník nebo oba posuvníky. Případně vrací nastavení teto vlastnosti.
TextBox1.ScrollBars = fmScrollBarsHorizontal
Určuje, zda může uživatel vybrat řádek textu klepnutím na oblast vlevo vedle textu.
Vrací nebo určuje speciální efekty objektu.
TextBox1.SpecialEffect = fmSpecialEffectFlat
TextBox1.SpecialEffect = 6
StavSpecialEfekt = TextBox1.SpecialEffect
Vrací nebo udává pozici jednoho objektu v pořadí karet (objektu/prvku) formuláře. Nebo-li na ktertý další prvek přejdete po kliku na Tabulátor. (Shift + Tabulátor na předchozí):
Label1.TabIndex = 0
Poznámka: TabStop = True
Určuje, zda jsou v editační oblasti povoleny tabelátory
Určuje, zda se může objekt stát aktivním, když na něj uživatel přejde klávesou tabelátor. Nabývá hodnot TRUE, FALSE. True - Přístup TAB je možný (výchozí nastavení). False - Při použití tabelátoru se objekt vynechá.
TabStop = True
Doplňkové informace o objektu.
Vrací nebo nastavuje text v ovládacím prvku TextBox.
TextBox1.Text = "Nastavíme náš text"
NasText = TextBox1.Text
TextBox1.Text = ""
Poznámka: Výchozí hodnotou je řetězec nulové délky ("").
Zaroznání textu. Vpravo, vlevo, na střed. Nabývá hodnot:
TextBox1.TextAlign = fmTextAlignCenter
TextBox1.TextAlign = 1
jakZarovnano = TextBox1.TextAlign
Umístění objektu od horní okraje. Nebo zjištění jak je umístěn objekt.
umistenitop = TextBox1.Top
TextBox1.Top = 12
Udává stav nebo obsah daného ovládacího prvku.
TextBox1.Value = "Muj jiný text"
MujValue = TextBox1.Value
Nastavuje viditelnost objektu, nebo zobrazuje jaký stav má objekt. Nabývá hodnot TRUE (viditelný - výchozí nastavení), FALSE (neviditelný).
TextBox1.Visible = False
TextBox1.Visible = True
Vrací šířku objektu nebo jeho výšku nastaví.
TextBox1.Width = 110
Sirka = TextBox1.Width
Určuje, zda se má obsah ovládacího prvku automaticky zalomit na konci řádku, nebo vrací jeho hodnotu. Nabývá hodnot TRUE, FALSE.
True - Text se zalamuje (výchozí nastavení). False - Text se nezalamuje.
Hotový příklad ke stažení: Formulář TextBox (Textové pole) - ukázky použití
Popis vlastnosti objektu TextBox1 máme za sebou :)
Článek byl aktualizován: 19.09.2020 11:06
Ušetřil vám tento web čas, peníze? Pomohl vyřešit problém? Jste ochotni poskytnout symbolickou odměnu na další rozvoj? Vybrte si formu odměny, která vám vyhovuje.
Microsoft Office (Word, Excel, Google tabulky, PowerPoint) se věnuji od roku 2000 (od 2004 na této doméně) - V roce 2017 jsem od Microsoft získal prestižní ocenění MVP (zatím jsem jediný z ČR v kategorií Excel). Své vědomosti a zkušenosti dávám k dispozici i on-line ve videích pro SEDUO. Ve firmách školím a konzultuji, učím na MUNI. Tento web již tvořím přes 15 let. Zdarma je zde přes 1.000 návodu, tipů a triků, včetně přes 250 různých šablon, sešitů.
Přidáno: 10.02.12 08:45
Dobrý den, chtěl bych se Vás zeptat jestli je možné otočit celý prvek a nebo alespoň text v něm tak aby byl vertikálně.Jako když nastavím v buňce orientaci 90°.Děkuji
Přidáno: 10.02.12 20:41
To Karel: O této možnosti bohužel nevím.
Přidáno: 13.02.12 18:56
Dobrý den, vytvořil jsem formulář a v něm textbox s vlastností MultiLine=True. Pokud zadám enter pro přechod na další řádek, tak celý formulář zamrzne a musím ho ukončit přes právce úloh. Přitom se to nestane pokaždé ... díky za odpověď
Přidáno: 13.02.12 20:25
To Radek: Můžete poslat ukázku na lasak@centrum.cz? Tohle se mi zatím u žádného formuláře nestalo.
Přidáno: 01.03.12 13:40
Dobrý den, mám problém a trápim sa s ním už 2 dni snáď mi pomôžete. Mám vloženú excel tabuľku vo worde,v tejto tabulke mám bunky,ktore potrebujem vyplniť cez formulár, to nie je problém,až na to,že keď chcem zadať cestu kam sa má zadaná hodnota napísať do excel tabulky,napríklad B3,tak to nejde,lebo VBA nevie najst list excelu a neviem ako mu ho zadať aby ho našiel. prosím poradte http://imgupload.sk/viewer.php?file=fqazrohs5xennttwpdo4.jpg
Přidáno: 01.03.12 13:42
link čo vlastne potrebujem je vyššie,potrebujem, aby sa mi udaj z formulára,napr meno,po stlačení tlačítka OK, prenieslo do bunky "B3" v exceli,v samotnom exceli to nie je problem a vsetko mi funguje,ale akonáhle mám excel tabulku vlozenu do wordu tak to nejde. tách položiek ako meno a podobne bude viac,ale na začiatok potrebujem len toto snád si s tým už ďalej poradím, díky za akúkolvek pomoc.
Přidáno: 01.03.12 19:16
To Cincur: Zkusím o tom popřemýšlet.
Přidáno: 02.03.12 05:48
Mám nový poznatek prí to funguje kým je otvorené excel okno ale akonáhle se to uloží tak to stratí umístnení a nejde to . :-( Ďakujem že sa tým zaoberáte, potrebuju to v práci.
Přidáno: 14.03.12 09:01
Přeji hezký den, mám takovýto problém, když udělám v textboxu nový řádek a přenesu pomocí makra text do buňky, tak se mi na konci řádku objeví čtvereček. Když chci tento čtvereček odstranit, odstraní se i nový řádek. Nemá někdo nápad, jak tento čtvereček odstranit? Děkuji
Přidáno: 07.05.12 21:05
Dobrý den, jsem úplný začátečník, tak omluvte můj dotaz.Existuje nějaká možnost, jak v Textboxu zobrazit zpětně již zadaný text? A ještě jeden dotaz, zpětná kontrola správnosti zadaných dat se provádí už při vložení do Textboxu nebo až po uložení v buňce? Děkuji
Přidáno: 08.05.12 18:03
To Martin: 1) Předpokládám zadám text, poté zadám jiný potvrdím a teď potřebuji se dostat k tomu prvnímu (který již byl přepsán)? Před přepsáním "původního" textu z TextBox bych ho uložil do pomocné buňky. Tj. měl bych k dispozici předchozí verzi (v případě potřeby mohu zobrazit.
2) Kontrola (verifikace) před zapsaním dat z Textboxu
Private Sub TextBox1_AfterUpdate()
Přidáno: 12.05.12 13:30
Jde mi o to, aby uživatel nemusel při každém otevření formuláře vyplňovat pole, která už byla vyplněna dříve. Aby se jen v TextBoxu zobrazila jakoby pro "kontrolu". A aby mohl uživatel, pokud bude třeba, vložit nový údaj. Potřebuji vyřešit problém, když nevyplním všechna pole formuláře, tak mě prázdný TextBox vlastně vymaže data, která už byla zadána. Snad jsem to vysvětlil lépe. Děkuji za odpověď
Přidáno: 12.05.12 17:12
To Martin: Načtu vyplněnou buńku do příslušného TextBoxu TextBox1.Value , pokud je prázdná bude i TextBox prázdný
Přidáno: 22.05.12 14:13
Přeji hezký den, prosím o radu jak docílit toto: Ve formuláři zadám do TextBox1 (datum 22.5.2012) TextBox2 přebere datum z TB1 a zobrazí(den úterý) TextBox3 potřebuji aby přebral datum TB1 a zobrazil v sobě ( týden v roce platný k 22.5.2012) Děkuji za radu
Přidáno: 31.05.12 13:29
Dobry den,
teprve se zacinam ucit a vytvorila sem si makro, ktere z vstupniho formulare na listu 1 prekopiruje na list2. Zaciname na A2. Vsechno funguje parada, ale prepisuju si porad radek 2. Vypada to asi takto:
Private Sub cb_Close_Click()
Dim Number_of_Entries, A, New_entry As Integer
Dim claim_number, start As String
Number_of_Entries = 65535
start = 2
For A = 1 To Number_of_Entries
claim_number = Cells(start, 1)
If claim_number <> "" Then
start = start + 1
Else
New_entry = start
End If
Next A
Range("c2").Copy Destination:= _
Sheets("Sheet2").Range("A2")
Range("c4").Copy Destination:= _
Sheets("Sheet2").Range("B2")
Range("c6").Copy Destination:= _
Sheets("Sheet2").Range("C2")
Range("C8").Copy Destination:= _
Sheets("Sheet2").Range("D2")
Range("C10").Copy Destination:= _
Sheets("Sheet2").Range("E2")
Range("c12").Copy Destination:= _
Sheets("Sheet2").Range("F2")
Range("c14").Copy Destination:= _
Sheets("Sheet2").Range("G2")
Range("c16").Copy Destination:= _
Sheets("Sheet2").Range("H2")
Range("C2").Value = ""
Range("C4").Value = ""
Range("C6").Value = ""
Range("C8").Value = ""
Range("C10").Value = ""
Range("c12").Value = ""
Range("c14").Value = ""
Range("c16").Value = ""
MsgBox "The data has been successfully copied."
End Sub
Nenasel by se nekdo, kdo by mi pomohl se posunout dal ;-)
Přidáno: 12.07.12 15:25
Přeji hezký den, prosím o radu jak docílit toto: V Listbox1 nastaveném na multiselect označím 3 různé položky např. leden březen květen Jak docílit zápisu do buňky A1 na List1 aby v buňce byl převzatý text: leden, březen, květen ( řetězec s čárkou a mezerou) Děkuji za pomoc
Přidáno: 15.07.12 08:30
To Pavel D: Ukázka kdy vybrané položky se zapíší do MsgBoxu. Nutno procházet cyklem.
With ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) Then
zprava = zprava & .List(i) & vbNewLine
End If
Next i
End With
MsgBox (zprava)
Přidáno: 30.08.12 16:15
Chcem vás poprosit či by ste mi nepomohli s makrom kde v jednom liste je rolovacie menu "pole so zoznamom" s menami a vedla toho sú 4 prepínace s farbou napr.: biela, cervena, zelena, modra a tiež nieaké poznámky cez textové pole a nakoniec tlačítko uložiť. Po stlačení tlačitka sa na druhý list uloží vybrané meno, farba, a poznámka. Ak sa u niektorého mena priradí konkrétna farba viac krat ako 10 tak my vypíše toto meno farebne na prvom liste do volného priestoru. niečo ako upozornenie ze prekrocil limit 10.
Přidáno: 31.08.12 18:12
To Franc: Tohle je na článek. Bude-li čas zkusím sepsat.
Přidáno: 01.09.12 12:55
Viem že toho chcem dosť. Ale poprosil by som o radu od čoho sa odraziť. Moj mail: francjose44@gmail.com
Přidáno: 01.09.12 20:30
Franc: Doporučuji přečíst články na tomto webu věnující se VBA, nebo položit otázku do diskuzního fóra třeba na http://www.pc-help.cz/ nebo strejda google (dotazy pokladat anglicky)
Přidáno: 24.09.12 23:52
Dobrý den, je možné několika ActiveX TextBoxy procházet přesk klávesu tab tak, aniž bych musel využít VBA? Potřebuji sešit uložit jako xls. Děkuji.
Přidáno: 25.09.12 16:27
To Adam: Zatím jsem nepřišel na řešení bez VBA, někde mám řešení s VBA.
Přidáno: 25.10.12 14:02
Dobrý den,měl bych dotaz ohledně TextBoxu - můj kód vypadá takto: Dim j As Integer j = frm.edAdd.Value Dim Add As MSForms.TextBox For i = 1 To j Set Add = frm.Controls.Add("forms.TextBox.1") With Add .Name = "Load & i + 1" .Top = 35 + (20 * i) .Left = 390 .Width = 54 .Height = 15.75 End With Next Programuji ve VBA, mám definovaný UserForm, TextBoxy, CommandButtony apod. Cílem mého makra je, když uživatel zapíše ve formuláři nějaké číslo, tak tolikrát se vytvoří TextBox v daném UserForm. Toto funguje. Problém však nastane tehdy, když se na nově vytvořený TextBox (např. Load1, Load2, ...) nějakým způsobem odkazuji - jako kdyby neexistoval název TextBoxu. Pokud však "natvrdo" vytvořím TextBoxy v UserForm, přiřadím jim nějaká jména a odkážu se na ně - tak to funguje. Takto to ale nechci, protože nikdy dopředu nevím, kolik TextBoxů budu pro danou úlohu potřebovat. Nevím, zda to vůbec jde, proto se na Vás obracím s prosbou o radu. Děkuji
Přidáno: 27.12.12 09:29
Dobrý den pane Lasák, prosím o radu jak docílit toto: Při otevření formuláře se naplní textboxy hodnotami z databáze: tb1 text třeba A,nebo B tb2 text třeba C, tb3 číslo třeba 22000112 Po naplnění textboxů potřebuji MsgBox ( podmínka když tb1 je A, nebo B, a tb2 je C a tb3 začíná číslem 2*******, tak MsgBox(" něco") Mám problém jak zapsat kód If ..... Then s první pozicí čísla v tb3 Děkuji za radu P.D.
Přidáno: 27.12.12 11:50
TO PavelD: Potřebujete událost po spuštění formuláře se provedou požadované podmínky:
Private Sub UserForm_Activate()
MsgBox ("Ahoj právě jsi spustil formulář")
'tady další kód
End Sub
Hodnoty vkládané do tb1 máte již v proměnné např: HodnotaProTb1? Pak např. pomocí funkce LEFT (ZLEVA, VLEVO) zjistíte první hodnotu v proměné (tj. číslo 2) a pak použít podmínku IF Then http://office.lasakovi.com/excel/vba-teorie-zaklady/if-then-elseif-else-podminka-excel-vba/
Přidáno: 06.02.13 14:03
Dobrý den pane Lasák, prosím o radu jak docílit toto: Do formuláře (nebo přes inputBox) Tetxbox1 zadám počáteční čas 8:00 Tetxbox2 zadám konečný čas 8:30 v Textbox3 nebo Label1 potřebuji rozdíl v minutách "30" (dostávám hodnotu 2,0833333) Chce to řešit funkcí?
Přidáno: 28.03.13 09:00
Dobrý den.
Protože chci, aby se mi v textboxu zobrazovala hodnota 02 a ne jen 2, vložil jsem
Private Sub TextBox134_Change()
TextBox134.Value = Format(TextBox134.Value, "00")
End Sub
Textbox má také ControlSource, ale formát buňky nepřebere. Toto se mi při hodnotách menší než 10 při krokování zacykluje. Je nějaký lepší způsob.
Děkuji
Přidáno: 10.09.13 23:25
Zdravím, chtě bych pochválit autory za tento skvělý web. Mám jeden problém pro správu databáze v excelu (access v práci nemáme) používám jako vstupní oblasti formulář s text boxy. Náseledně je zadaným hodnotám přiřazené ID řádku. A zpětně jde hodnotami listovat a objeví se v text boxech. Mám problém s proměnou u hodin. Nevím jaky datový typ jim mám přiřadit. Při variant se uloží správně, ale načítá se do textboxu jako desetiné číslo. Při proměné date se zase zobrazuje formát např 04:00:00 PM místo 16:00 a pokud se nenačte z buňky žádná hodnota automaticky se mi vrací do textboxu 12:00:00 AM. Neméte nějaký trik jak načíst správnou hodnotu?
Public Property Get Position() As Variant
Position = Me.cboPosition
End Property
Public Property Let Position(ByVal vNewValue As Variant)
Me.cboPosition = vNewValue
End Property
Public Property Get Timex() As Date
Timex = Me.txtTimex
End Property
Public Property Let Timex(ByVal vNewValue As Date)
Me.txtTimex = vNewValue
End Property
Děkuji
Přidáno: 29.01.14 07:47
Dobrý den, mohl bych mít dotaz? Když v textbox mám určené aby se mi zapsal aktuální datum. (Textbox1.Text = date) Ale já ho při vyplňování formuláře přepíši, proč mi stejně ve výsledku zůstane aktuální datum?
Přidáno: 22.06.14 20:56
Zdravím,chtěl bych se zeptat,zda je možné,abych mohl zablokovat pole když se při načtení z buňky načte text,ale pokud by po načtení zůstal prázdný,je možné do něj zapisovat.Doufám,že jsem můj dotaz napsal srozumitelně.Děkuji za odpověď.
Přidáno: 28.07.14 16:28
To Ivan: Po načtení
If Me.TextBox1.Text <> "" Then
Me.TextBox1.Locked = True
End If
Přidáno: 28.07.14 16:34
To Vašek: Využít událost Change a stejným způsobem, jakým uvádíte, zapsat novou hodnotu?
Přidáno: 26.10.14 14:32
To Lucie O:
Rozhodl jsem se že vám s vaším problémem pomohu, jelikož nikdo nereagoval.
Sub cb_Close()
Dim NextRow As Long, NextCol As Long
Dim A As Long, claim_number As String
'Nastavení počítání sloupců od 1, jinak počítá od 0
NextCol = 1
'Určení poslední prázdné buňky na Listu 2 a uložení do proměné NextRow
NextRow = Sheets("List2").Range("A65536").End(xlUp).Row + 1
'Aktivace Listu 1
Sheets("List1").Activate
'Smyčka For To z krokem 2 (Step 2)
For A = 2 To 20 Step 2
'Přebírá hodnotu buňky na listu1 v řádkách A - 2,4,6.. a sloupci3 (čili C)
claim_number = Cells(A, 3)
'Rozhodnutí jestli v proměnné claim_number je hodnota buňky
If claim_number <> "" Then
'Hodnota proměnné bude přenesena do určitého řádku a sloupce na Listu2
Sheets("List2").Cells(NextRow, NextCol).Value = claim_number
'Vymazání hodnot v buňkách na List1
Cells(A, 3).ClearContents
'Přičtení 1 pro další sloupec na Listu2
NextCol = NextCol + 1
Else
'Zobrazení zprávy pokud v proměnné nebude žádná hodnota
MsgBox "The data has been successfully copied."
'Ukončení cyklu
End
End If
Next A
End Sub
Ještě k vašemu původnímu programu. Vaše deklarování proměných Dim Number_of_Entries, A, New_entry As Integer je špatné. V tomto případě by pouze New_entry byla Integer a ostatní proměnné by byly Variant. Správně je to Dim Number_of _Enteries As Integer, A As Integer, New_entry As Integer.
Co se týká vašeho problému přepisování řádku 2 je chyba v zadání Range("C2").Copy Destination:= Sheets("Sheet2").Range("A2"). Vždy vam toto kopírování bude přepisovat řádek 2 na Listu2. Musíte k řádku nebo sloupci při každém průchodu cyklu přičítat 1.
Přidáno: 06.12.14 07:09
Dobrý den , prosim o radu ,akým spôsobom je možné zmeniť farbu písma v textovom poli pri nastavení enabled=false ďakujem
Přidáno: 08.12.14 07:30
To Jozef: -- zmeniť sa dá, ale zmena sa prejaví až po Enabled=True
Přidáno: 22.04.15 18:12
Dobrý den, prosím o radu, mám vytvořený formulář s textboxy 1 až 10 a chtěl bych zřetězit jejich vyplnění hodnotami. Např < for i=1 to 10 listbox(i).value=range("a"&i) next >
Přidáno: 01.12.15 15:18
Dobrý den, lze makrem upravit chování kurzoru v textboxu? Chtěl bych, aby se kurzor umístil po kliknutí na textbox hned za první znak a to kdykoliv, kdy na pole kliknu. Hledal jsem po různých fórech, ale chytrej z toho nejsem ani trochu (s VBA začínám). Kdyby jste někdo věděl alespoň zhruba věděl po čem pátrat, za každou radu budu rád. textbox1.SelStart = 1 mi sice kurzor nastaví tam, kam chci, ale vždy jen po spuštění makra.
Přidáno: 28.02.16 12:54
Na "Form" mám "TextBox" do kterého vepíši hodnotu. Po uzavření a novém otevření "Form" hodnota tam není. Je možno H=TextBox.Text někde uskladnit aby se při příštím otevření "Form" znovu objevila? Dík
Přidáno: 20.05.16 14:43
Dobrý den,
váš web je pro me alfou když něco nevím, ale nemužu nikde na netu ani tady najit kus kodu ktery potrebuji:
'takhle se samozrejme nastavi hodnota prvku, treba textbox:
textbox1.value = 1
'Ale jak tuto hodnotu ulozim tak, aby se i po vypnuti a ulozeni excelu tato hodnota zachovala?
'Neco jako:
textbox1.SetDefault.value = 1
Samozrejme vim, ze ve vlastnostech prvku se da tato hodnota nastavit, ale ja to chci udelat makrem a zaroven se vyvarovat tomu abych operoval s nejakou bunkou a vkladal do ni makrem hodnotu, kterou si samozrejme pak do prvku nactu.
Přidáno: 24.07.16 11:00
Prosím o pomoc se snad jednoduchým dotazem. V aplikaci, která mi jako taková funguje, mám ve formuláři textové pole, do kterého chci pouze posílat informace pro uživatele o tom, co aplikace právě dělá. Jde o to, že některé procedury trvají dlouho, tak aby uživatel neměl pocit, že se "to zaseklo." Jenomže i když prokazatelně před samotným kódem určitého vyhledávacího cyklu dám příkaz: TextBox1.Text = "Hledání...." Do while.... loop (dlouhotrvající kód) tak příslušná smyčka do - loop se provede, ale zobrazení stavové hlášky "Hledání..." do textového pole se uživateli zobrazí až na konci smyčky, kdy to už vlastně není potřeba.... Je vůbec způsob, jak to udělat, aby stavová hláška posílaná do textového pole plnila účel a zobrazila se prostě včas tak, jak by měla? Díky moc, já už nevím, kudy kam :-( Jirka
Pomohl Vám návod? Sdílejte na Facebooku, G+ |
||
LinkedIn... |
Stránky o MS Office (Excel) produktu společnosti Microsoft. Neslouží jako technická podpora.
| Email na autora: pavel.lasak@gmail.com | Copyright © : Pavel Lasák 2004 - 2024 |