I navigate to the macro function in the menu bar and activate the basic editor. Below is an extract:
Code: Select all
Rem Attribute VBA_ModuleType=VBADocumentModule
Option VBASupport 1
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Range("dTad").GoalSeek Goal:=0, ChangingCell:=Range("Tad")
If Range("XC").Value = 0 Then
If Range("iCO").Value > 0 Then Range("iCO").Value = 0 Else
If Range("iCxHy").Value > 0 Then Range("iCxHy").Value = 0 Else
If Range("iHCN").Value > 0 Then Range("iHCN").Value = 0 Else
If Range("iTar").Value > 0 Then Range("iTar").Value = 0 Else
'
If Range("ecCOin").Value > 0 Then Range("ecCOin").Value = 0 Else
If Range("ecCxHyin").Value > 0 Then Range("ecCxHyin").Value = 0 Else
If Range("ecHCNin").Value > 0 Then Range("ecHCNin").Value = 0 Else
If Range("ecTarin").Value > 0 Then Range("ecTarin").Value = 0 Else
If Range("XH").Value = 0 Then
If Range("iCxHy").Value > 0 Then Range("iCxHy").Value = 0 Else
If Range("iNH3").Value > 0 Then Range("iNH3").Value = 0 Else
If Range("iHCN").Value > 0 Then Range("iHCN").Value = 0 Else
If Range("iTar").Value > 0 Then Range("iTar").Value = 0 Else
If Range("iH2inp").Value > 0 Then Range("iH2inp").Value = 0 Else
'
If Range("ecCxHyin").Value > 0 Then Range("ecCxHyin").Value = 0 Else
If Range("ecNH3in").Value > 0 Then Range("ecNH3in").Value = 0 Else
If Range("ecHCNin").Value > 0 Then Range("ecHCNin").Value = 0 Else
If Range("ecTarin").Value > 0 Then Range("ecTarin").Value = 0 Else
If Range("ecH2in").Value > 0 Then Range("ecH2in").Value = 0 Else
End If
If Range("Fuel_type").Value = 2 Then
Range("XH2OW").Value = 0
Range("Xash").Value = 0
End If
mFW = Range("mFW").Value
If mFW < 9999 Then
ActiveSheet.Protect DrawingObjects:=False, Contents:=False, Scenarios:=False
Range( _
"E63,D71:D75,E71:E74,D54:D58,C49:D49,D44:D48,C44,C40:D40,C12:D12,I69:J69,H102:I105,H120:I120,H123:J126,H141:J141" _
).NumberFormat = "0.000"
Range("J102:J105,J120").NumberFormat = "0"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ElseIf mFW < 99999 Then
ActiveSheet.Protect DrawingObjects:=False, Contents:=False, Scenarios:=False
Range( _
"E63,D71:D75,E71:E74,D54:D58,C49:D49,D44:D48,C44,C40:D40,C12:D12,I69:J69,H102:I105,H120:I120,H123:J126,H141:J141" _
).NumberFormat = "0.00"
Range("J102:J105,J120").NumberFormat = "0.000E+00"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ElseIf mFW < 999999 Then
ActiveSheet.Protect DrawingObjects:=False, Contents:=False, Scenarios:=False
Range( _
"E63,D71:D75,E71:E74,D54:D58,C49:D49,D44:D48,C44,C40:D40,C12:D12,I69:J69,H102:I105,H120:I120,H123:J126,H141:J141" _
).NumberFormat = "0.0"
Range("J102:J105,J120").NumberFormat = "0.000E+00"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Else
ActiveSheet.Protect DrawingObjects:=False, Contents:=False, Scenarios:=False
Range( _
"E63,D71:D75,E71:E74,D54:D58,C49:D49,D44:D48,C44,C40:D40,C12:D12,I69:J69,H102:I105,H120:I120,H123:J126,H141:J141" _
).NumberFormat = "0"
Range("J102:J105,J120").NumberFormat = "0.000E+00"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
I want to replicate a scalc version.