Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
[ Закрыто] хеш ячейки
 
Цитата
Юрий М написал:
И здесь продолжает.
че продолжает, я не знаю какую библиотек брать, *лять((((
[ Закрыто] хеш ячейки
 
а какой именно net framework нужен ? какую версию? 4.6 я ставил уже

хотел поставить и вот что пишет
Майкрософт .NET Framework 4.5 уже является частью этой операционной системы. Установка распространяемого компонента .NET Framework 4.5 не требуется.

На этом компьютере уже установлена та же или более новая версия .NET Framework 4.5.
Изменено: aist123 - 18.02.2017 20:58:59
[ Закрыто] хеш ячейки
 
Вот что мне показывает
[ Закрыто] хеш ячейки
 
не, код не робит(((
мд5 хеш от "1" будет c4ca4238a0b923820dcc509a6f75849b
Изменено: aist123 - 18.02.2017 19:08:54
[ Закрыто] хеш ячейки
 
Как же тогда надо изменитьь код, чтобы получить мд5 от ячейки ?
Цитата
Андрей VG написал:
использует найденный код, ничего в нём не понимая
да, так и есть, потому-то я не знаю как пишется хеширование для экселя, нашел в нете только такой код.(
[ Закрыто] хеш ячейки
 
данные могут быть любые, и хеш от этих данных будет соответствущий, если ячейка пустая то мд5 будет тот который я написал выше, где ошибка в коде раз он vba пишет ЗНАЧ!?
Изменено: aist123 - 18.02.2017 11:01:19
[ Закрыто] хеш ячейки
 
нет не должно! я пишу в ячейку B2 =GetHash(a1) и кнопка энтер и в ячейке B2 должно быть типа d41d8cd98f00b204e9800998ecf8427e , но пишет #ЗНАЧ!  - почему, я не знаю, поэтому сюда написал может быть вы знаете??
[ Закрыто] хеш ячейки
 
Вставляю этот макрос в Module1, запускаю, и вижу в ячейке B2 - #ЗНАЧ! и никак не могу в чем дело! ячейка A1-  пустая, в ней нет ничего.
Код
Function GetHash(ByVal txt$) As String
    Dim oUTF8, oMD5, abyt, i&, k&, hi&, lo&, chHi$, chLo$
    Set oUTF8 = CreateObject("System.Text.UTF8Encoding")
    Set oMD5 = CreateObject("System.Security.Cryptography.MD5CryptoServiceProvider")
    abyt = oMD5.ComputeHash_2(oUTF8.GetBytes_4(txt$))
    For i = 1 To LenB(abyt)
        k = AscB(MidB(abyt, i, 1))
        lo = k Mod 16: hi = (k - lo) / 16
        If hi > 9 Then chHi = Chr(Asc("a") + hi - 10) Else chHi = Chr(Asc("0") + hi)
        If lo > 9 Then chLo = Chr(Asc("a") + lo - 10) Else chLo = Chr(Asc("0") + lo)
        GetHash = GetHash & chHi & chLo
    Next
    Set oUTF8 = Nothing: Set oMD5 = Nothing
End Function
Как предложить юзеру сохранить данные sheet2?
 
Работает норма, но как тогда можно через inputbox выдать окошко сохранить, пока что у меня ток такой код, но когда я выбираю макрсо "сохранить или нет" то просто высвечивается окошко, сохранять если да то куда если нет, то просто окошко закрывается
Код
Sub red()
Range("A2:M102").Select
Selection.AutoFilter
End Sub

Sub red1()
Worksheets("Sheet1").Range("A2:M102").Copy
ActiveSheet.Paste Destination:=Worksheets("Sheet2").Range("A2:M102")
End Sub

Sub txt()
    ChDir "C:\Users\Usersss\Desktop\6.software.txt"
    ActiveWorkbook.SaveAs Filename:="C:\Users\Usersss\Desktop\6.software.txt", FileFormat:=xlText, _
        CreateBackup:=False
End Sub

Sub Save()
    Range("A2:M102").Select
    Selection.Copy
    Sheets("Sheet2").Select
    Range("A2:M102").Select
    Application.CutCopyMode = False
    ActiveWorkbook.Save
End Sub
Как предложить юзеру сохранить данные sheet2?
 
Когда данные скопировались в sheet2 то надо спросить у юзера, хочешь сохранить данные в txt файл, если да то пусть сохранятся если нет то просто кнопка отмена и все....оч надо.
Страницы: 1
Наверх