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

Příspěvky uživatele

Ahoj,

Office 2007 nemám (skoro to vypadá, že bohudík :-) ), ale když už bych si nevěděl rady, tak bych použil makro např:

Private Sub Workbook_Open()
List1.ChartObjects("graf 1").Width = 300
List1.ChartObjects("graf 1").Height = 200
End Sub


totéž pak může být i na aktivaci listu:
Private Sub Worksheet_Activate()
List1.ChartObjects("graf 1").Width = 300
List1.ChartObjects("graf 1").Height = 200
End Sub

M@

Knihovna z WinXP
+
regsvr32 "C:\Windows\System32\scrrun.dll"

Víc už nevím :-/
M@

Tady jeden pokus:
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo x
If Target.Column = 4 Then
Dim sl As Single
Dim rd As Single
Select Case Target.Value
Case Is = 1
sl = 8
Case Is = 2
sl = 12
Case Is = 3
sl = 16
Case Is = 4
sl = 20
End Select
Dim rd2 As Single
Dim wo As String
Dim pn As String
Dim pcs As Single

For sl2 = 8 To 20 Step 4
rd2 = 4
Do While Cells(rd2, sl2) <> ""
wo = Cells(Target.Row, 1)
pn = Cells(Target.Row, 2)
pcs = Cells(Target.Row, 3)

If Cells(rd2, sl2) = wo And Cells(rd2, sl2 + 1) = pn And Cells(rd2, sl2 + 2) = pcs Then
Range(Cells(rd2, sl2), Cells(rd2, sl2 + 2)).Delete Shift:=xlUp
rd2 = rd2 - 1
End If
rd2 = rd2 + 1

Loop
Next

rd = 4
Do While Cells(rd, sl) <> ""
rd = rd + 1
Loop
Cells(rd, sl) = "'" & Cells(Target.Row, 1)
Cells(rd, sl + 1) = "'" & Cells(Target.Row, 2)
Cells(rd, sl + 2) = Cells(Target.Row, 3)


End If
x:
End Sub
M@

Ahoj,

zkusil jsem napsat kód, který do sloupce D daného řádku zapíše datum a čas, kdy na daný odkaz bylo kliknuto a dále pokud na ni kliknu znova, tak mi jí to nedovolí vybrat dřív než po 24 hodinách, problém který mě teď v rychlosti při tom jak je to postavený, nenapadá jak vyřešit je, že odkaz funguje i tehdy kdy buňku nelze vybrat:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If InStr(1, Target.Formula, "HYPERLINK", vbTextCompare) <> 0 And Target.Row > 4 Then
If Now < Cells(Target.Row, 4) + 1 Then
MsgBox "Tuto buňku momentálně nelze vybrat"
Cells(Target.Row, 2).Activate
Else
Cells(Target.Row, 4) = Now
End If
End If
End Sub
M@

Ahoj, u souboru bylo pravděpodobně nastaveno ruční přepočítávání (před uložením, nebo po stisku klávesy F9), to jsem taky jednou nastavil a pak za mnou všichni co ten soubor používali chodily, že jim excel nepočítá vzorce (ani u jiných souborů), nastavení zůstalo v excelu. Tak nezbývalo, než to zas přepnout všem na automatické přepočítávání:
Nástroje -> možnosti -> záložka výpočty.

S pozdravem
M@

Ahoj,

asi bych zkusil přeregistrovat knihovnu scrrun.dll, případně ji někde zkusil stáhnout, jestli třeba není "nakopnutá".

Víc mě nenapadá :-/
M@

Ahoj,

bylo by možno přiložit příklad?

M@

Koukám ten příklad vypadal úplně jinak než jak vypadal původní dotaz. Zkusil jsem tam přidat makro na rozdělení hodnot do polí dle zadaného čísla pole.

S pozdravem
M@

Ahoj, má-li se to měnit automaticky, tak pak to půjde jen makrem. Můžeš přiložit příklad?

M@

Ahoj,
Tentokrát zkusím nenapsat řešení, ale jen TIP :-).
Zkus si zapnout záznam makra a pak udělej to manuální vložení buňek pomocí panelu nástrojů. Pak stopni makro, podívej se do modulu a tam uvidíš jak na to ;-)

S pozdravem
M@

Záleží na tom jestli to #N/A chci kontrolovat vždy ve stejném sloupci.
Zkusil bych:

For radek = 1 To ActiveSheet.UsedRange.Rows.Count
If IsError(Cells(radek, 5)) = True Then
Cells(radek+1, 3) = Cells(radek, 3)
Rows(radek).Delete
radek = radek-1
end if
Next
kdy 5 znamená prohledávaný 5. sloupec je-li v něm chyba (lze změnit na kterýkoliv sloupec)
a 3 znamená že hodnota ze sloupce 3 prohledávaného řádku (tam může být datum) bude zapsána zase do 3. sloupce řádku +1 (následujícího řádku)

Snad to tak bude fungovat, nějak jsem si to nezkusil, ale myslím, že by mělo :-).

M@

Ahoj,

takhle z hlavy když to nevidím tak mě napadá zkusit na začátek makra vložit:Application.DisplayAlerts = False
a na konci makra zas to samé s hodnotou True.

Ale jistej si nejsem - chce to otestovat a kdyžtak pak přiložit nějaký ten soubor.

S pozdravem
M@

Koukám žádná odpověď, tak tady posílám alespoň jeden pokus :-)

M@

Tak tady je jedna možnost:
For radek = 1 To ActiveSheet.Range("Saldo").Rows.Count
If Range("Saldo").Cells(radek, 1) = 0 Then Rows(radek).Delete
Next

S pozdravem
M@

Nevím co lepší win nebo office já mám XP a Office 2003. Jinak je to součástí knihovny mscomct2.ocx, která věřím že se někde stáhnout dá a potom se musí už je zaregistrovat na daném pc.

Jinak abych pravdu řekl, tak nevím je-li součástí windows, nebo office.

M@

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse