ник: никк
Уточнение.
В функции необходимо передавать параметры для определения какое поле нужно изменить и какие поля в этом учавствуют. Попробовал изменить ваш пример, появилась ошибка.
Изменения:
Public Function funCalc(i,j m As Integer)
Me.Controls("lh" & i) = (Me.Controls("lh" & i &"1") + Me.Controls("lh" & i & "2") + m) / 2
End Function
Private Sub Form_Load()
Dim i, j As Integer
For j = 1 To 3
For i = 1 To 2
Me.Controls("lh" & j & i).OnLostFocus = "=funCalc(j,i)"
Next i
Next j
End Sub