[[20160809103803]]　『マクロで設定したJIS関数(全角文字化)がエラー』（代理人）　ページの最後に飛ぶ

『マクロで設定したJIS関数(全角文字化)がエラー』（代理人）

大変久しぶりに質問させていただきます。

 マクロでセルに設定した下記JIS関数がエラーとなり止まってしまいます。

 Public yeamon as String
 yeamon="1608"  <-- 実際はテキストBOXの入力値をyeamonへ代入している
 Range("A1").FormulaR1C1 = "=JIS(""" & Right(yeamon, 2) & """)"

 《実行後の現象》
 ・A1には #NAME? が表示されます。
 ・A1にカーソルを当てると、数式バーには正しく関数が表示されています
 　=JIS(08)
 ・数式バー内でクリックし編集モードにして、何も変更せずENTERを押すとA1に正しく"０８"と表示されます。

 式は正しいと思われるので止まらないようにしたいです。
 アドバイスよろしくお願いいたします。　　　　　　　　（代理人）

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

 JIS関数は日本版でワークシート上で使う場合になる。

 VBA内ではDBCSとしてくれ。

 マクロの記録でセルにJIS関数を入力するのを記録して確認するとVBA内ではDBCSになっているのがわかるだろう。
（ねむねむ） 2016/08/09(火) 11:24

 というか、VBAのStrConv関数で全角化した文字そのものを入れるのではまずいのか？
（ねむねむ） 2016/08/09(火) 11:40

ねむねむ様

アドバイスありがとうございました。

 やってみましたがご指摘の通りですね。知りませんでした。
 "VBAのStrConv関数で全角化した文字そのものを入れる"については
 使用したことのない関数のため調べてトライしてみます。

これでマニュアルを簡素化できます。ありがとうございました。（代理人）
（代理人） 2016/08/09(火) 11:53

コメント返信：