MS Excel

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

Zaslat odpověď >

Strana: « předchozí 1 2 3

marjankaj(31.8.2016 19:00)#032549

Na vyskúšanie
Selection.Value = "1.76"
Selection.Offset(1, 0).Value = "1,76"citovat

GeorgeK(1.9.2016 14:59)#032562

Koukám, že jste se nenudili... :-)
Za mně dobrý (tento kód)
Sub MakroPrenasobeni()
Dim rngOblast As Range
With Worksheets("ListM")
Set rngOblast = .Range(.Range("H2"), _
.Range("H2").End(xlDown))
End With
rngOblast.Value = rngOblast.Value
End Sub
já mám v buňce číslo (nedesetinné) takže toto u mně funguje.
Díkcitovat

eLCHa(1.9.2016 15:53)#032565

Tak jsem otestaval toto With Selection
.TextToColumns Destination:=.Cells, DecimalSeparator:=Application.International(xlDecimalSeparator), ThousandsSeparator:=Application.International(xlThousandsSeparator)
End With 'Selectionna všech typech hodnot, na které jsem si vzpomněl

Funguje to perfektně, teda skoro ;))
1,6 zadanou jako text převede na číslo 1,6 - hurá
1,6 zadanou jako číslo převede na text 1.6 - brr

jinak datum, chyba, logická i text v pohodě
asi to bez cyklu nepude, takže bych udělal cyklus nadSelection.SpecialCells(xlCellTypeConstants, xlTextValues)citovat

marjankaj(1.9.2016 16:56)#032570

No neskúšal som všetky možnosti. AAA prevedie aj číslo 1,6 na 1,6

A ďakujem za sľúbenú prílohu od GeorgeK.

Aspoň sme sa pocvičili na prílohe od xlnc.

Příloha: zip

32570_aaa.zip (14kB, staženo 22x)

citovat

eLCHa(1.9.2016 18:22)#032572

@marjankaj
zkusil jsem to doma na 2007Selection.Replace What:=",", Replacement:="."
text 1,6 převedlo na číslo 1,6
ale
text a,b,c,d převedlo na a.b.c.d
text 3 546,2 převedlo na 3 546.2citovat

eLCHa(1.9.2016 19:17)#032575

Pokud chci mít 100% jistotu, že se mi převedou pouze hodnoty, které chci, tak se asi cyklu nevyhnu - a asi je vhodné využít ErrorsSub subTextToValues()
Dim bSett As Boolean
bSett = Application.ErrorCheckingOptions.NumberAsText
Application.ErrorCheckingOptions.NumberAsText = True

Dim rErrors As Range
Dim rCell As Range
For Each rCell In Selection.Cells
If rCell.Errors.Item(xlNumberAsText).Value Then
If rErrors Is Nothing Then
Set rErrors = rCell
Else
Set rErrors = Union(rErrors, rCell)
End If
End If
Next rCell
Set rCell = Nothing

If Not rErrors Is Nothing Then
rErrors.FormulaLocal = rErrors.FormulaLocal
Set rErrors = Nothing
End If

Application.ErrorCheckingOptions.NumberAsText = bSett
End Subcitovat

GeorgeK(2.9.2016 8:50)#032584

marjankaj
A ďakujem za sľúbenú prílohu od GeorgeK. 4 Aspoň sme
sa pocvičili na prílohe od xlnc.
Na mé tabulce byste se nepocvičili, jak jsem psal - pouze čísla 0-9, žádné desetiny, žaden text...
Díky za rozvinutí a vyřešení problému :-)citovat

Strana: « předchozí 1 2 3

Téma: Range -Select

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje