22701_snimek1.png
A čo tak klávesa DEL? Prípadne Delete?citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Problém s excelem
Uzamčeno - nelze přidávat nové příspěvky.
MS Excel
Téma: Problém s excelem 
Zaslal/a mike-biker 8.12.2014 14:02
Najednou se mi pouze v jednom sloupci - konkrétně C od řádku č. 3927 místo klasické možnosti křížového ukazatele objevuje kurzor se 4 šipkami do stran. Výrazně se zpomalila práce. Pokud kliknu na levé či pravé tlačítko myši, objeví se obr. viz příloha. Dělá to jen v tomto slupci a od určitého řádku. Nevíte někdo ja se toho zbavit?
Děkuji
Uzamčeno - nelze přidávat nové příspěvky.Depak, to je zacyklený odkaz na obrázek. Prostě od řádku 3927 se to tam někde objevilo a napomohlo ani smazat řádky následující.
jde o to, zda to neumí nějaký příkaz odhalit?citovat
jde o to, zda to neumí nějaký příkaz odhalit?citovat
Případně, jestli je tam tvarů víc, tak:
karta Domů > ikona Najít a vybrat > Přejít na-jinak
> Objekty > OK. Pak najednou smazat - Delete.
Edit: Pardon, předchozí příspěvek byl rychlejší. Ale i tak vyzkoušejtecitovat
karta Domů > ikona Najít a vybrat > Přejít na-jinak
> Objekty > OK. Pak najednou smazat - Delete.
Edit: Pardon, předchozí příspěvek byl rychlejší. Ale i tak vyzkoušejtecitovat
Mám Office 365 pro MAC, toto tam vůbec nejde.citovat
Podľa obrázku je to objekt, ktorý je v editovacom móde (možno ho cez Delete mazať). Je ale celkom možné, že týchto objektov je tam NA SEBE veľa a preto sa jedno Delete nepostará o očividné vymazanie. Nezobrazil si v obrázku Pole názvov, kde by mal byť objekt pri vybratí idetifikovaný.
Dve možnosti zistenia či zbavenia sa objektov: stlač klávesu F5, vyber Jinak a vyber Objekty. Tabulátorom sa presúvaj postupne po objektoch a v poli názvov uvidíš koľko ich je.
Skús použiť nasledovnú procedúru na výpis objektov a podľa toho zvoľ ďalší postup:
Sub Lister_Objets()
Application.ScreenUpdating = False
Set Zone = ActiveSheet
On Error Resume Next
Nomfeuil = "Liste objets de " & ActiveSheet.Name
Worksheets.Add.Name = Nomfeuil
With Sheets(Nomfeuil)
.UsedRange.Clear
.[A1] = "Meno objektu"
.[B1] = "Typ objektu"
.[C1] = "Makro"
.[D1] = "Text"
.[E1] = "Adresa"
.[F1] = "Zľava"
.[G1] = "Zhora"
.[H1] = "Šírka"
NbObjet = Zone.DrawingObjects.Count
For Each objet In Zone.DrawingObjects
Cpte = Cpte + 1
Application.StatusBar = "Récup a " & Format(Cpte / NbObjet, "0%") & " réalisée"
lgn = .[A65536].End(xlUp).Row
.[A1].Offset(lgn) = objet.Name
.[B1].Offset(lgn) = TypeName(objet)
.[C1].Offset(lgn) = objet.OnAction
.[D1].Offset(lgn) = objet.Characters.Text
If .[D1].Offset(lgn) = "#N/A" Then .[D1].Offset(lgn).Value = ""
.[E1].Offset(lgn) = objet.TopLeftCell.Address
.[F1].Offset(lgn) = objet.Left
.[G1].Offset(lgn) = objet.Top
.[H1].Offset(lgn) = objet.Width
Next
Application.StatusBar = False
.Columns("A:H").AutoFit
.Activate
End With
Exit Sub
End Subcitovat
Dve možnosti zistenia či zbavenia sa objektov: stlač klávesu F5, vyber Jinak a vyber Objekty. Tabulátorom sa presúvaj postupne po objektoch a v poli názvov uvidíš koľko ich je.
Skús použiť nasledovnú procedúru na výpis objektov a podľa toho zvoľ ďalší postup:
Sub Lister_Objets()
Application.ScreenUpdating = False
Set Zone = ActiveSheet
On Error Resume Next
Nomfeuil = "Liste objets de " & ActiveSheet.Name
Worksheets.Add.Name = Nomfeuil
With Sheets(Nomfeuil)
.UsedRange.Clear
.[A1] = "Meno objektu"
.[B1] = "Typ objektu"
.[C1] = "Makro"
.[D1] = "Text"
.[E1] = "Adresa"
.[F1] = "Zľava"
.[G1] = "Zhora"
.[H1] = "Šírka"
NbObjet = Zone.DrawingObjects.Count
For Each objet In Zone.DrawingObjects
Cpte = Cpte + 1
Application.StatusBar = "Récup a " & Format(Cpte / NbObjet, "0%") & " réalisée"
lgn = .[A65536].End(xlUp).Row
.[A1].Offset(lgn) = objet.Name
.[B1].Offset(lgn) = TypeName(objet)
.[C1].Offset(lgn) = objet.OnAction
.[D1].Offset(lgn) = objet.Characters.Text
If .[D1].Offset(lgn) = "#N/A" Then .[D1].Offset(lgn).Value = ""
.[E1].Offset(lgn) = objet.TopLeftCell.Address
.[F1].Offset(lgn) = objet.Left
.[G1].Offset(lgn) = objet.Top
.[H1].Offset(lgn) = objet.Width
Next
Application.StatusBar = False
.Columns("A:H").AutoFit
.Activate
End With
Exit Sub
End Subcitovat
Děkuji moc všem za rady.
Nakonec jsem použil relativně jednoduché řešení. Původní tabulka byla totiž z Excelu 2007 v PC. Zřejmě tam bylo něco z té doby.
Takže jsem vytvořil nový list, sice pracně naformátoval, ale pak jen postupně přesunul data bez vzorců, poté znovu aplikoval vzorce a je to naprosto v pohodě.citovat
Nakonec jsem použil relativně jednoduché řešení. Původní tabulka byla totiž z Excelu 2007 v PC. Zřejmě tam bylo něco z té doby.
Takže jsem vytvořil nový list, sice pracně naformátoval, ale pak jen postupně přesunul data bez vzorců, poté znovu aplikoval vzorce a je to naprosto v pohodě.citovat
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
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.
RSS nejnovější články