ＶＢＡ ユーザ定義関数の使い方です

質問

ＶＢＡ　ユーザ定義関数の使い方です
Sub test（）
cells(1,1)=UpperSutegana(cells(1,1))

End sub

http://www.relief.jp/itnote/archives/002223.phpのソースをコピー

としましたがうまくいきません。なぜでしょうか？

回答No.2

jcctaira · ベストアンサー

問題なくできます。

A1：ぁぃぅァィゥ
　　　↓
　testを実行
　　　↓
A1：あいうアイウ

何が問題なのでしょうか？
※特定の文字ができない等々

回答No.4

okormazd

>としましたがうまくいきません。
どうなるのでしょうか。

特に問題は無いようですが。
UpperSuteganaのコードを見ても、実行の途中で、Cells(1,1)にデータを返したり、参照したりしていないので、循環参照にもならない。はじめCells(1,1)からのデータを取って、全部の文字列を大文字に変換してしてCells(1,1)に返しているだけだから、無限ループにもならない。

testをちゃんと実行しましたか。

なお、ふつうユーザー定義関数の利用は、Excelのセルに入れて使うので、Cells(1,1)のデータを変換するのに、Cells(1,1)に入れることはありません。

回答No.3

kybo

ユーザー定義関数の使い方を間違えておられませんか？
以下のページではセルに入力して使用する方法を紹介していますが、今回はそのような必要はありません。
http://www.relief.jp/itnote/archives/002223.php
の太字の部分（Function UpperSutegana(strOrg As String) As String～End Functionまで）すべてをコピーし、標準モジュールに貼り付け。
同じ標準モジュールにtarono0123 さんのソース（Sub test（）～End subまで）を貼り付け。

testを実行すれば、A1のセルに入力したものは、正しく変換されるはず。

回答No.1

akina_line

こんにちは。

　2行目を
　　Cells(1, 2) = UpperSutegana(Cells(1, 1))
　としたら、うまくできました。
　元のだと、無限ループになるかもしれません。

では。