Как изменить формат Excel по умолчанию, который применяется ко всем новым книгам Excels

Question

В основном есть две настройки, которые я хочу изменить по умолчанию в поведении Excel.

1. Изменение ширины столбца по умолчанию

В Excel в настоящее время ширина столбца по умолчанию установлена на «8,43» для каждого нового экземпляра Excel.

Мне нужно изменить этот параметр, и я хочу изменить его один раз, после чего он должен применяться ко всем новым Excels.

2. Чтобы прекратить Excel, чтобы преобразовать большие числа в число экспоненты

Если возможно установить общее правило в Excel, которое предлагает всем экземплярам Excel не преобразовывать большие числа в значения экспоненты.

обновление - здесь я хотел бы, чтобы Excel принял данные, введенные пользователем (а не их формат)

---

Для первого требования я создал шаблон Book.xltx где я установил default Width по умолчанию на 20 и сохранил этот шаблон в

C:\Users\\AppData\Roaming\Microsoft\Excel\ Xlstart

дорожка. Но это, похоже, не помогает.

---

ОБНОВИТЬ

Я нашел решение для первого вопроса здесь

Мне удалось решить эту проблему, отключив стартовый экран в Excel.

У меня была точно такая же проблема. Вы все предыдущие авторы не выяснили, работал ли ваш файл Sheet.xltx - мой работал нормально. Я бы открыл новую рабочую книгу, и это было бы немым по умолчанию, но если бы я добавил лист, это был бы мой прекрасный лист по умолчанию.

Проблема была в том же, выбрал ли я "пустую книгу" на начальном экране или просто нажал Ctrl-N в любое время.

Однако, зайдя в Файл-> Параметры

Затем Общие-> Параметры запуска-> снимите флажок "Показать стартовый экран при запуске этого приложения"

И теперь он использует мой прекрасный шаблон.

Но это не работает, когда я открываю файлы CSV в Excel, как включить его и для CSV.

Answer 1

Чтобы изменить ширину столбца по умолчанию и остановить Excel для преобразования больших чисел в экспоненциальное число в РАБОЧЕЙ КНИГЕ, я хотел бы предложить этот код VBA (Macro).

Private Sub Workbook_Open()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
    With ws

        .Cells.ColumnWidth = 20
        .Cells.NumberFormat = "0"
    End With
Next ws

End Sub

Как это устроено:

• Нажмите ALT+F11, чтобы открыть окно редактора VB.
• Вверху слева найдите Project Explorer, щелкните ThisWorkbook.
• Скопируйте и вставьте этот код.
• Чтобы увидеть эффекты, Close and Open Workbook .

NB

• Каждый раз, когда вы вставляете новый лист, просто Close & Open Workbook чтобы получить эффект.

Отредактировано:

Вы можете использовать этот код в Columns/Range по вашему выбору для определенных форматов.

Sub formatColumns()

     Columns(1).NumberFormat = "@"
     Columns(2).NumberFormat = "General"
     Columns(3).NumberFormat = "0"
     Columns(4).NumberFormat = "dd/mm/yyyy"
     Columns(5).ColumnWidth = 35
     Columns(6).RowHeight = 20

   End Sub

Or

Sheet1.Range("A2:E500").NumberFormat ="DD/MM/YYYY"



Sheet1.Range("A:E").NumberFormat = "dd/MM/yyyy"