Příspěvky uživatele
< návrat zpět
Děkuji a lze nějak nastavit ActiveX textové pole jako průhledné? Respektive jen viditelný text?
Dobrý den,
používám pro vložení obrázku po kliknutí tento kod:
Private Sub Image2_Click()
On Error Resume Next
Dim umisteni As String
umisteni = Application.GetSaveAsFilename("C:\", , , "Najdi obrázek nebo zadej cestu")
If umisteni <> "" Then
Image2.Picture = LoadPicture(umisteni)
End If
A potřeboval bych po tom, co obrázek vložím na něj přesunout textové pole, to však vždy zmizí za obrázkem, potřeboval bych aby vložený obrázek byl vždy v pozadí. Můžete mi někdo prosím pomoci, jak toho dosáhnu?
Děkuji
Paráda, já to zkoušel měnit a už vidím, kde jsem dělal chybu:)
Omlouvám se ještě za jeden dotaz, jsem v tomto naprostý začátečník...jak bych měl kod změnit, kdybych potřeboval rozplnit jinou řadu čísel s písmenem na začátku a na konci F2325A - F2333A ?
hokuspokus funguje, nemám co dodat, jen smeknout před genialitou a poděkovat, hodně mi to usnadní práci, děkuji oběma a přeji příjemný večer...
Oblast ze sloučených buněk být nemusí, jen by to bylo lepší z hlediska obsahu okolo, řádků by bylo maximálně 5
Děkuji moc za snahu, tady jsem to pro jistotu ještě uploadnul na uloz.to
http://www.uloz.to/11089702/rozplneni-xlsx
Dobrý den, v minulém dotazu o rozepsání číselného rozmezí na jednotlivá čísla mi velice pomohl AL. Dokázal by mi prosím někdo pomoci se složitější věcí? Když mám v jedné buňce jednotlivá čísla oddělená čárkou i několik číselných rozmezí a tato čísla bych potřeboval vyplnit do předem zvolených buněk? Kdyby se to povedlo, byl bych Vám moc vděčný, posílám odkaz na soubor, jak by to mělo vypadat.
http://p-numismatika.cz/rozplneni.xlsx
Ten původní kod od AL je takto
Option Explicit
Sub vypln()
Dim Vstup As String, Zaciatok As String, Koniec As String, Kod As String
Dim Od As Long, Po As Long, j As Long, Vloz As Long
Dim Stred As Integer
Application.ScreenUpdating = False
Vstup = Range("A1")
Stred = InStr(Vstup, "-")
Zaciatok = Left(Vstup, Stred - 2)
Koniec = Right(Vstup, Len(Vstup) - Stred - 1)
Od = Val(Zaciatok)
Po = Val(Koniec)
Kod = Right(Zaciatok, Len(Zaciatok) - Len(Od))
Vloz = Od
For j = 1 To Po - Od + 1
Cells(j, 2) = Vloz & Kod
Vloz = Vloz + 1
Next j
End Sub
Děkuju moooooc, tohle přesně jsem potřeboval...
Dobrý den,
nevíte prosím někdo, jak při vložení rozmezí čísel s několika písmeny např 1525PA - 1546PA do jedné buňky excel doplnil sám všechna čísla a vypsal je do jiného sloupce? Možná to ani nejde, ale díky za odpověď...
Uživatelské menu
\nMenu
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.
RSS nejnovější články