アクティブ セルからアルファベットの 1 文字を取得し、5 桁先の文字に置き換える VBA マクロを作成しようとしています (つまり、"a" は "f" になり、"x" は "c" になります)。これは、すべての文字が 5 桁戻された暗号化テキストのファイルをデコードするためのものです。
これまでのところ、文字のASCII値を使用してその整数から文字に変換しようとしましたが、これは機能していないようで(実行時エラー13)、もっと効率的な方法があるかどうか疑問に思わずにはいられません. これが私がこれまでに持っているものです：
Sub DECODER()
Worksheets("Sheet1").Activate
Dim What As String
What = ActiveCell.Value
Dim dCode As String
If What = "" Then
dCode = What
Else
dCode = Chr(Asc((What) + 5))
End If
ActiveCell.Value = dCode
End Sub