Nick: Oh'Parisina! Oggetto: non me ne parla' Data: 12/1/2008 16.42.44 Visite: 37
io sono alle prese con... Sub equazione() Dim A As Currency Dim B As Currency A = InputBox(" coefficiente A ") B = InputBox(" Coefficiente B ") If A = 0 Then MsgBox " equazone impossobile" Else X = -B / A Cells(1, 2) = X End If End Sub
  "..Grazie Mario!" |