英単語について文字ごとに点数を設定し、その単語が何点になるか計算する関数を作ろうとしています。以下の通り書いたのですが、セルを指定しても=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で質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Vbaで数式をポーランド記法に変換するコードを作って実行しようとするとフリーズします。 1 2022/05/24 17:53
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Visual Basic(VBA) 先ほど、回答者様によって教えていただいたのですがどうしたらいいか分かりません。 ユーザーフォーム上に 2 2023/02/21 22:25
- Visual Basic(VBA) VBA 改行コードの取り方 1 2022/03/22 14:14
- Visual Basic(VBA) Excel vbaについての質問 3 2023/04/18 16:14
- Visual Basic(VBA) vbaでセルに入力したときに,その横にあるセルを保護し入力不可にするマクロを作りたいです。 2 2022/04/24 20:59
- Visual Basic(VBA) エクセルのVBAでダブルクリックでチェックを入れたあと 1 2022/10/26 20:30
- Excel(エクセル) 2つのVBAを一緒にしたら機能しなくなりました(エクセル) 7 2022/06/02 12:41
- Visual Basic(VBA) 【追加】ファイルを閉じてダイアログで保存した時だけ処理の実行をする 3 2022/03/23 15:43
- C言語・C++・C# C++のcinの動作 5 2023/02/26 00:13
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
エクセルのユーザー定義関数呼び出し方法
Excel(エクセル)
-
【VBA】ユーザ定義関数が動かない
Excel(エクセル)
-
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
-
4
関数名は合っているのに#NAME?と表示される
Windows Vista・XP
-
5
エクセルでエラーが出て困っています。
Excel(エクセル)
-
6
エクセルのユーザー定義関数で(VBA)
Excel(エクセル)
-
7
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
8
Excelのセルにユーザー名を表示する方法
Excel(エクセル)
-
9
エクセル2010 グラフの軸の最大値最小値をセル参照する
Excel(エクセル)
-
10
エクセル、 名前の定義に関数を使用すると参照できない
Excel(エクセル)
-
11
OUTLOOK ハイパーリンク返信時に半角が全角になってしまう
Outlook(アウトルック)
-
12
展示会を見に行くことを何という?
その他(ビジネス・キャリア)
-
13
On ErrorでエラーNoが0
Visual Basic(VBA)
-
14
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
-
15
Excelの2軸グラフ(棒と折れ線)の凡例の順序の変更方法
Excel(エクセル)
-
16
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
17
ADOを使ったDBアクセス後のメモリ解放
その他(データベース)
-
18
Access フォーム上でのテキストボックスとテーブルの連結
Access(アクセス)
-
19
ユーザー定義関数をEXCELに常駐させたい
その他(コンピューター・テクノロジー)
-
20
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ArduinoのジャイロモジュールMP...
-
Excel VBA 定義されたプロージ...
-
グラフのX,Y座標を取得したい
-
【vba】フォームに書いてあ...
-
VBでグローバル変数を宣言するには
-
VBAで別モジュールへの変数の受...
-
印刷後メッセージボックスを表...
-
VBAを使用してWordからExcelの...
-
VBAで旧字体を異字体に一括で変...
-
モジュールとは何ですか
-
VBA This Workbookモジュール...
-
Excel VBAでリンク切れをチェッ...
-
プラグイン、ライブラリ、コン...
-
Excel VBA 標準モジュール内で...
-
大量の標準モジュールを解放す...
-
モジュールからフォームのボタ...
-
偶数/奇数の判定
-
ユーザー定義関数に#NAME?が返...
-
AddressOf と同じ機能を持った...
-
CPANのインストールモジュール...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel VBAでリンク切れをチェッ...
-
ユーザー定義関数に#NAME?が返...
-
VBAで別モジュールへの変数の受...
-
VBでグローバル変数を宣言するには
-
エクセルVBAでシートモジュール...
-
VBA This Workbookモジュール...
-
モジュールの最大数はいくつな...
-
Excel VBAで、ユーザーフォーム...
-
VBAで旧字体を異字体に一括で変...
-
Access VBA標準モジュールにつ...
-
VBA モジュールで共通に使う変...
-
'Range'メソッドは失敗しました
-
グラフのX,Y座標を取得したい
-
モジュールとは何ですか
-
Excel VBA 『Call』で呼び出す...
-
プラグイン、ライブラリ、コン...
-
【vba】フォームに書いてあ...
-
モジュールからフォームのボタ...
-
モジュールとクラスの違いって...
-
acwzlibとは?
おすすめ情報
'入力文字列を大文字に変換、は本来なら'入力文字列を小文字に変換ですね。コメントの編集ミスです。