• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

ale vyriesi napises do makra:

msgbox range("A1")

sprav nato makro a potom k tomu makru pridaj cuplik

praveze ja potrebujem v grafoch nastavit cisla tak aby bol vidiet oddelovac raz ako ciarku a v inom dokumente ako bodku

- viem ze sa to da riesit systemovo ale to je viditelne len na mojom systeme
- a tak isto sa to da nastavit v office ale zas to je vidiet len v mojom office
- preto hladam nieco ako ten replace ale musi to byt zapisane v formte "format code"

dnes som s tym zaabil asi cely den a nic som nato nenasiel :)) asi nakoniec spravim makro aby v grafoch prepisalo , na .

ale zas nadruhu stranu nejaky uzivatel tam bude aktualizovat data a ta hodnota sa mu nezmeni

vedel by niekto naformatovat bunky tak aby zamiesto ciarky zobrazovalo bodku pri cislach???

bez pouzitia separatora ... chcel by som to mat ako kod v format code

If CheckBox5.Value = True Then
Rows("236").EntireRow.Hidden = True
Rows("227:230").EntireRow.Hidden = True
ActiveSheet.Shapes.Range(Array("Picture 1")).Visible = True
else
Rows("236").EntireRow.Hidden = False
Rows("227:230").EntireRow.Hidden = False
ActiveSheet.Shapes.Range(Array("Picture 1")).Visible = False
End If

samozrejme ten tvoj picture sa moze inak volat ... zaznamenaj si makro s obrazkom a zober si odneho nazov

mas tam end takze k druhemu IF-u sa makro nedostane

napis to takto:

If CheckBox5.Value = True Then
Rows("236").EntireRow.Hidden = True
Rows("227:230").EntireRow.Hidden = True
End
else
Rows("236").EntireRow.Hidden = False
Rows("227:230").EntireRow.Hidden = False
End
End If

musi tam byt to end? :)
a co presne chces robit s obrazkom?

pridaj prilohu mozem sa nato kuknut

skus takto to zapisat:
Sub test()
Set Rng = Range("A1:H1")
For i = Rng.Columns.Count To 1 Step -1
If Rng.Cells(i) = False Then Rng.Cells(i).Columns.Hidden = True
Next
End Sub

uz sa tomu nebudu moct venovat ... dosla REAL praca :) konecne

takze len pre zaujimavost hodim kde som skoncil ale nefunguje to ...... netusim preco

... naj problem je len z PDF urobit JPG potom to uz bude easy

tak ako tento napad postaci?? :)) mam to tak naprogramovat?

To eLCHa: mne napriklad neprecita ako hodnotu boolean PRAVDA .... ked tam je napisane TRUE tak to precita

mozno je to koli tomu ze mam nemecky office

... ale zas nadruhu stranu ... to je tak ked programatorom dovolia nedefinovavat premenne .) flakaren hrubeho zrna :)))

To eLCHa: vychadzal som zo zadania kde bolo napisane ze stlpce su vyznacene slovami PRAVDA a NEPRAVDA ... takze musi to byt slovne

a k tomu SET-ovanie oblasti tak nato nemam mozgove bunky :))) musel by som viac literatury nastudovat .... hold som starej a lenivej

tu je to prerobene na copy // je to rychlejsie

Sub test()
y = 1
With Sheets("Table")
For x = 1 To .Cells(1, 1).CurrentRegion.Columns.Count
If .Cells(1, x).Value = "PRAVDA" Then
.Range(.Cells(1, x), .Cells(4, x)).Copy Sheets("NEW").Cells(1, y)
y = y + 1
End If
Next
End With
End Sub


je to na riadok od 1 do 4

tu je jedno riesenie, ale je dost pomale :)

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse