inputs={HoldForm[Solve[(QuantityUnit[2.2`*^12])==(1/2)((QuantityUnit[68000.`]))*v^2,v]],HoldForm[Solve[(QuantityUnit[133.33333333333334`])==Sqrt[1/(1-(.3^2))] t,t]],HoldForm[Solve[Quantity[8.444,"Microcoulombs"]==x*Quantity[1,"DegreesCelsius"],x]],HoldForm[NSolve[Quantity[3.21608*10^20,"Hertz"]==((Quantity[1,"SpeedOfLight"])/x),x]],HoldForm[NSolve[((Quantity[1,"PlanckConstant"])/(x Quantity[6.646478*10^-27,"Kilograms"]))==Quantity[14.8732*10^-15,"Meters"],x]],HoldForm[N[Reduce[(1/(x*Quantity[1,"Kilometers"/"Seconds"/"Megaparsecs"]))==6000,x]]]};

FormulaGallery[forms_List] := Module[{vals=ParallelMap[ReleaseHold, forms]},TraditionalForm@Grid[Table[{forms[[i]],  vals[[i]]}, {i, Length[forms]}], Dividers->All,Spacings->{{1,1},5}, Alignment -> {{Left, Left}, Baseline}, BaseStyle->{FontFamily->"Verdana"},Background->{None,{{Lighter[Blend[{Blue,Green}],.8],White}}}]]

Pane[FormulaGallery[inputs],550]