Příspěvky uživatele

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ěď...

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje