Reversing Macro
Reversing Macro
Excel macro discussed reverse?
Well, I want to be able to create a macro to take a number and then determine what combination a list of numbers to add up. For example (simplified): 23 12 45 65 32 21 43 76 56 61 Which combination of these figures added to 121? " (45, 12, 21, 43) I need the macro to evaluate a list that may change each time (ie the GSG can be 4 numbers once, and 12 questions the next time). I am not interested in multiple answers that the number tested range of 0.01 to 99999.99 Thanks!
Well, here in my it. Macro below assumes that your list of issues through research is in column A from A1 and the number you want to find a result in cell B1. Find the first combination of numbers that add a column to the value in B1, then stops. The combination may or may not be the least of numbers. Only is the first combination of the value in A1. In the list above will give the macro is 23, 12, 65, 21 for a total of 121. The results are presented in a message box that you have not specified how he wanted the result. Note: If you have a long list of numbers too can enjoy the macro take a long time to explore all possible combinations. Option Explicit Dim As String Dim As Double Sun sSolution As Boolean Sub dEndResult bFound Reverse_Sum () rList attenuated as "rList Set range = Range (" A1 ") dEndResult = Range (" B1 "). Value 'Set rList = Range (rList, rList.End (xlDown)) bFound' = False Call iterate (rList, 0, "") 'If Then bFound sSolution = right (sSolution, Len (sSolution) – 2) MsgBox sSolution, Title: = "The combination of "& dEndResult Else MsgBox" No combination found. "Title: =" Combining "and dEndResult End If End Sub Private Sub iterate (rList As Range, SubTot As Double, i SubSolution As String) 'Dim Dim dTotal Double As Integer For i = 1 TB = + rList.Count dTotal SubTot rList dTotal dEndResult (I) = If = Then sSolution SubSolution & "" & CStr (rList (i)) = True Exit For bFound dTotal dEndResult "ElseIf Y <i After rList.Count Call iterate (Range (rList (i + 1), rList (rList.Count)), dTotal, SubSolution & "" & CStr (rList (i))) Then Exit For End If If bFound Next i End Sub
European stocks dip on U.S. recovery issues * FTSEurofirst 300 falls 0.3 PCT, show a monthly increase
| | Fotodiox 52mm Filter Thread Lens, Macro Reverse Ring Camera Mount Adapter, for Nikon D1, D2, D3, D3x,D3s, D100, D200, D300, D300s, D700, D40, D40x, D50, D60, D70, D70s, D80, D90, D3000, D3100, D5000, D7000 $7.95 By mounting the lens backward on a camera body, you can create amazing macro images. It is extremely fun to turn you lens into a macro lens…. |
| | Fotodiox 58mm Filter Thread Lens, Macro Reverse Ring Camera Mount Adapter for Canon EOS 1d,1ds,Mark II, III, IV, 5D, Mark II, 7D, 10D, 20D, 30D, 40D, 50D, 60D, Digital Rebel xt, xti, xs, xsi, t1i, t2i, 300D, 350D, 400D, 450D, 500D, 550D, 1000D $6.95 By mounting the lens backward on a camera body, you can create amazing macro images. It is extremely fun to turn you lens into a macro lens…. |
| | Reverse Macro Lens Adaptor for Canon 52mm EOS SLR DSLR $1,009.98 |
| | Contax reverse 52- 55 macro mount $75.00 |
| | TOPCON/EXAKTA 49MM LENS REVERSE ADAPTER RING.for macro. $69.00 |
| | PENTAX BAYONET 49MM LENS REVERSE ADAPTER RING 4 MACRO. $59.00 |
| | TOPCON/EXAKTA 49MM LENS REVERSE ADAPTER RING.for macro. $59.00 |
| | NIKON F BR 2 REVERSE ADAPTER RING /52MM MACRO/CLOSE UP $56.99 |
| | Canon Macro Coupler FL 55mm FD lens Extension tube / Reversing ring – Nice Ex++! $50.00 |
| | Pentacon Six + MACRO+ Reverse 62mm to Canon EOS Adapter $49.99 |
| | Pentacon Six + MACRO+ Reverse 67mm to Canon EOS Adapter $49.99 |
| | Pentacon Six + MACRO + Reverse 62mm to Nikon Adapter $49.99 |
| | Pentacon Six + MACRO + Reverse 67mm to Nikon Adapter $49.99 |
| | Pentacon Six + MACRO+ Reverse 67mm to Canon EOS Adapter $49.98 |
| | 12 Metal Reverse Mount Macro Lens Adapter for CANON EOS $49.00 |
| | Nikon F Nikkor BR3 lens adapter macro genuine reversing $47.49 |
| | TOPCOR TOPCON 62MM REVERSE RING FOR MACRO/CLOSEUP PHOTO $47.49 |
| | Nikon BR-2A Lens Reversing Ring Macro Adapter 52mm BR2A $44.95 |
| | Nikon BR-2A and Br-3 macro and reversing rings $40.00 |
| | TOPCON 62MM REVERSE RING FOR MACRO/CLOSEUP PHOTO $39.99 |
| | 10 Metal Reverse Mount Macro Adapter for CANON EOS $39.95 |
| | BR2 Macro Reversing Ring – 52mm Male thread & Nikon F $35.00 |
| | Genuine PENTAX M42 Macro Reverse Ring 49mm Excellent! $35.00 |
| | Genuine PENTAX M42 Macro Reverse Ring 49mm $35.00 |
| | 52mm Macro Reverse Mount Ring Adapter,Canon EOS w/Focus $34.95 |
| | 58mm Macro Reverse Mount Ring Adapter,Canon EOS w/Focus $34.95 |
| | GENUINE Nikon BR-2A Lens Macro Reversing Ring 50mm f1.4 $28.90 |
| | LENS MACRO REVERSING ADAPTER RING FOR NIKON BR2A BR-2A $26.99 |
| | LENS MACRO REVERSING RING 52MM 52 MM NIKON BR-2A BR2A $26.99 |
| | LENS MACRO REVERSING RING 52MM 52 MM NIKON BR-2A BR2A $25.64 |
| | Genuine Nikon BR-2 reversing ring close up macro adapter – very nice – E026 $25.49 |
| | Nikon BR-2 Nikon BR-2 Macro Reversing Adapter 52mm $25.00 |
| | 49mm & 52mm Macro Reverse Adapter Ring For Pentax PK $23.00 |
| | 5X Lens reversal Macro reversing ring,adapter NIKON MOUNT 52MM FOR DSLR CAMERA $22.99 |
| | 5X Lens reversal,MACRO reversing ring,adapter for Canon EOS MOUNT DSLR CAMERA $22.99 |
| | Reverse Adapter Ring -Extreme MACRO for Pentax K-x,K20D $21.95 |
| | Reverse Adapter Ring -Extreme MACRO for Pentax K 52mm $21.95 |
| | Nikon F Mount 52mm Reverse Reversing Adapter Ring Macro $21.21 |
| | Macro Reverse Adaptor 55mm for Sony A450 A500 A550 A850 $20.90 |
| | Macro Reverse Adaptor 55mm for Sony A700 A350 A33 A55 $20.90 |
| | Macro Reverse Ring 55mm Adapter for Sony A380 A330 A230 $20.90 |
| | Lens reversal Macro reversing ring,adapter NIKON MOUNT 52MM 58MM 67MM 72MM DSLR $20.00 |