brucháč
03.01.11,19:35
Ahojte
riešim nasledovný problém:
používam zošit, ktorý má veľa hárkov.Prvý mi slúži ako prehľad o ostatných hárkoch , ktoré predstavujú v podstate formuláre tlačív. Funguje to tak , že do riadkov v prvom hárku zapisujem údaje , ktoré sú odkazmi prepojené na bunky v ostatných hárkoch. T.j. údaje v jednom riadku fakticky predstavujú jedno vyplnené tlačivo. Aby mi tie zaplnené nezavadzali , tak si ich skryjem. Existuje prosím Vás možnosť ako ich odkryť všetky naraz ?
A ešte jedna dilema : V starších verziách Excelu existovala možnosť vytvoriť si vlastnú ikonu , tuto umiestniť na panel a priradiť jej makro . Existuje takáto možnosť aj 2007vej alebo 2010kovej verzii?
riešim nasledovný problém:
používam zošit, ktorý má veľa hárkov.Prvý mi slúži ako prehľad o ostatných hárkoch , ktoré predstavujú v podstate formuláre tlačív. Funguje to tak , že do riadkov v prvom hárku zapisujem údaje , ktoré sú odkazmi prepojené na bunky v ostatných hárkoch. T.j. údaje v jednom riadku fakticky predstavujú jedno vyplnené tlačivo. Aby mi tie zaplnené nezavadzali , tak si ich skryjem. Existuje prosím Vás možnosť ako ich odkryť všetky naraz ?
A ešte jedna dilema : V starších verziách Excelu existovala možnosť vytvoriť si vlastnú ikonu , tuto umiestniť na panel a priradiť jej makro . Existuje takáto možnosť aj 2007vej alebo 2010kovej verzii?
PaloPa
04.01.11,07:15
Dá sa viacerými spôsobmi, napr. podobným makrom:
Sub UnHide()
'
Dim xShtNames, i
'
xShtNames = Split("Sheet2;Sheet3", ";")
For i = LBound(xShtNames) To UBound(xShtNames)
Sheets(xShtNames(i)).Visible = True
Next i
End Sub
Ad vlastný toolbar v 2007 / 2010.
Postup, ako pridať ikonku s makrom na panel s rýchlym prístupom je tu:
http://www.dummies.com/how-to/content/how-to-add-an-excel-2007-macro-to-the-quick-access.html
Je to síce v EN, ale názorné.
Vytvoriť vlastný panel (v XL 2007 bude uložený v novej záložke "Doplnky") je zase najľahšie makrom:
Option Explicit
Sub RemoveBar()
On Error Resume Next
Application.CommandBars("xlDemoToolbar").Delete
End Sub
Sub CreateBar()
Dim oBar As CommandBar
Dim oControl As CommandBarControl
RemoveBar
Set oBar = Application.CommandBars.Add
oBar.Name = "xlDemoToolbar"
oBar.Visible = True
Set oControl = oBar.Controls.Add(ID:=1, Before:=1)
oControl.OnAction = "ButtonClicked"
oControl.FaceId = 275
oControl.Caption = "Klikni na mňa!"
Set oControl = Nothing
Set oBar = Nothing
End Sub
Sub ButtonClicked()
MsgBox "Funguje to!!!"
End Sub
(funguje i pre XL 2003)
TIP:
Bez makra: Vytvoriť v XL 2003 a uložiť ako XL 2007 (xlsm)
Palo
Sub UnHide()
'
Dim xShtNames, i
'
xShtNames = Split("Sheet2;Sheet3", ";")
For i = LBound(xShtNames) To UBound(xShtNames)
Sheets(xShtNames(i)).Visible = True
Next i
End Sub
Ad vlastný toolbar v 2007 / 2010.
Postup, ako pridať ikonku s makrom na panel s rýchlym prístupom je tu:
http://www.dummies.com/how-to/content/how-to-add-an-excel-2007-macro-to-the-quick-access.html
Je to síce v EN, ale názorné.
Vytvoriť vlastný panel (v XL 2007 bude uložený v novej záložke "Doplnky") je zase najľahšie makrom:
Option Explicit
Sub RemoveBar()
On Error Resume Next
Application.CommandBars("xlDemoToolbar").Delete
End Sub
Sub CreateBar()
Dim oBar As CommandBar
Dim oControl As CommandBarControl
RemoveBar
Set oBar = Application.CommandBars.Add
oBar.Name = "xlDemoToolbar"
oBar.Visible = True
Set oControl = oBar.Controls.Add(ID:=1, Before:=1)
oControl.OnAction = "ButtonClicked"
oControl.FaceId = 275
oControl.Caption = "Klikni na mňa!"
Set oControl = Nothing
Set oBar = Nothing
End Sub
Sub ButtonClicked()
MsgBox "Funguje to!!!"
End Sub
(funguje i pre XL 2003)
TIP:
Bez makra: Vytvoriť v XL 2003 a uložiť ako XL 2007 (xlsm)
Palo