超簡単な暗号化 : Excel(エクセル)

Excel VBAで行う簡単な暗号化です。重要な情報には勿論、使用できません。

Excel Tipsメニューに戻る

スポンサーリンク






Excel VBA コード

Option Explicit

Private ango As String

'Excel VBAで暗号化
Private Sub CommandButton1_Click()
    Dim i As Integer
    Dim s1 As String
    
    '暗号化する文字
    ango = "Excel Ninpou"
    For i = 1 To Len(ango)
        'ASCIIコードから5を引く
        s1 = s1 & Chr(Asc(Mid(ango, i, 1)) - 5)
    Next
    
    '暗号化された文字
    ango = s1
    MsgBox ango
End Sub

'Excel VBAで複合
Private Sub CommandButton2_Click()
    Dim i As Integer
    Dim s1 As String

    For i = 1 To Len(ango)
        'ASCIIコードに5を足す
        s1 = s1 & Chr(Asc(Mid(ango, i, 1)) + 5)
    Next
    
    '複合化された文字
    ango = s1
    MsgBox ango
End Sub

スポンサーリンク


Excel実行結果

■暗号化


■復号化

スポンサーリンク






Excel Tipsメニューに戻る

■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します


Copyright (c) Excel-Excel ! All rights reserved