Как изменить формат ячейки на текст, используя VBA

Question

Как изменить формат ячейки на текст, используя VBA

37

У меня есть столбец "продолжительность" в листе Excel. Его формат ячейки всегда изменяется — Я хочу преобразовать длительность от минут до нескольких секунд, но из-за форматирования ячейки она всегда дает мне разные ответы.

Я думал, что перед выполнением преобразования я мог бы преобразовать этот формат ячейки в текст, чтобы он учитывал это как текстовое значение, а не пытался автоотформатировать его.

В настоящее время я копирую все данные в Блокнот, а затем сохраняю их обратно на лист Excel, чтобы удалить весь предыдущий формат. Есть ли способ автоматизировать установку форматирования ячейки в текст с помощью VBA?

Code Hungry 25 нояб. 2011, в 05:41

Источник

4

"Чей формат ячейки всегда меняется" ?? Пожалуйста, покажите нам пример.
Jean-François Corbett 25 нояб. 2011, в 07:31

Теги:

vba

excel-vba

3 ответа

8

Ну, это должно изменить формат на текст.

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

Jon 25 нояб. 2011, в 20:50

21

Нет необходимости активировать или выбирать перед изменением NumberFormat - просто используйте что-то вроде Sheets (1) .Columns (1) .NumberFormat = "@"
aevanko 26 нояб. 2011, в 04:24

2

Один момент: вы должны установить свойство NumberFormat ПЕРЕД загрузкой значения в ячейку. У меня было девятизначное число, которое все еще отображалось как 9.14E + 08, когда NumberFormat был установлен после загрузки ячейки. Устанавливая свойство перед загрузкой значения, количество отображалось так, как я хотел, как прямой текст

ИЛИ

Не могли бы вы сначала попробовать автозапуск.
Excel_Obj.Columns( "А: В" ). EntireColumn.AutoFit

Dan McSweeney 22 апр. 2015, в 20:45

0

Вы действительно помогли мне с этим советом о наборе NumberFormat, прежде чем устанавливать значение! Txs!
Zini 14 апр. 2018, в 13:45

Ещё вопросы

"Чей формат ячейки всегда меняется" ?? Пожалуйста, покажите нам пример.
Нет необходимости активировать или выбирать перед изменением NumberFormat - просто используйте что-то вроде Sheets (1) .Columns (1) .NumberFormat = "@"
Вы действительно помогли мне с этим советом о наборе NumberFormat, прежде чем устанавливать значение! Txs!

Justin Self · Accepted Answer · 2011-11-25T20-08-00.000Z

Чтобы ответить на ваш прямой вопрос, это:

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

или

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

Однако я предлагаю изменить формат на то, что вы действительно хотите отобразить. Это позволяет сохранить тип данных в ячейке и легко использовать формулы ячеек для управления данными.