#excel #vba
#превосходить #vba
Вопрос:
У меня есть функция VBA, которая должна отображать результат в ячейке Excel, но, похоже, мне здесь чего-то не хватает, как я и пытался в течение нескольких дней.
Возможно, я неправильно представил это, но, как я уже говорил ранее, я новичок в кодировании, сэр. Я видел этот инструмент на Github, который можно использовать для генерации адреса Btc из закрытого ключа через VBA/Excel, поэтому я пытаюсь создать адрес Btc из закрытого ключа. Вот где у меня на самом деле возникают трудности. Код возвращает #ЗНАЧЕНИЕ! ошибка всякий раз, когда я пытался вывести данные в Excel. Вот инструмент на Github github.com/thetrik/BitcoinVB и вот где я извлек код из инструмента github.com/thetrik/BitcoinVB/blob/main/CBTCGenerator.cls .
Как я могу заставить функцию ниже сделать именно это. Пожалуйста, я новичок в кодировании:
Public Function PrivateKeyToWIF( _ ByRef bData() As Byte) As String Dim bSha256() As Byte Dim bResult() As Byte ReDim bSha256(31) ReDim bResult(37) memcpy bResult(1), bData(0), UBound(bData) 1 bResult(0) = amp;H80 bResult(33) = 1 ' // Compressed sha256 bResult(0), 34, bSha256(0) sha256 bSha256(0), 32, bSha256(0) bResult(34) = bSha256(0) bResult(35) = bSha256(1) bResult(36) = bSha256(2) bResult(37) = bSha256(3) PrivateKeyToWIF = ToBase58(bResult) End Function