Excelセルでの計算方法セルから出たときの計算

Question

Excel-2010とExcel-2013で動作します。私は以下のようなことをしたい：

私がセルに入力する数字が何であれ、その数は60で割り切れなければならず、結果はTABを押すと同じセルに印刷されるべきです。このセルに戻ると、計算結果ではなく、入力された数値が表示されます。

Excelでのプログラミングについてよくわかりません。私は会社のセキュリティポリシーのためにサイトのほとんどを開くことができません。

誰でもこの手伝いをすることができますか？

Answer 1

このコードを使用してください。 Regular moduleではなく、Worksheet 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 

あなたのタスクを達成するために、あなたは1つのヘルパーの列が必要になります（私は列Fを選んだ）いますが、任意の列を選択し、その列Target.Offset(0, 5).Valueに対処するためのコードのこの部分を変更することができます。たとえば、ヘルパー列を列Eにする場合は、このコードTarget.Offset(0, 4).Valueを使用します。サブコードの3つの部分すべてでこのコードを置き換えてください。