DEC2BIN στο Excell

[petkate]

Γεια σας

έχω ένα θέμα με την μετατροπή δεκαδικού σε δυαδικό πάνω από το 511

θέλω π.χ στο β2 να έχω το δυαδικό το β1 που ειναι το 1024

 

[SirDiman]

https://support.office.com/en-us/article/DEC2BIN-function-0f63dd0e-5d1a-42d8-b511-5bf5c6d43838

 

Remarks

• If number < -512 or if number > 511, DEC2BIN returns the #NUM! error value.

[petkate]

Το γιατί το βγάζει έτσι το ξέρω

την συνάρτηση ψάχνω που θα μετατρέπει και πιο μεγάλα νούμερα 

[nucleus]

https://stackoverflow.com/questions/24387894/decimal-to-binary-conversion-for-large-numbers-in-excel

 

Για δες το παραπάνω.

[IOANNISTSA]

Function DecToBin(ByVal DecimalIn As Variant, Optional NumberOfBits As Variant) As String
  DecToBin = ""
  DecimalIn = CDec(DecimalIn)
  Do While DecimalIn <> 0
    DecToBin = Trim$(Str$(DecimalIn - 2 * Int(DecimalIn / 2))) & DecToBin
    DecimalIn = Int(DecimalIn / 2)
  Loop
  If Not IsMissing(NumberOfBits) Then
    If Len(DecToBin) > NumberOfBits Then
      DecToBin = "Error - Number too large for bit size"
    Else
      DecToBin = Right$(String$(NumberOfBits, "0") & _
      DecToBin, NumberOfBits)
    End If
  End If
End Function

 

 

 

[petkate]

Ευχαριστωωωωωωωώ

 

Ετσι για το αρχείο 

 

Στο excell 2007

alt+f11 // ανοιγει η VB

insert

module

copy paste το σκριπτακι του IOANNISTSA

Στην συνάρτηση επιλέγεις το Dec2Bin 

και ναι "ΦΩΣ"

Έγινε επεξεργασία Ιούλιος 18, 2017 από petkate