セルの範囲から最大の2進数を見つける

Question

G列までA2からA8、B2からB8などのいくつかのセル範囲にいくつかの2進数のデータがあります。 ここでは、上記の行から最大の2進数を確認して、最後に使用された範囲の2行下のセルに貼り付けます。 （すなわち、行Aから最大の2進数をA10にペーストするなど）。 私は二進数の値を見つけることができる関数を見つけていません。実行したコードは、それらを自然数とみなして最大数を求めます。 あなたの助けに感謝します。 ありがとうございました！

Answer 1

にそれらを変更するために、Excel関数BIN2DECを使用することができます。この機能は、私が

Sub FindLargestBinary() 
On Error Resume Next 
Dim wb As Workbook 
Dim ws As Worksheet 
Set wb = Application.ThisWorkbook 
Set ws = wb.Sheets("Sheet1") 

Dim tempVal, tempRow As Integer 
Dim iCoulmn, iRow As Integer 

For iCoulmn = 1 To 7 'Run from A to G 
    tempRow = 2 
    tempVal = 0 
    For iRow = 2 To 8 'Run from row 2 to 8 
     If BinToDecConverter(ws.Cells(iRow, iCoulmn).Value) > tempVal Then tempVal = BinToDecConverter(ws.Cells(iRow, iCoulmn).Value): tempRow = iRow ' Check if current binary i higher then any previous 

    Next iRow 
    ws.Cells(iRow + 1, iCoulmn).Value = ws.Cells(tempRow, iCoulmn).Value 'Print highest binary 
Next iCoulmn 

End Sub 

（あなたのシートのためにこれを変更する必要があります）Sheet1のすべてのbinarysをループ部分を作っその後

Function BinToDecConverter(BinaryString As String) As Variant 
    Dim i As Integer 
    For i = 0 To Len(BinaryString) - 1 
     BinToDecConverter = CDec(BinToDecConverter) + Val(Mid(BinaryString, Len(BinaryString) - i, 1)) * 2^i 
    Next 
End Function 

バイナリ任意のサイズを扱う（あなたが好きな場所あなたはそれを保存することができます）これはあなたを助け

・ホープ..

Answer 2

は大丈夫最初のi 10進数とモジュールに格納するバイナリを変換する関数を作った小数

Function MaxBin(r as range) 
Dim curmax as long 
Dim s as range 
For each s in r 
    If Application.WorksheetFunction.Bin2Dec(s.Text) > curmax Then curmax = Application.WorksheetFunction.Bin2Dec(s.Text) 
Next s 
MaxBin = curmax 
End Function 

Answer 3

と仮定すると、あなたのバイナリ値は、テキスト文字列ですが、この式はMAXを見つけ、数値に値を変換し、テキスト文字列

0に戻って変換し、 CTRL + SHIFTで確認

=TEXT(MAX(A2:A8+0),"00000")

+ は

ENTERまたはあなたがAGGREGATE機能を使用して、最大を見つけ、 "アレイエントリ"

を必要としない、このバージョンを使用することができます=DEC2BIN(AGGREGATE(14,6,BIN2DEC(A2:A8+0),1))