[[20060717090739]]　『#NAME?エラー』（yumi）　ページの最後に飛ぶ

『#NAME?エラー』（yumi）

 よろしくお願いいたします

 A列の半角カタカナをC列に全角で取り出したくて
 つぎのようなコードにしました
 Sub test()
 Range("C1").Formula = "=JIS(A1)"
 Range("C1").AutoFill Destination:=Range("C1:C10"), Type:=xlFillDefault
 End Sub

 C列は#NAME?エラーになってしまいます
 しかしC1を選択 数式バーをアクティブにしてEnterで確定すると
 正しく全角に変換されます

 数式の使い方が悪いのでしょうか

 Excel2003WindowsXP

 [Visual Basic Editor]のヘルプを開いて
 「Visual Basic で使用できるワークシート関数一覧」を検索すると
 その中に　JIS関数が無いので、VBAでは使えないんだと思います。
 （ちなみに、VLOOKUP関数とかは使えるので　使うときは
   Application.WorksheetFunction.VLookup(・,・,・)とします。）

 マクロの記録を行ってC1セルに　=JIS(A1)　と入れると
     ActiveCell.FormulaR1C1 = "=DBCS(RC[-2])"
 と記録されるので、"=JIS(A1)"の代わりに"=DBCS(RC[-2])"
 とするのはどうでしょうか？

 Range("C1").Formula = "=DBCS(RC[-2])"

 (HANA)

 HANAさん解答ありがとうございます

 私もマクロの記録からコピーして
 Range("C1").Formula = "=JIS(A1)"
 を
 Range("C1").Formula = "=DBCS(A1)"
 としたらうまく変換できました＼＾＾／
 ご指摘の JISがマクロで使えない とはビックリです
 DBCSも
 関数一覧にも F1ヘルプにも見あたりません
 DBCSてなんですか？
 (yumi)

 さあ、何でしょうね？
 私もマクロの記録からコピーしただけなので・・・。

 とりあえず、検索してみると
 「DBCS　Double Byte Character Set」
 とありました。
 DBCSが何の頭文字を取った名前かが分かっても仕方ないので
 「DBCS とはワークシート関数の JIS に相当するものである」
 と言うしかないような気がします。
 （SUM とは、引数を合計する関数である
   と言うしかないのと同様に・・・・）

 (HANA)

 >「DBCS とはワークシート関数の JIS に相当するものである」
 そうですね 私もそのように理解いたします
 ありがとうございました
 (yumi)

コメント返信：

[ 一覧(最新更新順) ]

[[20060717090739]] 『#NAME?エラー』（yumi） ページの最後に飛ぶ

[[20060717090739]]　『#NAME?エラー』（yumi）　ページの最後に飛ぶ