回答編集履歴

 

  ```

 

 

 

 

 

  Sub test()

 

 

  Dim lLoop As Double 'ループカウンタ

 

 

  Dim lRow As Long '結果出力行

 

  lRow = 1

 

 

  '組み合わせ候補数の桁数の2進数全パターンをループ処理(2のiMax乗)

 

 

  End If

 

 

  '２進数文字列の中に"1"が2個以上存在する場合だけ計算する

 

 

  Dim strShiki As String '結果式

 

 

  '計算処理

 

 

  If strShiki <> "" And lAns = Cells(1, "B").Value Then

 

  '計算結果をC列に出力

 

  Cells(lRow, "C") = lAns

 

  End If

 

 

  '(参考情報：2進数文字列を出力) ※Dec2Binが9桁までしか対応していないため。

 

 

  If strShiki <> "" Then

 

  Cells(lLoop + 1, "E") = strShiki

 

  Cells(lLoop + 1, "F") = lAns

 

  End If

 

 

  Next

 

 

  MsgBox "Finish"

 

 

  End Sub

 

 

  Function fncCalc(vdNumber As Double, vsShiki As String) As Long

 

 

  Dim lAns As Long

 

 

  Dim blnAddFlg As Boolean

 

 

  lAns = 0

 

 

  blnAddFlg = False

 

 

  '2進数の桁数分ループ

 

 

  If vdNumber And 2 ^ iLoop Then

 

 

  '"1"の場合、対象行の値を加算

 

  lAns = lAns + Cells(iLoop + 1, "A").Value

 

 

  '参考情報として式も作成

 

 

  End If

 

 

  Next

 

 

  '加算していない場合、0個or１個のみの組み合わせ

 

 

  End If

 

 

  fncCalc = lAns

 

 

  End Function