Raja Ganapathy Ответов: 1

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

Я хочу установить только 15 символов, разрешенных в ячейке excel.я использую проверку данных (вкладка данных) в excel, чтобы дать диапазон excel cell.it если я копирую более 15 символов и вставляю их в ячейку, то проверка не работает, как установить проверку в ячейке excel.как написать макрос для excel.

Что я уже пробовал:

я использую вкладку data для проверки, но не работаю

Richard MacCutchan

Пожалуйста, покажите нам код вашего макроса и объясните, что не работает.

1 Ответов

Рейтинг:
2

Pat O'Brien

Попробовать это....

Создайте именованный диапазон, включающий все ячейки, которые вы хотите ограничить 15 символами. Для приведенного ниже примера кода я использовал именованный диапазон: "Limit15"

Затем в окне объектного кода" ThisWorkbook "используйте событие" Workbook_SheetChange", чтобы проверить длину введенных данных...


Option Explicit

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

    Dim rngLimit As Range
    Set rngLimit = Range("Limit15")
    
    Dim rng As Range
    
    For Each rng In Target  ' there may be more than one cell being changed
        'check if cell changed is part of the named range
        If Not Intersect(rng, rngLimit) Is Nothing Then
        
            'check if the length of the entry is greater than 15
            If Len(rng) > 15 Then
                'give a warning message
                MsgBox "Can't be more than 15 characters...", vbCritical, "Text too long!"
                
                'truncate the text to be 15 characters
                rng = Left(rng, 15)
            End If
        End If
    Next
End Sub