Как сделать вычисление в ячейке Excel после выхода из ячейки

Я работаю над Excel-2010 и Excel-2013. Я хочу сделать что-то вроде ниже:

Независимо от числа, которое я вводил в ячейку, это число должно быть разделено на 60, и результат должен быть напечатан в той же ячейке при нажатии TAB. Если я вернусь в эту ячейку, должен появиться введенный номер, а не результат вычисления.

Я мало знаю о программировании в Excel. Я не могу открыть большинство сайтов из-за политики безопасности компании.

Может кто-нибудь, пожалуйста, помогите мне в этом!

Используйте этот код. Вы должны вставить этот код в свой Worksheet module , а не в Regular module . Затем отрегулируйте Range("A1:A100") до диапазона, в котором номера должны быть разделены.

 Private Sub Worksheet_Change(ByVal Target As Range) Dim DivRg As Range Set DivRg = Range("A1:A100") Set DivRg = Application.Intersect(Target, DivRg) If DivRg Is Nothing Or Target.Cells.Count > 1 Then Exit Sub Application.EnableEvents = False Target = Target / 60 Target.Offset(0, 5).Value = 1 Application.EnableEvents = True Set DivRg = Nothing End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim DivRg As Range Set DivRg = Range("A1:A100") Set DivRg = Application.Intersect(Target, DivRg) If DivRg Is Nothing Or Target.Cells.Count > 1 Then Exit Sub Application.EnableEvents = False If Target.Offset(0, 5).Value = 1 Then Target = Target * 60 Target.Offset(0, 5).Value = 0 End If Application.EnableEvents = True Set DivRg = Nothing End Sub 

Для выполнения вашей задачи вам понадобится один вспомогательный столбец (я выбрал столбец F ), но вы можете выбрать любой столбец и изменить эту часть кода, чтобы обратиться к столбцу Target.Offset(0, 5).Value . Например, если вы хотите, чтобы вспомогательный столбец был столбцом E , используйте этот код Target.Offset(0, 4).Value . Убедитесь, что вы заменили этот код во всех трех частях субтитров.

  • Является ли эта дата в течение 1 года с сегодняшнего дня?
  • Попытка поиска по горизонтали
  • Требуется функция Excel IF
  • Recordset.Open strSql throws Ошибка автоматизации при длине запроса более 1024 символов
  • Excel: Конвертация единиц (MB, GB, KB и т. Д.)
  • Поиск диапазона строк в диапазоне ячеек
  • Как импортировать электронную таблицу Excel в блог ..?
  • Изменение ссылочной ячейки при изменении ячейки со ссылкой
  • excel исключает определенное значение из среднего режима
  • Подставляя вычисленный диапазон в поиск
  • Excel: проверьте, содержит ли ячейка номер в текстовой строке
  • Interesting Posts

    Проверка данных: не разрешать записи типа «123%»,

    Matlab xlswrite случайным образом отбрасывает ячейки при записи в excel из массива ячеек

    «#This Row» дает ошибку во время выполнения при выборе другой ячейки в текущей строке таблицы Excel с помощью VBA-BUG?

    Автоматическое изменение размера строки после вставки в Excel

    Я пытаюсь написать простое уравнение Excel, которое будет повторять ячейку 60 раз, прежде чем переключиться на ячейку в следующем столбце и повторить

    Выполнение общей меры

    Скрипт для импорта постоянно изменяющегося файла CSV Excel в SQL Server Express 2008

    Пытается пройти через несколько ячеек в VBA

    Excel 2010 Найти (точки) – место (запятые)

    excel: изменить даты форматирования в расширенном фильтре

    Условие IF В расширенном редакторе Power Query

    Workbook_Open () sheet.activate error в защищенном представлении при разрешении редактирования

    Экспорт данных в CSV-файл

    Защита ячеек Python xlsx (блокировка)

    Как добавить примечания к кубу SSAS с помощью WRITEBACK?

    Давайте будем гением компьютера.