Help with interface/msgbox in vba
Solved/Closed
jld902
-
Feb 8, 2010 at 02:55 PM
venkat1926
venkat1926
- Posts
- 1864
- Registration date
- Sunday June 14, 2009
- Status
- Contributor
- Last seen
- August 7, 2021
Related:
- Excel vba msgbox when cell meets criteria
- Help with Interface/Msgbox in VBA - How-To - Excel
- Excel VBA Msg Box when cell meets criteria ✓ - Forum - Excel
- Excel : Different Criteria for excel to look ✓ - Forum - Excel
- VBA to color cells baised on cell above - Forum - Programming
- Copying cells if criteria is met - Forum - Excel
2 replies
venkat1926
Feb 8, 2010 at 08:56 PM
- Posts
- 1864
- Registration date
- Sunday June 14, 2009
- Status
- Contributor
- Last seen
- August 7, 2021
Feb 8, 2010 at 08:56 PM
why do you want sub procedure and the message box
see the sheet parked in the web page
https://authentification.site/files/20836703/jid902.xls
see the formula in B9 and the value is 0.006423 as you visalized.
post comments/feedback
It is possible to name the cell B1 as g,B2 as Pp,B3 as Pl,B4 as u and B5 as d and the
formula in B9 reformed.
see the sheet parked in the web page
https://authentification.site/files/20836703/jid902.xls
see the formula in B9 and the value is 0.006423 as you visalized.
post comments/feedback
It is possible to name the cell B1 as g,B2 as Pp,B3 as Pl,B4 as u and B5 as d and the
formula in B9 reformed.
venkat1926
Feb 9, 2010 at 06:15 AM
- Posts
- 1864
- Registration date
- Sunday June 14, 2009
- Status
- Contributor
- Last seen
- August 7, 2021
Feb 9, 2010 at 06:15 AM
try this code
Sub TEST() Dim g As Double, Pp As Double, Pl As Double Dim u As Double, d As Double, Vs As Double g = 981 Pp = 2.65 Pl = 1 u = 0.014 d = 0.001 Vs = (g / 18) * ((Pp - Pl) / u) * d ^ 2 MsgBox Format(Vs, "0.000000") End Sub
Feb 8, 2010 at 09:47 PM