CODEWITHSUNDEEP
excelvba
Code Hungry
Code Hungry

Reputation: 4000

How to change Format of a Cell to Text using VBA

I have a "duration" column in an Excel sheet. Its cell format always changes — I want convert the duration from minutes to seconds, but because of the cell formatting it always gives me different answers.

I was thinking that before doing the conversion I could convert that cell format to text so that it will consider that as text value and not try to auto-format it.

Currently I am copying all data into Notepad and then saving it back to the Excel sheet to remove all of the previous format. Is there a way to automate setting a cell's formatting to text using VBA?

Upvotes: 76

Views: 569764

Answers (5)

Defgha
Defgha

Reputation: 11

To prevent Scientific Notation

With Range(A:A)
    .NumberFormat = "@"
    .Value = .Formula
End With

Upvotes: 1

Justin Self
Justin Self

Reputation: 6265

To answer your direct question, it is:

Range("A1").NumberFormat = "@"

Or

Cells(1,1).NumberFormat = "@"

However, I suggest changing the format to what you actually want displayed. This allows you to retain the data type in the cell and easily use cell formulas to manipulate the data.

Upvotes: 133

Dan McSweeney
Dan McSweeney

Reputation: 141

One point: you have to set NumberFormat property BEFORE loading the value into the cell. I had a nine digit number that still displayed as 9.14E+08 when the NumberFormat was set after the cell was loaded. Setting the property before loading the value made the number appear as I wanted, as straight text.

OR:

Could you try an autofit first:

Excel_Obj.Columns("A:V").EntireColumn.AutoFit

Upvotes: 14

Mark Freeman
Mark Freeman

Reputation: 21

for large numbers that display with scientific notation set format to just '#'

Upvotes: 1

Jon
Jon

Reputation: 433

Well this should change your format to text.

Worksheets("Sheetname").Activate
Worksheets("SheetName").Columns(1).Select 'or Worksheets("SheetName").Range("A:A").Select
Selection.NumberFormat = "@"

Upvotes: 8

Related Questions