
英単語について文字ごとに点数を設定し、その単語が何点になるか計算する関数を作ろうとしています。以下の通り書いたのですが、セルを指定しても=wscore("apple")と指定しても#Name?エラーが返ってきます。どうしてでしょうか?
エクセル2003です。よろしくお願いいたします。
Public Function Wscore(w As String) As Integer
Dim i, s As Integer
Dim wd, ws As String
'入力文字列を大文字に変換
wd = LCase(w)
'文字数(ループ回数)を取得
For i = 1 To Len(wd)
'i番目の文字を取得
ws = Mid(wd, i, 1)
'点数を検索
Select Case ws
Case "a", "e", "i", "l", "n", "o", "r", "s", "t", "u"
s = 1
Case "d", "g"
s = 2
Case "b", "c", "m", "p"
s = 3
Case "f", "h", "t", "v", "w"
s = 4
Case "k"
s = 5
Case "j", "x"
s = 8
Case "q", "z"
s = 10
End Select
'得点に足す
Wscore = Wscore + s
'次の処理へ
Next i
End Function
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
【初月無料キャンペーン実施中】オンライン健康相談gooドクター
24時間365日いつでも医師に健康相談できる!詳しくはコチラ>>
-
【VBA】ユーザ定義関数が動かない
Excel(エクセル)
-
エクセルのユーザー定義関数呼び出し方法
Excel(エクセル)
-
ユーザー定義関数をEXCELに常駐させたい
その他(コンピューター・テクノロジー)
-
4
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
5
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
6
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
-
7
ローマ字→カタカナへ変換(エクセルで)
Excel(エクセル)
-
8
EXCELのVBAでシートコピーをしたとき元のマクロを削除するには?
Excel(エクセル)
-
9
Excel VBAで組んだ自作関数が認識されない
その他(プログラミング・Web制作)
-
10
Excelのセルにユーザー名を表示する方法
Excel(エクセル)
-
11
【Excel】 セルの色での判断はできますか?
Excel(エクセル)
-
12
Chr(13)とChr(10)の違いは?
PowerPoint(パワーポイント)
-
13
エクセル2010 グラフの軸の最大値最小値をセル参照する
Excel(エクセル)
-
14
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
15
エクセル 条件付き書式で色をつけたセルの個数を数えたいです。 ネットで調べてcountcolorAも
Excel(エクセル)
-
16
日付型のフィールドに空白を入れる方法を教えてください
その他(データベース)
-
17
他のBookのユーザー定義関数を使う
Excel(エクセル)
-
18
【エクセル】セル最後にある無駄改行を検索・削除したい
Excel(エクセル)
-
19
もしセルが#N/A"なら~をする・・・には?"
Excel(エクセル)
-
20
単位につける括弧
その他(自然科学)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
人気Q&Aランキング
-
4
後付けTPMについて
-
5
モジュールとクラスの違いって...
-
6
Excel VBAで、ユーザーフォーム...
-
7
VBAで別モジュールへの変数の受...
-
8
Excel VBAでリンク切れをチェッ...
-
9
VBA モジュールで共通に使う変...
-
10
モジュールからフォームのボタ...
-
11
モジュールとは何ですか
-
12
EXECEL VBA コマンドボタンか...
-
13
'Range'メソッドは失敗しました
-
14
標準モジュールを削除したい。(...
-
15
Tomcat マイナーバージョン移行...
-
16
別シートに罫線がひけない
-
17
本当にPublicな変数(配列で)
-
18
エクセルVBAでシートモジュール...
-
19
ExcelVBA:パブリック オブジェ...
-
20
VBAのコードを書くところ(初心...
おすすめ情報
公式facebook
公式twitter
'入力文字列を大文字に変換、は本来なら'入力文字列を小文字に変換ですね。コメントの編集ミスです。