Uzamčeno - nelze přidávat nové příspěvky.
Záleží jestli to datum s časem tam je ve formátu textu, nebo data a času.
Pokud je to ve formátu data a času, tak pokud jde jen o vizualizaci, tak stačí změnit formát pouze na datum.
Pokud nejde jen o vizualizaci a je třeba s tím dál pracovat, ale přesto je to ve formátu data a času, tak lze čas vynulovat a pak případně upravit formát buňky.
For Each cell In Selection
If IsDate(cell) = True Then
cell.Value = Int(cell.Value)
End If
Next
no a pokud je to ve formátu textu, tak lze odstranit vše za mezerou.
For Each cell In Selection
If InStr(1, cell.Value, " ", vbTextCompare) <> 0 Then
cell.Value = Left(cell.Value, InStr(1, cell.Value, " ", vbTextCompare) - 1)
End If
Next
M@citovat
Pokud je to ve formátu data a času, tak pokud jde jen o vizualizaci, tak stačí změnit formát pouze na datum.
Pokud nejde jen o vizualizaci a je třeba s tím dál pracovat, ale přesto je to ve formátu data a času, tak lze čas vynulovat a pak případně upravit formát buňky.
For Each cell In Selection
If IsDate(cell) = True Then
cell.Value = Int(cell.Value)
End If
Next
no a pokud je to ve formátu textu, tak lze odstranit vše za mezerou.
For Each cell In Selection
If InStr(1, cell.Value, " ", vbTextCompare) <> 0 Then
cell.Value = Left(cell.Value, InStr(1, cell.Value, " ", vbTextCompare) - 1)
End If
Next
M@citovat
RSS nejnovější články