Вычитайте 2 ячейки из каждого и поместите значение в другую ячейку, которая не редактируется.

Question

У меня есть рабочий лист, который можно ввести клиентом. Например,

значение столбца с должны поступать из колонны B - Колонка A. Всякий раз, когда пользователь вводит значение в обоих столбцах А и В, она должна автоматически отражает столбец C.

Am с использованием VBA код.

Спасибо.

Answer 1

Предположительно, вы спрашиваете, как снять защиту, а затем вновь защитить рабочий лист, когда пользователь делает записи в колонке A и B. Вы можете сделать это, предполагая, что пользователь вводит значения на «Лист1»:

Option Explicit 

Private Sub Worksheet_Change(ByVal target As Range) 

    If Not Intersect(target, Me.Range("A:B")) Is Nothing Then  
     Application.EnableEvents = False 
     UnprotectSheet1 

     Dim row As Integer 
     row = target.row 

     Cells(row, 3) = Cells(row, 2) - Cells(row, 1) 

     ProtectSheet1 
     Application.EnableEvents = True 
    End If 

End Sub 


Public Sub UnprotectSheet1() 
    Worksheets("Sheet1").Unprotect Password:="password" 
End Sub 


Public Sub ProtectSheet1() 
    With ThisWorkbook.Worksheets("Sheet1") 
    .Protect Password:="password" 
    .EnableSelection = xlUnlockedCells 
    End With 
End Sub 

Этот код должен заходить в раздел кода «Sheet1»