Příspěvky uživatele


< návrat zpět

Strana:  1 ... « předchozí  38 39 40 41 42 43 44 45 46   další » ... 84

myslim, ze to pujde takto:
Range(UserForm1.RefEdit1.Value).Column

Neslo by to v zip? 7z v praci neotevru...

Ahoj,
na tohle se presne hodi ovladaci prvek RefEdit, ktery muzes pridat na UserForm.
Jak potom zachazet s oblasti je velmi snadne. Pokud budes chtit napriklad oblast bunek vybarvit, udelas to takto:
List1.Range(FORM.REF.Value).Interior.ColorIndex = 4
Tucne je vyznacena vybrana oblast...

asi nejsem nejbystrejsi, ale nechapu to.

O jaky rozbalovaci seznam jde? Overeni dat? Jak rozbalovaci seznam 'vraci hodnotu' do bunky vedle???
Kde rozbalovaci seznam bere hodnoty pro svuj seznam?
Asi by bylo nejlepsi prilozit soubor...

co takhle?

=KDYŽ(J44="";KDYŽ(A43=HODNOTA($Q$6);KDYŽ(I43>21;ROMAN(sumacisel(H43));ROMAN(sumacisel(I43)));"");ROMAN(sumacisel(H43)))

do modulu Listu1 zadejte tento kod:Private Sub Worksheet_Change(ByVal Target As Range)
Dim Najit As Long
If Target.Address = "$A$1" And Len(Target) > 0 Then
On Error Resume Next
Najit = Worksheets("List2").Range("A1:A200").Find(what:=Target.Value, lookat:=xlWhole).Row
If Err.Number = 91 Then
MsgBox "hodnota NENI ve zvolene oblasti"
'jakykoliv kod nebo spusteni dalsiho makra prikazem Call 'nazev makra'
Else
MsgBox "hodnota JE ve zvolene oblasti"
End If
End If
End Sub


samozrejme si ho upravte podle potreby 2

Office 2007
Na karte Vyvojar (ta neni standardne videt, musi se povolit jeji zobrazeni v Moznosti aplikace Excel/Oblibene) / Vlozit / Ovldaci prvky ActiveX / Prikazove tlacitko.
Na tlacitko pravy klik mysi - Zobrazit kod - ten by mel vypadat takto:Private Sub CommandButton1_Click()
Worksheets("List2").Activate
ActiveSheet.Range("E5").Select
End Sub


Pak uz jen opustit rezim navrhu a vyzkouset to. Popr upravit vlastnosti tlacitka (popis, velikost, atd: pravy klik, Vlastnosti).

Pokud vim, tak konkrenti funkcionalita na plasticke zobrazeni bunky neexistuje, ale lze jednoduse nasimulovat.
Postaci kdyz bunku vybarvite nejakou barvou (stredne tmavy odstin) a pak dolni a prave ohraniceni nastavite na stredne silne a tmavy odstin, a pak horni a leve ohraniceni na stredne silne a svetly odstin barvy bunky.
Snad je to pochopitelne :-)

co takto:

{=SUMA(($A$2:$A$9=2010)*($B$2:$B$9=1)*(1))}

Zkusil bych zkontrolovat, jestli je v referencich zaskrtuto 'Microsoft Scripting Runtime'

to je otazka, co je to za chybu, kterou hlasi...
Na jinem pc nemusi byt instalovany nektere knihovny, ktere se v kodu volaji, tezko rict takhle bez informaci.

Tak jsem to zkusil udelat znovu (cely graf z tvych hodnot) a choval se uplne normalne (nepouzil jsem logaritmicke meritko u osy, coz je asi duvod toho podivneho chovani).
Jen teda (podle oka) bych pouzil spis 'mocninny' nez 'logaritmicky'.

To by me zajimalo, bylo by mozny mi poslat ten soubor, podival bych se na to...diky

Zkuste tohle:
Sub SmazRadky()
For i = 1 To Cells(65000, 1).End(xlUp).Row
If i = Cells(65000, 1).End(xlUp).Row Then Exit Sub
Do Until Len(Cells(i, 1)) > 0
Rows(i).Delete
Loop
Next i
End Sub

Kdyz to nevidim, tak se to dost tezko odhaduje, ale co me napada:

1) Musis smazat cely sloupec H (protoze se tam pracuje s .end(xldown))
2) S tim souvisi toto: Radek = Cells(41, 8).End(xlDown).Row - 1 (tady by melo byt cells(1,8) - proto se nachazi bunka pred tou, ktera neni prazdna).


Strana:  1 ... « předchozí  38 39 40 41 42 43 44 45 46   další » ... 84

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje