Skip to content

Instantly share code, notes, and snippets.

@ndthanh

ndthanh/DisplayedToActual.bas

Created July 22, 2017 13:51
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save ndthanh/ed85a4f8a40147b09be04f1059ec29e5 to your computer and use it in GitHub Desktop.
Save ndthanh/ed85a4f8a40147b09be04f1059ec29e5 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
DisplayedToActual.bas
Sub DisplayedToActual()
'Updateby20131126
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "Hoc Excel Online"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
For Each Rng In WorkRng
Rng.Value = Rng.Text
Next
Application.ScreenUpdating = True
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment