CODE関数のvbaバージョンか方法はありますか？

思い立ってアルファベットaなら1，ｂなら2と読み替えたい。
ＣＯＤＥ関数なら96引けば出ますが、
WorksheetFunctionではCODEは使えません。

WorksheetFunction.Asc("a")はそのままaが戻ってきます。
組み込む方法を教えてください。

質問者からの補足コメント

• 

  回答ありがとうございました。
  さっき気づきましたが、
  [a1].Columnnなら、96引かなくても1が戻ってくるのを。

    補足日時：2022/09/01 18:02

• 一番早く、Evaluate情報もあったQchan1962さんを選ばせていただきました。

  No.1の回答に寄せられた補足コメントです。 補足日時：2022/09/01 18:05

No.1 ベストアンサー 回答者： Qchan1962 回答日時： 2022/09/01 17:10

こんにちは

用途は別として　WorksheetFunction　は、要りません
Debug.Print Asc("a")

また、Evaluate　の場合
Debug.Print Evaluate("CODE(""a"")")

この回答へのお礼

早速の回答ありがとうございます。
vbaのAscは、Asc関数とは別の動きなんですか。
Evaluateは面白そうで勉強になりました。

お礼日時：2022/09/01 17:32

No.5 回答者： Qchan1962 回答日時： 2022/09/01 18:05

＞[a1].Columnnなら、96引かなくても1が戻ってくるのを。

やっぱり
＃１　用途は別として

この回答へのお礼

そういう用途です。

お礼日時：2022/09/01 20:31

No.4 回答者： Qchan1962 回答日時： 2022/09/01 18:03

>vbaのAscは、Asc関数とは別の動きなんですか

別物かと・・
WorksheetFunctionはご存知の通り

VBA関数　参考
https://www.tipsfound.com/vba/05001

https://docs.microsoft.com/ja-jp/office/vba/lang …

この回答へのお礼

しかし、同じ名前で動きが違うのは、何とかして欲しいです。

お礼日時：2022/09/01 18:07

No.3 回答者： t_fumiaki 回答日時： 2022/09/01 17:25

n= Asc("a")

nには97が入るど・・・・。

この回答へのお礼

マイナス96します。

お礼日時：2022/09/01 18:00

No.2 回答者： fujillin 回答日時： 2022/09/01 17:11

こんにちは

WorksheetFunction ではなく、VBAの関数を利用すればよいです。

MsgBox Asc("a")　' →　97

この回答へのお礼

早速の回答ありがとうございます。
そのまま使えば良いのですね。
しかし動きが違うのは何故なのでしょうね。

お礼日時：2022/09/01 17:34