F2 enter для всех ячеек excel

Сообщение от smeckoi77

Как вариант:

Сообщение от Vlad999

замене «=» на «=» должно помочь

Сообщение от bedvit

Выделить нужное, запустить…

Код

Sub SelectionCalculate()
Set ss = Selection
For Each cl In Selection.Cells
cl.Select
SendKeys "{F2} {enter}"
Next cl
ss.Select
End Sub

mo8

Пользователь

Сообщений: 32
Регистрация: 17.04.2017

Здравствуйте!
Столкнулся с аналогичной проблемой, только с датами (гримасы 1С, я полагаю)
Существует решение в виде макроса?
Пробовал макросом нажимать F2-Enter — глючит
Пробовал делать макросом разбивку по столбцам — выдаёт ошибку.
Пробовал (выставлять общий формат и) прибавлять ноль — выдаёт ошибку.
Всячески пробовал (как предложено выше) менять один символ на другой, в моём случае — точку на точку,
а когда не помогло — точку на процент, а потом обратно — не работает.
Замена помогает только если делать её руками, макросом (replace) — нет.
Выполняю замену — срабатывает, записываю тот же самый код, выполняю — нет.
Что ещё можно сделать?
Спасибо!

Изменено: mo8 — 01.06.2021 16:12:30

У меня есть рабочий лист Excel 2010, в котором есть макросы для копирования данных с других листов в определенный формат на другом листе.

Данные копируются, но у меня проблема с форматированием диапазонов ячеек, содержащих значения даты или времени.

Данные берутся из выдержки из базы данных, и все они представлены в текстовом формате. На моем листе, когда я копирую дату (через VBA), я применяю формат "yyyy-mm-dd" для дат и "hh:mm.ss.ss" для времени.

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

AssDateLastRow = shAss.Range("C" & Rows.Count).End(xlUp).Row

shAss.Range("C4:C" & AssDateLastRow).NumberFormat = "yyyy-mm-dd"

Не все ячейки в диапазоне имеют правильный формат, они будут отображаться как 15/04/2014, а не как 2014-04-15. Если я вручную выберу ячейку и нажму F2, а затем ENTER, формат появится так, как мне нужно. Это происходит случайным образом в диапазоне, и могут быть тысячи строк, поэтому нецелесообразно просматривать рабочий лист вручную, нажимая F2+ENTER для каждой из них.

Я посмотрел в Интернете и нашел, что должно автоматически выполнять F2+ENTER с VBA.

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

Dim shAss As Worksheet
Dim AssDateLastRow As Long
Dim c As Range

'enter method to format 'Date Craftperson Assigned' and 'Time Craftperson Assigned' in   Assignments sheet
'column "C" and "D", to formats required by Archibus: date "yyyy-mm-dd", time  "hh:mm.ss.ss"
AssDateLastRow = shAss.Range("C" & Rows.Count).End(xlUp).Row
shAss.Range("C4:C" & AssDateLastRow).NumberFormat = "yyyy-mm-dd"
'ensure format is applied by forcing F2 edit of cell
For Each c In shAss.Range("C4:C" & AssDateLastRow).Cells
    c.Select
    SendKeys "{F2}", True
    SendKeys "{ENTER}", True
'Selection.NumberFormat = "yyyy-mm-dd"
Next

Когда я запускаю код, данные копируются в мои рабочие листы, но даты и время все еще находятся в смешанном формате.

Попытка принудительно нажать F2+ENTER через VBA, похоже, ничего не дала. Если вручную, то нормально.

Ниже приведен пример данных, скопированных из результатов на листе.

Work Request Code       Date Assigned       Time  Assigned
92926                   19/05/2014          14:30.00.00
92927                   19/05/2014          15:00.00.00
92928                   2014-05-19          15:15.00.00
92934                   2014-05-19          14:00.00.00
92527                   12/05/2014          07:30
92528                   12/05/2014          08:00
92804                   2014-05-12          16:15
92805                   2014-05-12          16:20.00.00

Я использую этот простой макрос, чтобы применить F2 + Enter к текущему выбранному диапазону:

Sub ApplyF2()
    Selection.Value = Selection.FormulaR1C1
End Sub

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

Первый заключается в использовании функции Текст в столбцы, даже если в столбце нет ничего для разделения. Второй вариант — скопировать значение 1 и вставить его в ячейки с помощью параметра Специальная вставка — Умножение.

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

    Sub Format_Text_to_Columns()

    Dim AssDateLastRow As Long

    AssDateLastRow = ActiveSheet.Range("C" & Rows.Count).End(xlUp).Row
    ActiveSheet.Range("C4:C" & AssDateLastRow).NumberFormat = "yyyy-mm-dd;@"
    'Set the format

        Range("C4:C" & AssDateLastRow).Select
        Selection.TextToColumns DataType:=xlDelimited, ConsecutiveDelimiter:=True, _
         Space:=True, FieldInfo:=Array(1, 5)
    'Use text to columns to force a format update

    End Sub



    Sub Format_Paste_Special_Multiply()

    Dim AssDateLastRow As Long

    AssDateLastRow = ActiveSheet.Range("C" & Rows.Count).End(xlUp).Row
    ActiveSheet.Range("C4:C" & AssDateLastRow).NumberFormat = "yyyy-mm-dd;@"
    'Set the format

        Range("C1").FormulaR1C1 = "1"
        Range("C1").Copy
        Range("C4:C" & AssDateLastRow).Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlMultiply
        Application.CutCopyMode = False
        Range("C1").ClearContents
    'Multiply the dates by 1 to force a format update

    End Sub

Я тоже изо всех сил пытался заставить это работать. Моя проблема заключалась не только в датах, но и в данных с одинарной кавычкой перед ней. То, что я взломал вместе, отлично работает для меня. Он очень быстро очищает более 70 000 ячеек. Надеюсь, это сработает для вас:

(вы измените диапазон и тому подобное в соответствии с вашими потребностями)

    Dim MyRange As Range

    Set MyRange = Range(Cells(2, 7), [G1].End(xlDown))

    For Each MyRange In MyRange.Cells
    'Mimic F2 without SendKeys
        MyRange.Value = MyRange.Value
    Next

Это сработало для меня.

Dim r As Range
Dim n As Integer
Dim AssDateLastRow As Long

AssDateLastRow = ActiveSheet.Range("E" & Rows.Count).End(xlUp).Row

Set r = Range("E2:E" & AssDateLastRow)
r.Select
r.NumberFormat = "ddmmyyyy;@"
r.Select
For n = 1 To r.Rows.Count
    SendKeys "{F2}", True
    SendKeys "{ENTER}", True
Next n

Sub RefreshCells()

Dim r As Range, rr As Range
Set rr = Selection
For Each r In rr
r.Select
Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
   Application.CutCopyMode = False

    Application.SendKeys "{F2}"
    Application.SendKeys "{ENTER}"
    Application.SendKeys "+{ENTER}"
    DoEvents
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
   Application.CutCopyMode = False

    Application.SendKeys "{ENTER}"

    DoEvents

Next



End Sub

Для решения этой проблемы можно использовать Текст в столбцы.

1) Выделите столбец данных

2) Перейдите к Данные -> Текст в столбцы -> С разделителями -> (отменить выбор всего) -> Далее

3) На странице 3 мастера установите Формат данных столбца YMD.

4) ОК

Кажется странным, что вам нужно будет отправить клавиши F2 + Enter. Какое форматирование перед запуском макроса? Попробуйте отформатировать таким образом весь столбец (это не повлияет на текст).

Columns("C:C").NumberFormat = "yyyy-mm-dd"

Моя вариация

n = Selection.Rows.count
Dim r1 As range, rv As range
Set r1 = Selection.Cells(1, 1)
For I = 1 To n
Set rv = r1.offset(I - 1, 0)
vali = rv.value
 IsNumeric(vali) Then
 vali = CDbl(vali)
 rv.value = 0
 rv.value = vali
 End If

Попробуйте нажать F9 или Файл-Опции-формулы-расчет книги-автоматический

Я просто установил ячейку справа от верхней записи, равную формуле, которая умножает проблемную ячейку на 1. Эта новая ячейка была правильным числом, поэтому двойной щелчок по ручке расширил ее вниз на весь столбец, исправив их все!

Sendkeys не стабильны. Лучше всего сохранить текст в буфер обмена и вставить его.

См. здесь о том, как хранить значения в буфере обмена

Sub CopyText(Text As String)
Dim MSForms_DataObject As Object
Set MSForms_DataObject = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
MSForms_DataObject.SetText Text
MSForms_DataObject.PutInClipboard
Set MSForms_DataObject = Nothing
End Sub

Sub Test()
CopyText (ActiveCell.Value)
ActiveCell.PasteSpecial
End Sub
'In place of active cell, you may pass a range

Это работает для меня

Sub f2Cells(sel as Range)
    Dim rng as Range

    On Error GoTo exitHere

    With Application
        .ScreenUpdating = False
        .Calculation = xlCalculationManual
    End With

    For Each rng In sel.Cells
        If Not Intersect(sel, Application.Range(rng.Address)) Is Nothing And _
            Application.Range(rng.Address).EntireColumn.Hidden = False And _
            Application.Range(rng.Address).EntireRow.Hidden = False Then
                Application.Range(rng.Address).Application.SendKeys "({F2}{ENTER})", True
        End If
    Next rng

exitHere:
    With Application
        .ScreenUpdating = True
        .Calculation = xlCalculationAutomatic
    End With
    Application.SendKeys "{NUMLOCK}", True
End Sub

Затем из вашей функции вы можете просто позвонить

f2Cells shAss.Range("C4:C" & AssDateLastRow)

Я понял, просто
Выберите все ячейки, которые вы хотите нажать F2 и Enter, и запустите этот короткий макрос:

Подпрограмма AutoF2Enter()
Выбор.Значение = Выбор.Значение
Конец сабвуфера

Работает по дате и числам!
50 000 ячеек в секунду!