kadonopage

2023年3月30日木曜日

なるほど

Dim value as Variant

value = Range("A1").Value

Dim value as Variant

value = Range("A1:C3").Value

分数の加法もＶＢＡでどうなるのか聞いてみました。

なんとまあ、数秒です。

Function addFractions(a As Double, b As Double, c As Double, d As Double) As String

' 最小公倍数を求める

lcm = (d * c) / Application.GCD(d, c)

' 分子を計算

numerator = (lcm / c * a) + (lcm / d * b)

' 約分

gcd = Application.GCD(numerator, lcm)

numerator = numerator / gcd

lcm = lcm / gcd

' 分数の形式で返す

addFractions = CStr(numerator) & "/" & CStr(lcm)

End Function

このホームページです。

「ChatGPTを試す」のボタンを押すと、

○メールアドレスを聞かれます。

○パスワードを聞かれます。

　※メールアドレスを登録して、その後パスワードを入力しましたが、受けつけてくれませんでした。何度も試しましましたが駄目だったので、googleアカウントを使うという項目をクリックするとすんなり入れました。

○電話番号を聞かれます（認証コードが送られてくるのでスマホの登録がいい）

○認証コードを入力します。

後は、nextのボタンを押していけば初期画面に到達します。

こんなこともきちんと答えてくれました。

こんなエラーがありました。

無理なことを聞こうとするとエラーが出るようです。

聞いた内容は、

「ホームページを無料で作成できるサイトはどこでしょう」でした。

あつかましいと思われたようです。

あっ！

少し過ぎてから見直すと、表示されていました。

どうやらシステムエラーが起きていたようです。

ちゃんと教えてくれました。