Co tam je teď, když ne číslo?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: 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
(31.8.2016 15:04)#032522
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)citovat
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)citovat
(31.8.2016 15:11)#032524
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 Subcitovat
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 Subcitovat
Nepotřebujete kód - dejte převést text na číslo (zelený čtvereček
Já používám v immediateSelection.Value = Selection.Valuecitovat
Já používám v immediateSelection.Value = Selection.Valuecitovat
(31.8.2016 15:13)#032526
Jinak (od boku) před Selectem oblasti nejspíš pouze chybí aktivace listu...citovat
Jinak (od boku) před Selectem oblasti nejspíš pouze chybí aktivace listu...
...ActiveWorkbook.Sheets - tohle nestačí?citovat
...ActiveWorkbook.Sheets - tohle nestačí?citovat
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.citovat
(31.8.2016 15:24)#032530
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...citovat
(31.8.2016 15:26)#032531
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.citovat
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.citovat
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
On-line nástroje
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Aktivní diskuse
Uspořádání dat do tabulky
elninoslov • 15.4. 14:19
QR kód
parkovec • 15.4. 13:53
Uspořádání dat do tabulky
lubo • 15.4. 12:10
Uspořádání dat do tabulky
Marw • 14.4. 19:41
Uspořádání dat do tabulky
elninoslov • 14.4. 10:08
Uspořádání dat do tabulky
Marw • 14.4. 9:30
hláška
elninoslov • 13.4. 8:45
RSS nejnovější články