I need help with my ACC 6370 homework

profilechiyan
CopyofHomework7-ACCT6370.xlsx
Home>Business & Finance homework help>Accounting homework help>I need help with my ACC 6370 homework

Introduction

In the boxes below, enter the last 3-digits of your Buff ID, as well as your first and last name.
Enter last 3 disgits of Buff ID here: 517
Name: Eusebia Cuello
Provided below are some check figuires; you can use these to check your work:
Question 3
• Difference between total budgeted expenses and total actual expenses (in absolute value) = $1,796.00

Click to Begin

/xl/drawings/drawing1.xml#Question1!A1

Question1

ID BudgetedSales ActualSales Difference FavUnfav ID BudgetedSales ActualSales Difference FavUnfav
Question 1 (Points possible: 0.25 pts * 8 = 2) -100 95000 94400 600 Unfavorable -100 8600 8000 600 Favorable
0 96000 96400 400 Favorable 0 9600 9100 500 Favorable
Part (a) Grade 0 50 97000 96400 600 Unfavorable 50 10600 9900 700 Favorable
Message For Question 1 error, Review Lesson 10, Video 4-4 100 98000 100800 2,800 Favorable 100 11600 12000 400 Unfavorable
For the month ended October 31, 2018, Friendly Pharmacy provides the 150 99000 100600 1,600 Favorable 150 12600 11900 700 Favorable
following sales data: 1 0 200 100000 103800 3,800 Favorable 200 13600 14600 1,000 Unfavorable
2 0 250 101000 104300 3,300 Favorable 250 14600 15500 900 Unfavorable
Budgeted sales $106,000 3 0 300 102000 98100 3,900 Unfavorable 300 15600 15100 500 Favorable
Actual sales $104,100 4 0 350 103000 103400 400 Favorable 350 16600 16800 200 Unfavorable
5 0 400 104000 104400 400 Favorable 400 17600 18500 900 Unfavorable
Prepare a static budget for the month. 6 0 450 105000 101600 3,400 Unfavorable 450 18600 18100 500 Favorable
7 0 500 106000 104100 1,900 Unfavorable 500 19600 19000 600 Favorable
Friendly Pharmacy 8 0 550 107000 106600 400 Unfavorable 550 20600 21000 400 Unfavorable
Sales Budget Report 600 108000 107600 400 Unfavorable 600 21600 22600 1,000 Unfavorable
For the month ended October 31, 2018 650 109000 111500 2,500 Favorable 650 22600 22000 600 Favorable
Budget Actual Difference 700 110000 110600 600 Favorable 700 23600 23500 100 Favorable
750 111000 112300 1,300 Favorable 750 24600 24700 100 Unfavorable
800 112000 108700 3,300 Unfavorable 800 25600 25800 200 Unfavorable
850 113000 109200 3,800 Unfavorable 850 26600 25800 800 Favorable
Part (b) 900 114000 111900 2,100 Unfavorable 900 27600 27100 500 Favorable
950 115000 117700 2,700 Favorable 950 28600 27900 700 Favorable
For the month ended November 30, 2018, Community Diagnostic Laboratory provides 1000 116000 112200 3,800 Unfavorable 1000 29600 29100 500 Favorable
the following data regarding its direct materials costs: 10400 10400
Budgeted direct materials to be used $19,600 FavUnfav
Actual direct materials used $19,000 Favorable
Unfavorable
Prepare a static budget for the month.
Community Diagnostic Laboratory
Direct Materials Budget Report
For the month ended November 30, 2018
Budget Actual Difference

Next question

/xl/drawings/drawing2.xml#Question2!A1

Question2

ID BudgetedCostPerHour BudgetedHours BudgetedCost ActualLaborCost ActualHours StaticVariance StaticFavUnfav FlexibleAmount FlexibleVariance FlexibleUnfavFav
Question 2 (Points possible: 0.25 pts * 8 = 2) -100 35 650 22750 24250 635 1500 Unfavorable 22225 2025 Unfavorable
0 36 660 23760 24860 650 1100 Unfavorable 23400 1460 Unfavorable
Therapy in Motion, a local physical therapy clinic, provides the following information: Grade 0 50 37 670 24790 26290 665 1500 Unfavorable 24605 1685 Unfavorable
Message For Question 2 error, Review Lesson 10, Video 4-5 100 38 680 25840 26940 680 1100 Unfavorable 25840 1100 Unfavorable
Direct labor cost per hour…. $46 150 39 690 26910 28110 695 1200 Unfavorable 27105 1005 Unfavorable
Expected direct labor hours per month 760 1 0 200 40 700 28000 29000 710 1000 Unfavorable 28400 600 Unfavorable
2 0 250 41 710 29110 30110 725 1000 Unfavorable 29725 385 Unfavorable
In July 2017, the clinic reported the following actual data: 3 0 300 42 720 30240 31640 740 1400 Unfavorable 31080 560 Unfavorable
4 0 350 43 730 31390 33390 755 2000 Unfavorable 32465 925 Unfavorable
Total direct labor cost $36,460 5 0 400 44 740 32560 33760 770 1200 Unfavorable 33880 120 Favorable
Total direct labor hours worked……… 800 6 0 450 45 750 33750 34850 785 1100 Unfavorable 35325 475 Favorable
7 0 500 46 760 34960 36460 800 1500 Unfavorable 36800 340 Favorable
Part (a) 8 0 550 47 770 36190 37590 815 1400 Unfavorable 38305 715 Favorable
600 48 780 37440 39240 830 1800 Unfavorable 39840 600 Favorable
Prepare a static budget report for the month. 650 49 790 38710 39810 845 1100 Unfavorable 41405 1595 Favorable
700 50 800 40000 41800 860 1800 Unfavorable 43000 1200 Favorable
Therapy in Motion 750 51 810 41310 43210 875 1900 Unfavorable 44625 1415 Favorable
Static Direct Labor Budget Report 800 52 820 42640 44440 890 1800 Unfavorable 46280 1840 Favorable
For the month ended October 31, 2018 850 53 830 43990 45390 905 1400 Unfavorable 47965 2575 Favorable
Budget Actual Difference 900 54 840 45360 47260 920 1900 Unfavorable 49680 2420 Favorable
950 55 850 46750 48750 935 2000 Unfavorable 51425 2675 Favorable
1000 56 860 48160 50060 749 1900 Unfavorable 41944 8116 Favorable
10400
Part (b)
FavUnfav
Prepare a flexible budget report for the month. Favorable
Unfavorable
Therapy in Motion
Flexible Direct Labor Budget Report
For the month ended October 31, 2018
Budget Actual Difference

Next question

/xl/drawings/drawing3.xml#Question3!A1

Question3

ID BudgetedCostPerPatient_1 BudgetedCostPerPatient_2 BudgetedCostPerPatient_3 BudgetedPatient BudgetedCost_1 BudgetedCost_2 BudgetedCost_3 TotalVC_Budget ActualCostPerPatient_1 ActualCostPerPatient_2 ActualCostPerPatient_3 ActualPatient ActualCost_1 ActualCost_2 ActualCost_3 TotalVC_Actual DiffStatic_1 DiffStatic_2 DiffStatic_3 TotalVC_Diff Unfav BudgetedCostF_1 BudgetedCostF_2 BudgetedCostF_3 TotalVC_FBudget DiffFlex_1 DiffFlex_2 DiffFlex_3 TotalVC_DiffFlex Unfav Fixed_1 Fixed_2 Fixed_3 Fixed_4 ToalFixed Diff_0 TotalExp_Budget TotalExp_Actual TotalExp_FlexB
Question 3 (Points possible: 0.15 pts * 3 + 0.15 pts * 35 + 0.3 pts * 1 = 6) -100 11.9 6.2 2.6 4200 49980 26040 10920 86940 11.8 6 2.5 4380 51684 26280 10950 88914 1704 240 30 1974 Unfavorable 52122 27156 11388 90666 438 876 438 1752 Favorable 43000 2600 3700 6400 55700 0 142640 144614 146366
0 12 6.3 2.7 4210 50520 26523 11367 88410 11.9 6.1 2.6 4390 52241 26779 11414 90434 1721 256 47 2024 Unfavorable 52680 27657 11853 92190 439 878 439 1756 Favorable 43100 2700 3800 6500 56100 0 144510 146534 148290
Swift Taylor, the director of Taylor Health Services, received the following budget report for expenses related Grade 1.05 50 12.1 6.4 2.8 4220 51062 27008 11816 89886 12 6.2 2.7 4400 52800 27280 11880 91960 1738 272 64 2074 Unfavorable 53240 28160 12320 93720 440 880 440 1760 Favorable 43200 2800 3900 6600 56500 0 146386 148460 150220
to the clinic's services during the month of August. Message For Question 3 error, Review Lesson 10, Video 4-6 100 12.2 6.5 2.9 4230 51606 27495 12267 91368 12.1 6.3 2.8 4410 53361 27783 12348 93492 1755 288 81 2124 Unfavorable 53802 28665 12789 95256 441 882 441 1764 Favorable 43300 2900 4000 6700 56900 0 148268 150392 152156
150 12.3 6.6 3 4240 52152 27984 12720 92856 12.2 6.4 2.9 4420 53924 28288 12818 95030 1772 304 98 2174 Unfavorable 54366 29172 13260 96798 442 884 442 1768 Favorable 43400 3000 4100 6800 57300 0 150156 152330 154098
Taylor Health Services 1 0 200 12.4 6.7 3.1 4250 52700 28475 13175 94350 12.3 6.5 3 4430 54489 28795 13290 96574 1789 320 115 2224 Unfavorable 54932 29681 13733 98346 443 886 443 1772 Favorable 43500 3100 4200 6900 57700 0 152050 154274 156046
Budget Report 2 0 250 12.5 6.8 3.2 4260 53250 28968 13632 95850 12.4 6.6 3.1 4440 55056 29304 13764 98124 1806 336 132 2274 Unfavorable 55500 30192 14208 99900 444 888 444 1776 Favorable 43600 3200 4300 7000 58100 0 153950 156224 158000
For the month ended August 31, 2018 3 0 300 12.6 6.9 3.3 4270 53802 29463 14091 97356 12.5 6.7 3.2 4450 55625 29815 14240 99680 1823 352 149 2324 Unfavorable 56070 30705 14685 101460 445 890 445 1780 Favorable 43700 3300 4400 7100 58500 0 155856 158180 159960
Budget Actual Difference 1 0 350 12.7 7 3.4 4280 54356 29960 14552 98868 12.6 6.8 3.3 4460 56196 30328 14718 101242 1840 368 166 2374 Unfavorable 56642 31220 15164 103026 446 892 446 1784 Favorable 43800 3400 4500 7200 58900 0 157768 160142 161926
Number of patient visits: 4,310 4,490 2 0 400 12.8 7.1 3.5 4290 54912 30459 15015 100386 12.7 6.9 3.4 4470 56769 30843 15198 102810 1857 384 183 2424 Unfavorable 57216 31737 15645 104598 447 894 447 1788 Favorable 43900 3500 4600 7300 59300 0 159686 162110 163898
Variable expenses: 3 0 450 12.9 7.2 3.6 4300 55470 30960 15480 101910 12.8 7 3.5 4480 57344 31360 15680 104384 1874 400 200 2474 Unfavorable 57792 32256 16128 106176 448 896 448 1792 Favorable 44000 3600 4700 7400 59700 0 161610 164084 165876
Medical supplies $56,030 $57,921 $1,891 Unfavorable 4 0 500 13 7.3 3.7 4310 56030 31463 15947 103440 12.9 7.1 3.6 4490 57921 31879 16164 105964 1891 416 217 2524 Unfavorable 58370 32777 16613 107760 449 898 449 1796 Favorable 44100 3700 4800 7500 60100 0 163540 166064 167860
Lab supplies $31,463 $31,879 $416 Unfavorable 5 0 550 13.1 7.4 3.8 4320 56592 31968 16416 104976 13 7.2 3.7 4500 58500 32400 16650 107550 1908 432 234 2574 Unfavorable 58950 33300 17100 109350 450 900 450 1800 Favorable 44200 3800 4900 7600 60500 0 165476 168050 169850
Laundry $15,947 $16,164 $217 Unfavorable 6 0 600 13.2 7.5 3.9 4330 57156 32475 16887 106518 13.1 7.3 3.8 4510 59081 32923 17138 109142 1925 448 251 2624 Unfavorable 59532 33825 17589 110946 451 902 451 1804 Favorable 44300 3900 5000 7700 60900 0 167418 170042 171846
Total variable expenses $103,440 $105,964 $2,524 Unfavorable 7 0 650 13.3 7.6 4 4340 57722 32984 17360 108066 13.2 7.4 3.9 4520 59664 33448 17628 110740 1942 464 268 2674 Unfavorable 60116 34352 18080 112548 452 904 452 1808 Favorable 44400 4000 5100 7800 61300 0 169366 172040 173848
Fixed expenses: 8 0 700 13.4 7.7 4.1 4350 58290 33495 17835 109620 13.3 7.5 4 4530 60249 33975 18120 112344 1959 480 285 2724 Unfavorable 60702 34881 18573 114156 453 906 453 1812 Favorable 44500 4100 5200 7900 61700 0 171320 174044 175856
Salaries and benefits $44,100 $44,100 $0 9 0 750 13.5 7.8 4.2 4360 58860 34008 18312 111180 13.4 7.6 4.1 4540 60836 34504 18614 113954 1976 496 302 2774 Unfavorable 61290 35412 19068 115770 454 908 454 1816 Favorable 44600 4200 5300 8000 62100 0 173280 176054 177870
Insurance $3,700 $3,700 $0 10 0 800 13.6 7.9 4.3 4370 59432 34523 18791 112746 13.5 7.7 4.2 4550 61425 35035 19110 115570 1993 512 319 2824 Unfavorable 61880 35945 19565 117390 455 910 455 1820 Favorable 44700 4300 5400 8100 62500 0 175246 178070 179890
Depreciation $4,800 $4,800 $0 11 0 850 13.7 8 4.4 4380 60006 35040 19272 114318 13.6 7.8 4.3 4560 62016 35568 19608 117192 2010 528 336 2874 Unfavorable 62472 36480 20064 119016 456 912 456 1824 Favorable 44800 4400 5500 8200 62900 0 177218 180092 181916
Rent $7,500 $7,500 $0 12 0 900 13.8 8.1 4.5 4390 60582 35559 19755 115896 13.7 7.9 4.4 4570 62609 36103 20108 118820 2027 544 353 2924 Unfavorable 63066 37017 20565 120648 457 914 457 1828 Favorable 44900 4500 5600 8300 63300 0 179196 182120 183948
Total fixed expenses $60,100 $60,100 $0 13 0 950 13.9 8.2 4.6 4400 61160 36080 20240 117480 13.8 8 4.5 4580 63204 36640 20610 120454 2044 560 370 2974 Unfavorable 63662 37556 21068 122286 458 916 458 1832 Favorable 45000 4600 5700 8400 63700 0 181180 184154 185986
Total expenses $163,540 $166,064 $2,524 Unfavorable 14 0 1000 14 8.3 4.7 4410 61740 36603 20727 119070 13.9 8.1 4.6 4590 63801 37179 21114 122094 2061 576 387 3024 Unfavorable 64260 38097 21573 123930 459 918 459 1836 Favorable 45100 4700 5800 8500 64100 0 183170 186194 188030
15 0 10400
As a result of this budget report, Mr. Taylor was very dissatisfied with the clinic's performance. In fact, he reprimanded 16 0
department leaders for failing to control expenses properly. 17 0 FavUnfav
18 0 Favorable
Part (a) 19 0 Unfavorable
20 0
Calculate the budgeted cost per patient visit for the following variable expenses: 21 0 Yes. Both the static budget and the flexible budget indicate an overall unfavorable variance.
22 0 Yes. Although the static budget indicated an overall favorable variance, the flexible budget indicates an overall unfavorable variance.
[1] Medical supplies ……………….. 23 0 No. Although the static budget indicated an overall unfavorable variance, the flexible budget indicates an overall favorable variance.
[2] Lab supplies ……………………. 24 1.5 No. Both the static budget and the flexible budget indicate an overall favorable variance.
[3] Laundry ………………………… 25 1.5
26 1.5
Part (b) 27 1.5
28 1.5
Prepare a flexible budget report to help address Mr. Taylor's concerns. 29 1.5
30 1.5
Taylor Health Services 31 0
Flexible Budget Report 32 0
For the month ended August 31, 2018 33 0
Budget Actual Difference 34 0
Number of patient visits: 4490 4490 35 0
Variable expenses: 1 0
Medical supplies
Lab supplies
Laundry
Total variable expenses
Fixed expenses:
Salaries and benefits
Insurance
Depreciation
Rent
Total fixed expenses
Total expenses
Part (c)
Was Mr. Taylor correct to be dissatisfied with the clinic's performance?

Next question

/xl/drawings/drawing4.xml#Question4!A1

Question4

ID StdQty StdPrice ActualProduction ActualMaterials ActualCosts AQ*AP AQ*SP SQ*SP MPV_value MPV_direction MQV_value MQV_direction TMV_value TMV_direction StdTime StdLaborCost ActualQty ActualHours ActualCosts AH*AR AH*SR SH*SR LPV_value LPV_direction LQV_value LQV_direction TLV_value TLV_direction
Question 4 (Points possible: 0.4 pts * 5 + 0.5 pts * 1 = 2.5) -100 5 12 240 1240 14720 14720 14880 14400 160 Favorable 480 Unfavorable 320 Unfavorable 15 18 1100 270 5082 5082 4860 4950 222 Unfavorable 90 Favorable 132 Unfavorable
0 4 13 250 1010 13030 13030 13130 13000 100 Favorable 130 Unfavorable 30 Unfavorable 30 19 1110 563 10397 10397 10697 10545 300 Favorable 152 Unfavorable 148 Favorable
Thompson Medical manufactures medical equipment. Standard and actual data regarding one of the Grade 0 50 3 14 260 790 10950 10950 11060 10920 110 Favorable 140 Unfavorable 30 Unfavorable 15 20 1120 293 5940 5940 5860 5600 80 Unfavorable 260 Unfavorable 340 Unfavorable
company's products are provided below. Message For Question 4 error, Review Lesson 10, Video 4-7 100 4 15 270 1090 16690 16690 16350 16200 340 Unfavorable 150 Unfavorable 490 Unfavorable 30 21 1130 543 11513 11513 11403 11865 110 Unfavorable 462 Favorable 352 Favorable
150 3 16 280 860 14130 14130 13760 13440 370 Unfavorable 320 Unfavorable 690 Unfavorable 15 17 1140 308 5016 5016 5236 4845 220 Favorable 391 Unfavorable 171 Unfavorable
Standard quantity of materials 6.00 feet per product 1 0 200 4 12 290 1180 14650 14650 14160 13920 490 Unfavorable 240 Unfavorable 730 Unfavorable 30 18 1150 570 10520 10520 10260 10350 260 Unfavorable 90 Favorable 170 Unfavorable
Standard price $13.00 per foot 2 0 250 5 13 300 1480 19150 19150 19240 19500 90 Favorable 260 Favorable 350 Favorable 15 19 1160 275 4925 4925 5225 5510 300 Favorable 285 Favorable 585 Favorable
Actual production 350 products 3 0 300 6 14 310 1880 26160 26160 26320 26040 160 Favorable 280 Unfavorable 120 Unfavorable 30 20 1170 580 11890 11890 11600 11700 290 Unfavorable 100 Favorable 190 Unfavorable
Actual materials used 2,050 feet 1 0 350 3 15 320 910 13750 13750 13650 14400 100 Unfavorable 750 Favorable 650 Favorable 15 21 1180 281 5821 5821 5901 6195 80 Favorable 294 Favorable 374 Favorable
Actual total costs incurred $26,610 2 0 400 4 16 330 1290 20920 20920 20640 21120 280 Unfavorable 480 Favorable 200 Favorable 30 17 1190 604 10518 10518 10268 10115 250 Unfavorable 153 Unfavorable 403 Unfavorable
3 0 450 5 12 340 1660 19660 19660 19920 20400 260 Favorable 480 Favorable 740 Favorable 15 18 1200 280 5220 5220 5040 5400 180 Unfavorable 360 Favorable 180 Favorable
Compute the price, quantity, and total materials variances. 500 6 13 350 2050 26610 26610 26650 27300 40 Favorable 650 Favorable 690 Favorable 30 19 1210 590 11424 11424 11210 11495 214 Unfavorable 285 Favorable 71 Favorable
550 3 14 360 1050 15200 15200 14700 15120 500 Unfavorable 420 Favorable 80 Unfavorable 15 20 1220 324 6380 6380 6480 6100 100 Favorable 380 Unfavorable 280 Unfavorable
(i) Materials price variance 600 4 15 370 1470 21910 21910 22050 22200 140 Favorable 150 Favorable 290 Favorable 30 21 1230 633 13263 13263 13293 12915 30 Favorable 378 Unfavorable 348 Unfavorable
650 5 16 380 1850 29980 29980 29600 30400 380 Unfavorable 800 Favorable 420 Favorable 15 17 1240 335 5535 5535 5695 5270 160 Favorable 425 Unfavorable 265 Unfavorable
(ii) Materials quantity variance 700 6 12 390 2360 27910 27910 28320 28080 410 Favorable 240 Unfavorable 170 Favorable 30 18 1250 612 10906 10906 11016 11250 110 Favorable 234 Favorable 344 Favorable
750 3 13 400 1220 16020 16020 15860 15600 160 Unfavorable 260 Unfavorable 420 Unfavorable 15 19 1260 320 6243 6243 6080 5985 163 Unfavorable 95 Unfavorable 258 Unfavorable
(iii) Total materials variance 800 4 14 410 1590 22350 22350 22260 22960 90 Unfavorable 700 Favorable 610 Favorable 30 20 1270 620 12130 12130 12400 12700 270 Favorable 300 Favorable 570 Favorable
850 5 15 420 2150 32680 32680 32250 31500 430 Unfavorable 750 Unfavorable 1180 Unfavorable 15 21 1280 328 7128 7128 6888 6720 240 Unfavorable 168 Unfavorable 408 Unfavorable
900 6 16 430 2560 40810 40810 40960 41280 150 Favorable 320 Favorable 470 Favorable 30 17 1290 654 11328 11328 11118 10965 210 Unfavorable 153 Unfavorable 363 Unfavorable
950 3 12 440 1360 16250 16250 16320 15840 70 Favorable 480 Unfavorable 410 Unfavorable 15 18 1300 316 5988 5988 5688 5850 300 Unfavorable 162 Favorable 138 Unfavorable
1000 4 13 450 1820 23450 23450 23660 23400 210 Favorable 260 Unfavorable 50 Unfavorable 30 19 1310 650 12752 12752 12350 12445 402 Unfavorable 95 Favorable 307 Unfavorable
10400

Next question

/xl/drawings/drawing5.xml#Question5!A1

Question5

ID StdQty StdPrice ActualProduction ActualMaterials ActualCosts AQ*AP AQ*SP SQ*SP MPV_value MPV_direction MQV_value MQV_direction TMV_value TMV_direction StdTime StdLaborCost ActualQty ActualHours ActualCosts AH*AR AH*SR SH*SR LPV_value LPV_direction LQV_value LQV_direction TLV_value TLV_direction
Question 5 (Points possible: 0.4 pts * 5 + 0.5 pts * 1 = 2.5) -100 5 12 240 1240 14720 14720 14880 14400 160 Favorable 480 Unfavorable 320 Unfavorable 15 18 1100 270 5082 5082 4860 4950 222 Unfavorable 90 Favorable 132 Unfavorable
0 4 13 250 1010 13030 13030 13130 13000 100 Favorable 130 Unfavorable 30 Unfavorable 30 19 1110 563 10397 10397 10697 10545 300 Favorable 152 Unfavorable 148 Favorable
Brennan Hospital is using variance analysis to evaluate the efficiency of its Admissions Department. Grade 0 50 3 14 260 790 10950 10950 11060 10920 110 Favorable 140 Unfavorable 30 Unfavorable 15 20 1120 293 5940 5940 5860 5600 80 Unfavorable 260 Unfavorable 340 Unfavorable
Standard and actual data regarding the admissions process are provided below. Message For Question 5 error, Review Lesson 10, Video 4-8 100 4 15 270 1090 16690 16690 16350 16200 340 Unfavorable 150 Unfavorable 490 Unfavorable 30 21 1130 543 11513 11513 11403 11865 110 Unfavorable 462 Favorable 352 Favorable
150 3 16 280 860 14130 14130 13760 13440 370 Unfavorable 320 Unfavorable 690 Unfavorable 15 17 1140 308 5016 5016 5236 4845 220 Favorable 391 Unfavorable 171 Unfavorable
Standard time to complete an admissions record 30.00 minutes 1 0 200 4 12 290 1180 14650 14650 14160 13920 490 Unfavorable 240 Unfavorable 730 Unfavorable 30 18 1150 570 10520 10520 10260 10350 260 Unfavorable 90 Favorable 170 Unfavorable
Standard labor cost of admissions staff $19.00 per hour 2 0 250 5 13 300 1480 19150 19150 19240 19500 90 Favorable 260 Favorable 350 Favorable 15 19 1160 275 4925 4925 5225 5510 300 Favorable 285 Favorable 585 Favorable
Actual number of admissions completed 1,210 admissions 3 0 300 6 14 310 1880 26160 26160 26320 26040 160 Favorable 280 Unfavorable 120 Unfavorable 30 20 1170 580 11890 11890 11600 11700 290 Unfavorable 100 Favorable 190 Unfavorable
Actual number of hours worked 590 hours 1 0 350 3 15 320 910 13750 13750 13650 14400 100 Unfavorable 750 Favorable 650 Favorable 15 21 1180 281 5821 5821 5901 6195 80 Favorable 294 Favorable 374 Favorable
Actual total costs incurred $11,424 2 0 400 4 16 330 1290 20920 20920 20640 21120 280 Unfavorable 480 Favorable 200 Favorable 30 17 1190 604 10518 10518 10268 10115 250 Unfavorable 153 Unfavorable 403 Unfavorable
3 0 450 5 12 340 1660 19660 19660 19920 20400 260 Favorable 480 Favorable 740 Favorable 15 18 1200 280 5220 5220 5040 5400 180 Unfavorable 360 Favorable 180 Favorable
Compute the price, quantity, and total labor variances. 500 6 13 350 2050 26610 26610 26650 27300 40 Favorable 650 Favorable 690 Favorable 30 19 1210 590 11424 11424 11210 11495 214 Unfavorable 285 Favorable 71 Favorable
550 3 14 360 1050 15200 15200 14700 15120 500 Unfavorable 420 Favorable 80 Unfavorable 15 20 1220 324 6380 6380 6480 6100 100 Favorable 380 Unfavorable 280 Unfavorable
(i) Labor price variance 600 4 15 370 1470 21910 21910 22050 22200 140 Favorable 150 Favorable 290 Favorable 30 21 1230 633 13263 13263 13293 12915 30 Favorable 378 Unfavorable 348 Unfavorable
650 5 16 380 1850 29980 29980 29600 30400 380 Unfavorable 800 Favorable 420 Favorable 15 17 1240 335 5535 5535 5695 5270 160 Favorable 425 Unfavorable 265 Unfavorable
(ii) Labor quantity variance 700 6 12 390 2360 27910 27910 28320 28080 410 Favorable 240 Unfavorable 170 Favorable 30 18 1250 612 10906 10906 11016 11250 110 Favorable 234 Favorable 344 Favorable
750 3 13 400 1220 16020 16020 15860 15600 160 Unfavorable 260 Unfavorable 420 Unfavorable 15 19 1260 320 6243 6243 6080 5985 163 Unfavorable 95 Unfavorable 258 Unfavorable
(iii) Total labor variance 800 4 14 410 1590 22350 22350 22260 22960 90 Unfavorable 700 Favorable 610 Favorable 30 20 1270 620 12130 12130 12400 12700 270 Favorable 300 Favorable 570 Favorable
850 5 15 420 2150 32680 32680 32250 31500 430 Unfavorable 750 Unfavorable 1180 Unfavorable 15 21 1280 328 7128 7128 6888 6720 240 Unfavorable 168 Unfavorable 408 Unfavorable
900 6 16 430 2560 40810 40810 40960 41280 150 Favorable 320 Favorable 470 Favorable 30 17 1290 654 11328 11328 11118 10965 210 Unfavorable 153 Unfavorable 363 Unfavorable
950 3 12 440 1360 16250 16250 16320 15840 70 Favorable 480 Unfavorable 410 Unfavorable 15 18 1300 316 5988 5988 5688 5850 300 Unfavorable 162 Favorable 138 Unfavorable
1000 4 13 450 1820 23450 23450 23660 23400 210 Favorable 260 Unfavorable 50 Unfavorable 30 19 1310 650 12752 12752 12350 12445 402 Unfavorable 95 Favorable 307 Unfavorable
10400

Next question

/xl/drawings/drawing6.xml#Question6!A1

Question6

ID Materials_StdQty Materials_StdPrice Labor_StdHrs Labor_StdRate Actual_#Procedures Actual_MaterialsUsed Actual_MaterialsTotalCost Actual_LaborHours Actual_LaborTotalCost AQ*AP AQ*SP SQ*SP MPV_value MPV_direction MQV_value MQV_direction TMV_value TMV_direction AH*AR AH*SR SH*SR LPV_value LPV_direction LQV_value LQV_direction TLV_value TLV_direction
Question 6 (Points possible: 0.4 pts * 10 + 0.5 pts * 2 = 5) -100 1.5 240 2 27 50 82 19220 88 2726 19220 19680 18000 460 Favorable 1680 Unfavorable 1220 Unfavorable 2726 2376 2700 350 Unfavorable 324 Favorable 26 Unfavorable
0 2 250 3 28 52 106 25770 144 4392 25770 26500 26000 730 Favorable 500 Unfavorable 230 Favorable 4392 4032 4368 360 Unfavorable 336 Favorable 24 Unfavorable
The Radiology Department of Davidson Hospital provides the following standards regarding its provision of angiography procedures. 50 1.5 260 2 29 54 88 22220 94 3066 22220 22880 21060 660 Favorable 1820 Unfavorable 1160 Unfavorable 3066 2726 3132 340 Unfavorable 406 Favorable 66 Favorable
Grade 0 100 2 270 3 30 56 115 30250 153 4830 30250 31050 30240 800 Favorable 810 Unfavorable 10 Unfavorable 4830 4590 5040 240 Unfavorable 450 Favorable 210 Favorable
Standard Quantity or Hours Standard Price or Rate Message For Question 6 error, Review Lesson 10, Video 4-9 150 1.5 280 2 31 58 93 25380 102 3472 25380 26040 24360 660 Favorable 1680 Unfavorable 1020 Unfavorable 3472 3162 3596 310 Unfavorable 434 Favorable 124 Favorable
Direct materials (cardiac catheters) 2.00 catheters per procedure $270.00 per catheter 200 2 290 3 32 60 121 34410 169 5858 34410 35090 34800 680 Favorable 290 Unfavorable 390 Favorable 5858 5408 5760 450 Unfavorable 352 Favorable 98 Unfavorable
Direct labor (Angiography Technologist) 3.00 hours per procedure $31.00 per hour 1 0 250 1.5 300 2 33 50 76 22300 85 3205 22300 22800 22500 500 Favorable 300 Unfavorable 200 Favorable 3205 2805 3300 400 Unfavorable 495 Favorable 95 Favorable
2 0 300 2 310 3 27 52 105 31810 144 4128 31810 32550 32240 740 Favorable 310 Unfavorable 430 Favorable 4128 3888 4212 240 Unfavorable 324 Favorable 84 Favorable
For the most recent month, the department reported the following actual data: 3 0 350 1.5 240 2 28 54 86 19980 93 3004 19980 20640 19440 660 Favorable 1200 Unfavorable 540 Unfavorable 3004 2604 3024 400 Unfavorable 420 Favorable 20 Favorable
1 0 400 2 250 3 29 56 118 28740 155 4985 28740 29500 28000 760 Favorable 1500 Unfavorable 740 Unfavorable 4985 4495 4872 490 Unfavorable 377 Favorable 113 Unfavorable
Number of procedures performed 60 2 0 450 1.5 260 2 30 58 93 23630 104 3390 23630 24180 22620 550 Favorable 1560 Unfavorable 1010 Unfavorable 3390 3120 3480 270 Unfavorable 360 Favorable 90 Favorable
Number of catheters purchased and used 124 3 0 500 2 270 3 31 60 124 33070 166 5396 33070 33480 32400 410 Favorable 1080 Unfavorable 670 Unfavorable 5396 5146 5580 250 Unfavorable 434 Favorable 184 Favorable
Total cost of catheters purchased and used $33,070 1 0 550 1.5 280 2 32 50 76 20600 89 3228 20600 21280 21000 680 Favorable 280 Unfavorable 400 Favorable 3228 2848 3200 380 Unfavorable 352 Favorable 28 Unfavorable
Number of direct labor hours 166 2 0 600 2 290 3 33 52 107 30620 141 4913 30620 31030 30160 410 Favorable 870 Unfavorable 460 Unfavorable 4913 4653 5148 260 Unfavorable 495 Favorable 235 Favorable
Total cost of direct labor $5,396 3 0 650 1.5 300 2 27 54 86 25030 95 2935 25030 25800 24300 770 Favorable 1500 Unfavorable 730 Unfavorable 2935 2565 2916 370 Unfavorable 351 Favorable 19 Unfavorable
1 0 700 2 310 3 28 56 117 35860 156 4568 35860 36270 34720 410 Favorable 1550 Unfavorable 1140 Unfavorable 4568 4368 4704 200 Unfavorable 336 Favorable 136 Favorable
Part (a) 2 0 750 1.5 240 2 29 58 91 21240 103 3227 21240 21840 20880 600 Favorable 960 Unfavorable 360 Unfavorable 3227 2987 3364 240 Unfavorable 377 Favorable 137 Favorable
3 0 800 2 250 3 30 60 126 30950 166 5290 30950 31500 30000 550 Favorable 1500 Unfavorable 950 Unfavorable 5290 4980 5400 310 Unfavorable 420 Favorable 110 Favorable
Compute the price, quantity, and total materials variances. 850 1.5 260 2 31 50 76 19000 88 3148 19000 19760 19500 760 Favorable 260 Unfavorable 500 Favorable 3148 2728 3100 420 Unfavorable 372 Favorable 48 Unfavorable
900 2 270 3 32 52 109 28970 141 4912 28970 29430 28080 460 Favorable 1350 Unfavorable 890 Unfavorable 4912 4512 4992 400 Unfavorable 480 Favorable 80 Favorable
(i) Materials price variance 950 1.5 280 2 33 54 88 23910 94 3502 23910 24640 22680 730 Favorable 1960 Unfavorable 1230 Unfavorable 3502 3102 3564 400 Unfavorable 462 Favorable 62 Favorable
1000 2 290 3 27 56 119 34020 156 4442 34020 34510 32480 490 Favorable 2030 Unfavorable 1540 Unfavorable 4442 4212 4536 230 Unfavorable 324 Favorable 94 Favorable
(ii) Materials quantity variance 10400
(iii) Total materials variance
Part (b)
Compute the price, quantity, and total labor variances.
(i) Labor price variance
(ii) Labor quantity variance
(iii) Total labor variance

Response

ID NAME Q1_2 Q2_2 Q3_6 Q4_2.5 Q5_2.5 Q6_5 TOTAL Notes IF no Notes
517 Eusebia Cuello 0 0 0 0 0 0 0 For Question 1 error, Review Lesson 10, Video 4-4 For Question 2 error, Review Lesson 10, Video 4-5 For Question 3 error, Review Lesson 10, Video 4-6 For Question 4 error, Review Lesson 10, Video 4-7 For Question 5 error, Review Lesson 10, Video 4-8 For Question 6 error, Review Lesson 10, Video 4-9I know you could do it better next time! You did well, and you could do it even better!
Q1 Q2 Q3 Q4 Q5 Q6
1 0 106000 0 0 34960 0 0 13 0 0 40 0 0 214 0 0 410 0
2 0 104100 0 0 36460 0 0 7.3 0 0 Favorable 0 0 Unfavorable 0 0 Favorable 0
3 0 1900 0 0 1500 0 0 3.7 0 0 650 0 0 285 0 0 1080 0
4 0 Unfavorable 0 0 Unfavorable 0 0 Favorable 0 0 Favorable 0 0 Unfavorable 0
5 0 690 0 0 71 0 0 670 0
6 0 19600 0 0 36800 0 0 107760 0 0 Favorable 0 0 Favorable 0 0 Unfavorable 0
7 0 19000 0 0 36460 0 0 60100 0
0.3 8 0 600 0 0 340 0 0 167860 0
9 0 Favorable 0 0 Favorable 0 0 105964 0
10 0 60100 0
11 0 166064 0 0 250 0
12 0 449 0 0 Unfavorable 0
13 0 898 0 0 434 0
14 0 449 0 0 Favorable 0
15 0 184 0
16 0 Favorable 0 0 Favorable 0
17 0 Favorable 0
18 0 Favorable 0
19 0 Favorable 0
20
0 Favorable 0
0 No. Although the static budget indicated an overall unfavorable variance, the flexible budget indicates an overall favorable variance. 0

Code

Break password protection Sub PasswordBreaker() Excel input keys
Note: When there is dropdown used in a sheet, then, this code would not work 'Breaks worksheet password protection. • Hold Alt, enter 0149
Copy worksheet Hold Ctrl, and drag the sheet
Dim i As Integer, j As Integer, k As Integer
Dim l As Integer, m As Integer, n As Integer
Commone PW: 000123 Dim i1 As Integer, i2 As Integer, i3 As Integer
Dim i4 As Integer, i5 As Integer, i6 As Integer
Protect Workbook to lock hidend sheets
On Error Resume Next
Unlock selected cells, then protect worksheet individully.
For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
Hide Formula from review, Format cells - Protection - Hidden & Locked For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
To have a cell selectable, must be unlocked. ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
If ActiveSheet.ProtectContents = False Then
MsgBox "Password is " & Chr(i) & Chr(j) & _
Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
End Sub
Grade code Sub Grade()
'
' Grade Macro
'
'Find the directory path of the files to be graded
Dim GrdPath As String
Dim OutPth As String
GrdPath = Application.ActiveWorkbook.Path
OutPth = GrdPath & "\RtrnFiles" 'Path for password protected graded files for students
Call createNewDirectory(OutPth)
'Cells(1, 1) = GrdPath 'just a check
'This section of code gets the list of files in the directory to be graded and loads
'the file list into a string arry.  It also generates a count variable for the number
'of files to be graded.
Dim objFSO As Object
Dim objFolder As Object
Dim objFile As Object
Dim Fcnt As Integer
Dim FileNm(100) As String
Dim Fname As String
Application.ScreenUpdating = True
'Create an instance of the FileSystemObject
Set objFSO = CreateObject("Scripting.FileSystemObject")
'Get the folder object
Set objFolder = objFSO.GetFolder(GrdPath)
Fcnt = 0
'loops through each file in the directory and prints their names and path
For Each objFile In objFolder.Files
    'print file name
    Fname = objFile.Name
    If (Mid(Fname, 1, 11) = "ValWghtPort") Then
        Fcnt = Fcnt + 1
        FileNm(Fcnt) = Fname
        'Cells(Fcnt + 1, 1) = Fname
    End If
Next objFile
'Debug.Print Fcnt
'set up grading and student arrays
Dim StuName(100, 3) As String
Dim IsWrg(10, 100, 3) As Integer 'sheet students wrong write %
Dim sheetName As String
Dim NoSht As Boolean
Dim StuNum As Double
'vars for e quation tests
Dim strForm As String
Dim TstForm As String
Dim FulEq As String
'open the master file for to use for checking
Dim MasterF As Workbook
Application.EnableEvents = False
Set MasterF = Workbooks.Open(GrdPath & "\ValPortMaster.xlsm", False)
Application.EnableEvents = True
Dim StudF As Workbook 'for the student file
Application.Calculation = xlCalculationManual
'open password file
Dim PssWrd As Workbook
Set PssWrd = Workbooks.Open(GrdPath & "\PsWrd4316.xlsx")
Dim Pword As String
   
For StdCnt = 1 To Fcnt  'Once for each file in the directory
    'Open the student file
    Application.EnableEvents = False
    Debug.Print FileNm(StdCnt), StdCnt; " of "; Fcnt
    Set StudF = Workbooks.Open(GrdPath & "\" & FileNm(StdCnt), False)
    Application.EnableEvents = False
    'get the student specific information
    StudF.Activate
    Sheets("Portfolio").Select
    Application.Calculation = xlCalculationManual
    ActiveWorkbook.Sheets("StudentData").Visible = xlSheetVisible 'unhide sheet
    Sheets("StudentData").Select 'select sheet
    'get student data
    StuName(StdCnt, 1) = Cells(1, 1).Value
    StuName(StdCnt, 2) = Cells(2, 1).Value
    StuName(StdCnt, 3) = Cells(3, 1).Value
    ActiveWorkbook.Sheets("StudentData").Visible = xlSheetVeryHidden 'rehide sheet
   
    '*********************************************************************
    'Process Portfolio worksheet for the student
    '*********************************************************************
   
    ShtPnt = 1
    sheetName = "Portfolio"
    'check that wrksheet name exists
    i = 1
    j = 1
    NoSht = ChkSht(i, j, StudF, sheetName)
    'Debug.Print NoSht
   
    For i = 4 To 13 'Grade capm and weights
        If NoSht Then Exit For
       
        j = 4
        Call GrdCell(i, j, IsWrg, ShtPnt, StdCnt, MasterF, StudF, sheetName)
       
        j = 5
        Call GrdCell(i, j, IsWrg, ShtPnt, StdCnt, MasterF, StudF, sheetName)
       
        j = 6
        Call GrdCell(i, j, IsWrg, ShtPnt, StdCnt, MasterF, StudF, sheetName)
       
        j = 7
        Call GrdCell(i, j, IsWrg, ShtPnt, StdCnt, MasterF, StudF, sheetName)
             
    Next i
   
    If Not NoSht Then
        'Grade the sum product for the beta calculation
        i = 4
        j = 8
        Call GrdCell(i, j, IsWrg, ShtPnt, StdCnt, MasterF, StudF, sheetName)
        'Herfindalh index
        i = 7
        j = 8
        Call GrdCell(i, j, IsWrg, ShtPnt, StdCnt, MasterF, StudF, sheetName)
    End If
   
    If Not NoSht Then 'sum equations at the bottom of the contribution
        j = 5
        i = 14
        Call GrdCell(i, j, IsWrg, ShtPnt, StdCnt, MasterF, StudF, sheetName)
        j = 7
        Call GrdCell(i, j, IsWrg, ShtPnt, StdCnt, MasterF, StudF, sheetName)
    End If
   
    
    'Portfolio metrix
    For i = 30 To 33
        If NoSht Then Exit For
        j = 2
        Call GrdCell(i, j, IsWrg, ShtPnt, StdCnt, MasterF, StudF, sheetName)
    Next i
   
    
    
             
    StudF.Activate
    'save of graded workbook w/o password protection
    ActiveWorkbook.Save
    Application.DisplayAlerts = False
    'Debug.Print StuName(StdCnt, 2), StuName(StdCnt, 1)
    'Get password of the student based on the 800 number
    PssWrd.Activate
    LastRow = Columns("A").Find("*", , xlValues, , xlRows, xlPrevious).Row 'for sample range
    StuNum = Val(StuName(StdCnt, 3))
    Fpwrd = False
    For i = 2 To LastRow
        If Cells(i, 2) = StuNum Then
           Pword = Cells(i, 3)
           Fpwrd = True
        End If
    Next i
   
    If Fpwrd Then
        StudF.Activate
        Fname1 = ActiveWorkbook.Name
        ActiveWorkbook.SaveAs Filename:=OutPth & "\" & Fname1, Password:=Pword, ReadOnlyRecommended:=False, CreateBackup:=False
        ActiveWorkbook.Close savechanges:=False
    End If
    Application.DisplayAlerts = True
   
Next StdCnt 'end of file cycle loop
'ActiveWorkbook.Close SaveChanges:=False
'Open the output file for grades
'name of excel file to be created
    TmName = Int(Timer())
    FlName = "AgrdValPort" & CStr(TmName)
    GrdOut = GrdPath & "\" & FlName
    MaxScr = 40
   
    'Create new workbook
    Workbooks.Add.SaveAs Filename:=GrdOut
    'prep the file
    Cells(2, 1) = "LstName"
    Cells(2, 2) = "FstName"
    Cells(2, 3) = "Student Num"
    Cells(1, 4) = "Portfolio"
    Cells(1, 7) = "Rtrns"
    Cells(1, 10) = "YTDrtrns"
    Cells(1, 13) = "StkPerf"
    Cells(1, 16) = "ValPort"
    Cells(1, 19) = "Avg %"
    Cells(1, 20) = "Points"
    For i = 1 To ShtPnt
        Cells(2, 3 * i + 1) = "Wrg"
        Cells(2, 3 * i + 2) = "Rgh"
        Cells(2, 3 * i + 3) = "%"
    Next i
   
    'write out the data
    For i = 1 To Fcnt
        Cells(i + 2, 2) = StuName(i, 1)
        Cells(i + 2, 1) = StuName(i, 2)
        Cells(i + 2, 3) = StuName(i, 3)
        For j = 1 To ShtPnt
            For k = 1 To 3
                Cells(i + 2, 3 * j + k) = IsWrg(j, i, k)
                If k = 3 Then
                    If IsWrg(j, i, k - 1) > 0 Then
                        Cells(i + 2, 3 * j + k) = IsWrg(j, i, k - 1) / (IsWrg(j, i, k - 2) + IsWrg(j, i, k - 1))
                    Else
                        Cells(i + 2, 3 * j + k) = 0
                    End If
                End If
            Next k
        Next j
    Next i
    'Average % write
    For i = 1 To Fcnt
        Psum = 0
        For j = 6 To ShtPnt * 3 + 6 Step 3
            Psum = Psum + Cells(i + 2, j).Value
        Next j
        k = 18
        Psum = Psum / ShtPnt
        Cells(i + 2, k + 1) = Psum
        Cells(i + 2, k + 2) = Ceiling(Psum * MaxScr)
        If Cells(i + 2, k + 2).Value < 20 Then
            Cells(i + 2, k + 2) = Ceiling(0.3 * MaxScr)
            Cells(i + 2, k + 3) = "MinGrade"
        End If
    Next i
   
        
    ActiveWorkbook.Close savechanges:=True
    MasterF.Activate
    ActiveWorkbook.Close savechanges:=False
    PssWrd.Activate
    ActiveWorkbook.Close savechanges:=False
    'StudF.Activate
    'ActiveWorkbook.Close savechanges:=False
Application.ScreenUpdating = True
   
End Sub
'sub evaluates the equation content of a cell and compares to master
Sub GrdCell(i, j, ByRef IsWrg() As Integer, Spnt, Scnt, MasterF As Workbook, StudF As Workbook, sheetName)
    MasterF.Activate
    Sheets(sheetName).Select
    FulEq = MstEq(i, j)
    'Debug.Print FulEq & "  Full Eq"
   
    strForm = GetEq(i, j)
    'Debug.Print strForm & "  Mst Sort"
     
    'set the student sheet
    StudF.Activate
    Sheets(sheetName).Select
    TstForm = GetEq(i, j)
    'Debug.Print TstForm & "  Test Form"
    If (Trim(TstForm) = Trim(strForm)) Then
        IsWrg(Spnt, Scnt, 2) = IsWrg(Spnt, Scnt, 2) + 1 'Eq is correct
    Else
        IsWrg(Spnt, Scnt, 1) = IsWrg(Spnt, Scnt, 1) + 1 'Eq is incorrect
        Cells(i, j).ClearComments
        Cells(i, j).AddComment "Master Equation is  " & FulEq
        With Cells(i, j).Borders
            .LineStyle = xlContinuous
            .Color = vbRed
            .Weight = xlThin
        End With
        Range(Cells(i, j), Cells(i, j)).Interior.Color = xlNone
    End If
   
End Sub
'sub evalates the optimizer settings for a sheet and compares to the master
Sub OptiChk(i, j, ByRef IsWrg() As Integer, Spnt, Scnt, MasterF As Workbook, StudF As Workbook, sheetName)
    On Error GoTo OptiError
    MasterF.Activate
    Sheets(sheetName).Select
    MstTarg = SolverGet(typenum:=1) 'solver objective cell
    MstLim = SolverGet(typenum:=2)  'solver max or min option
    MstChg = SolverGet(typenum:=4)  'Solver change array
    MstCon = SolverGet(typenum:=5)  'solver number of constraints
    'Debug.Print MstTarg; MstLim; MstChg; MstCon
    StudF.Activate
    Sheets(sheetName).Select
    StdTarg = SolverGet(typenum:=1)
    StdLim = SolverGet(typenum:=2)
    StdChg = SolverGet(typenum:=4)
    StdCon = SolverGet(typenum:=5)
    'Debug.Print StdTarg; StdLim; StdChg; StdCon
    If MstTarg = StdTarg Then 'check target cell
        IsWrg(Spnt, Scnt, 2) = IsWrg(Spnt, Scnt, 2) + 25 'Eq is correct
        'Debug.Print MstTarg & "  "; StdTarg; "  " & Spnt; "  " & Scnt
    Else
        IsWrg(Spnt, Scnt, 1) = IsWrg(Spnt, Scnt, 1) + 25 'Eq is incorrect
        Cells(i, j).ClearComments
        Cells(i, j).AddComment "Solver Objective Cell is Wrong"
        With Cells(i, j).Borders
            .LineStyle = xlContinuous
            .Color = vbRed
            .Weight = xlThin
        End With
        Range(Cells(i, j), Cells(i, j)).Interior.Color = xlNone
    End If
    If MstLim = StdLim Then 'check max or min focus
        IsWrg(Spnt, Scnt, 2) = IsWrg(Spnt, Scnt, 2) + 25 'Eq is correct
    Else
        IsWrg(Spnt, Scnt, 1) = IsWrg(Spnt, Scnt, 1) + 25 'Eq is incorrect
        Cells(i + 1, j).ClearComments
        Cells(i + 1, j).AddComment "Solver Max or Min is Wrong"
        With Cells(i + 1, j).Borders
            .LineStyle = xlContinuous
            .Color = vbRed
            .Weight = xlThin
        End With
        Range(Cells(i + 1, j), Cells(i + 1, j)).Interior.Color = xlNone
    End If
    If MstChg = StdChg Then 'optmize by changing cells
        IsWrg(Spnt, Scnt, 2) = IsWrg(Spnt, Scnt, 2) + 25 'Eq is correct
    Else
        IsWrg(Spnt, Scnt, 1) = IsWrg(Spnt, Scnt, 1) + 25 'Eq is incorrect
        Cells(i + 2, j).ClearComments
        Cells(i + 2, j).AddComment "Solver By Changing Array is Wrong"
        With Cells(i + 2, j).Borders
            .LineStyle = xlContinuous
            .Color = vbRed
            .Weight = xlThin
        End With
        Range(Cells(i + 2, j), Cells(i + 2, j)).Interior.Color = xlNone
    End If
    If StdCon > 10 Then 'check number of constraints
        IsWrg(Spnt, Scnt, 2) = IsWrg(Spnt, Scnt, 2) + 25 'Eq is correct
    Else
        IsWrg(Spnt, Scnt, 1) = IsWrg(Spnt, Scnt, 1) + 25 'Eq is incorrect
        Cells(i + 3, j).ClearComments
        Cells(i + 3, j).AddComment "Not Enough Constraints on Solver"
        With Cells(i + 3, j).Borders
            .LineStyle = xlContinuous
            .Color = vbRed
            .Weight = xlThin
        End With
        Range(Cells(i + 3, j), Cells(i + 3, j)).Interior.Color = xlNone
    End If
   
    Exit Sub
OptiError: 'no optimizer data
    If IsError(StdTarg) Then
        IsWrg(Spnt, Scnt, 1) = IsWrg(Spnt, Scnt, 1) + 100 'Eq is incorrect
        Cells(i, j).ClearComments
        Cells(i, j).AddComment "No Solver Data For Sheet"
        With Cells(i, j).Borders
            .LineStyle = xlContinuous
            .Color = vbRed
            .Weight = xlThin
        End With
        Range(Cells(i, j), Cells(i, j)).Interior.Color = xlNone
    End If
   
End Sub
'this function checks to see if the sheet exists and returns a logical to skip grading
Public Function ChkSht(i, j, StudF As Workbook, sheetName) As Boolean
    On Error GoTo Ehandle
    ChkSht = False
    StudF.Activate
    Sheets(sheetName).Select
    Exit Function
Ehandle:
    If Err.Number = 9 Then
        ChkSht = True
    End If
   
End Function
'This function removes $ from a string equation and sets up the test
Public Function GetEq(i, j) As String
    Dim eqstr As String
    Range(Cells(i, j), Cells(i, j)).Select
    eqstr = ActiveCell.Formula
    eqstr = UCase(eqstr)
    eqstr = Replace(eqstr, "$", "")
    If Cells(i, j).HasFormula = True Then
        GetEq = SortString(eqstr)
    Else
        GetEq = "z"
    End If
End Function
'This function gets the raw equation for feedback
Public Function MstEq(i, j) As String
    Dim eqstr As String
    Range(Cells(i, j), Cells(i, j)).Select
    eqstr = ActiveCell.Formula
    eqstr = UCase(eqstr)
    MstEq = eqstr
End Function
'This section of code sorts a string equation in alpha order
Public Function SortString(strString As String) As String
    Dim l As Long, lngLen As Long, s() As Variant
    lngLen = Len(strString)
    ReDim s(1 To lngLen) As Variant
    For l = 1 To lngLen
        s(l) = Mid(strString, l, 1)
    Next l
   
    BubbleSortString s
   
    For l = 1 To lngLen
        SortString = SortString & s(l)
    Next l
   
    'Debug.Print "SortString('" & strString & "') = " & SortString
   
End Function
Public Function BubbleSortString(ByRef iArray As Variant)
    'Based on http://support.microsoft.com/kb/169617/en-us
   
    Dim lLoop1 As Long
    Dim lLoop2 As Long
    Dim lTemp As String
    For lLoop1 = UBound(iArray) To LBound(iArray) Step -1
        For lLoop2 = LBound(iArray) + 1 To lLoop1
            If iArray(lLoop2 - 1) > iArray(lLoop2) Then
                lTemp = iArray(lLoop2 - 1)
                iArray(lLoop2 - 1) = iArray(lLoop2)
                iArray(lLoop2) = lTemp
            End If
       Next lLoop2
    Next lLoop1
    'For lLoop1 = LBound(iArray) To UBound(iArray)
        'Debug.Print "iArray(" & lLoop1 & ") = " & iArray(lLoop1)
    'Next lLoop1
End Function
Public Function Ceiling(ByVal X As Double, Optional ByVal Factor As Double = 1) As Double
    ' X is the value you want to round
    ' is the multiple to which you want to round
    Ceiling = Int(X) + IIf((X = Int(X)), 0, 1)
End Function
Public Sub createNewDirectory(directoryName As String)
    
    If Not DirExists(directoryName) Then
        MkDir (directoryName)
    End If
End Sub
Function DirExists(DirName As String) As Boolean
    On Error GoTo ErrorHandler
    DirExists = GetAttr(DirName) And vbDirectory
ErrorHandler:
End Function
http://support.microsoft.com/kb/169617/en-us