それぞれから2つのセルを引いて、編集不可能な別のセルに値を置きます。

Question

お客様が入力できるワークシートが1つあります。例えば、

列cの値は、列Bから来るべきである - 列Aをユーザが両方のAとB列の値を入力するたびに、自動的にVBAコードを使用してカラム

アムC.

を反映すべきです。

ありがとうございました。

Answer 1

おそらくあなたは、ユーザーが「シート1」に値を入力されると仮定すると、ユーザーが列AとBにエントリを作成するときは、これを行うことができます保護を解除してから再守るワークシートにする方法を求めている：

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"のコードセクションに入れなければなりません