Question

Need the VBA code for excel

Time to Burn Calories Assume you are afiness trainer and would lhke to help your clients better calculate the number of calories they burn on your treadmill Your treadmill burns 89 calories per minute. You desire to create a program which asks the person to enter the desired number of calories to burn and output the number of minures required on your treadmill Note: They might burn slightly more calories than their goal unless their goal is a multiple of 8.9 Calories to Burn Sample Interface Calories to Bum Goal Total Minutes Calculate Minutes Start Variable List Goal (Double) 'desired loss 7 Calories (Double) 'calories burned thus far number of minutes run Minutes (In Input Goal Calories 0 Minutes-0 Print Minutes Goal > Calories Fal True Calories-Calories+8.9 Minutes- Minutes1 End

Answer 1

Sub Button1_Click()
Dim Goal As Double
Dim Current As Double
Dim Calories As Double
Dim Minute As Integer
Calories = 0
Minute = 0
Goal = Range("F7").Value

If Goal > Calories Then
result = Goal * 1 / 8.9
Range("F8").Value = result
End If
End Sub

if you have any doubt then please ask me without any hesitation in the comment section below , if you like my answer then please thumbs up for the answer , before giving thumbs down please discuss the question it may possible that we may understand the question different way and we can edit and change the answers if you argue, thanks :)

自Microsoft Visual Basic for Applications-Book1.xltm-[Sheet 1 (Code)] 臭File Edit yiew Insert Format Debug Run looks Add-ins yindow Help -ㄖㄨ ゆ乢的叨 ト K Lj @ Ln 11. Col 29 . Project- VBAProject X(General) ▼| Button1 Click Sub Buttonl Click( Dim Goal As Double Dim Current As Double Dim Calories As Double Dim Minute As Integer Calories-0 Minute-0 Goal Range("F7") .Value B-参Microsoft Excel Objects Sheetl (Sheet1) If Goal > Calories Thern result-Goal1/ 8 Range ("F".Valueresult End If End Sub Properties - Sheet Sheeti Worksheet Alphabetic Categorized Name) Sheet1 olef False False True True Table False Sheet1 43 1-dSheetisb 2-18 AM 粗 49 ENG 09/04/2019 ^

Book1xdtm Excel Sign in Insert Page Layout Formulas Data Review View Developer Add-ins Help Foxit PDF Power Pivot TeamTell me what you want to do Cut .111 . A'a"|ー 曹Wrap Text 自Merge & Certer シ· Copy , $. % , 엶48 Conditional Format as Cel Fommatting Table Styles Insert Delete Format в 1 u·ー·ク· Sort & Find & Filter, Select" ΞΞ ·ミー ˙ . Format PainterBI Clear Clipboard Editing Calories To Burn Total Minute 10 Button 1 12 13 15 17 18 19 Sheet1 Ready + 100% 2-18 AM 粗 脈4 ENG 09/04/2019