Co tam je teď, když ne číslo?
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Tipy a triky pro Excel a makra VBA
< návrat zpět
Téma: Range -Select
MS Excel
Téma: Range -Select 
Zaslal/a GeorgeK 31.8.2016 14:58
Zdravím
určitě to bude nějaká pitomost, ale... Neseje to :-)
Na jinem listu (než z kterého spouštím makro) potřebuji ve vybrané oblasti (H2 - poslední řádek H) k obsahu každé buňky přičíst 0 (=udělat z obsahu buňky číslo).
Sub Vyber()
ActiveWorkbook.Sheets("ListM").Range(Range("H2"), Range("H2").End(xlDown)).Select
For Each cell In Selection
cell.Value = cell.Value + 0
Next
End Sub
formát: Obecný
vloženo 6
poznámka Excelu: "číslo v této buňce je formátováno jako text..." "Převést na číslo"
Tohle ručně provedeno pomůže. Potřebuji to provést pro celý sloupec
Jde mi spíše o první řádek kodu... (tam je chyba - application-defined or object-definet error)
vloženo 6
poznámka Excelu: "číslo v této buňce je formátováno jako text..." "Převést na číslo"
Tohle ručně provedeno pomůže. Potřebuji to provést pro celý sloupec
Jde mi spíše o první řádek kodu... (tam je chyba - application-defined or object-definet error)
Méně elegantní řešení (pomocná bunka, aktivace listu):
Sub MakroPrenasobeni()
With Worksheets("ListM")
'aktivace listu
.Activate
'provizorní obětovaná buňka s hodnotou 1
.Range("J1").Copy
'přenásobení
.Range(Range("H2"), Range("H2").End(xlDown)).PasteSpecial _
Paste:=xlPasteAll, Operation:=xlMultiply, SkipBlanks:=False, _
Transpose:=False
End With
End Sub
Sub MakroPrenasobeni()
With Worksheets("ListM")
'aktivace listu
.Activate
'provizorní obětovaná buňka s hodnotou 1
.Range("J1").Copy
'přenásobení
.Range(Range("H2"), Range("H2").End(xlDown)).PasteSpecial _
Paste:=xlPasteAll, Operation:=xlMultiply, SkipBlanks:=False, _
Transpose:=False
End With
End Sub
Nepotřebujete kód - dejte převést text na číslo (zelený čtvereček
Já používám v immediateSelection.Value = Selection.Value
Já používám v immediateSelection.Value = Selection.Value
Jinak (od boku) před Selectem oblasti nejspíš pouze chybí aktivace listu...
Jinak (od boku) před Selectem oblasti nejspíš pouze chybí aktivace listu...
...ActiveWorkbook.Sheets - tohle nestačí?
...ActiveWorkbook.Sheets - tohle nestačí?
eLCHa - potřebuji to provést "na pozadí - list !ListM! nemůže být zobrazen", kodem - ne ručně. Chybu mám někde ve výběru oblasti sloupce.
Poslal jsem, kód, pak jsem viděl to od eLCHa a chtěl jsem se tlouct do čela, že jak jsem starej, tak jsem hloupej.. jenže jsem si zkusil simulaci a nefunguje za jistých okolností ani moje, ani jeho. Potřebujeme vzorový sešit...
Fajn, beru v potaz, že tedy nelze přenásobovat (operace musí proběhnout na pozadí při neaktivním listu). Nad výběrem oblasti není moc co dumat:
Dim rngOblast As Range
With Worksheets("ListM")
Set rngOblast = .Range(.Range("H2"), .Range("H2").End(xlDown))
End With
Ale pak je to horší a na to bych rád viděl skutečný sešit.
Dim rngOblast As Range
With Worksheets("ListM")
Set rngOblast = .Range(.Range("H2"), .Range("H2").End(xlDown))
End With
Ale pak je to horší a na to bych rád viděl skutečný sešit.
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