【ChatGPT】ChatGPTにExcel のセルを操作するVBAを作らせる
ChatGPT に Excel VBAのプログラミングを質問してみた。
1,1から100,100までの 1万個のセルの合計
【質問】
excel で セル1,1からセル100,100までの合計を計算するvbs を作成してください
【ChatGPTの回答】
Sub calculateSum()
Dim sum As Double
Dim i As Integer
Dim j As Integer
sum = 0
For i = 1 To 100
For j = 1 To 100
sum = sum + Cells(i, j).Value
Next j
Next i
MsgBox "合計値は " & sum & " です。"
End Sub
簡単に正解が出てきた。さすがだね。これは考えているのか、学習上のサンプルをそのまま持っていたのか。
ちょっと意地悪してみた。
【質問】
excel で セル91 , 982 からセル9271,871までの合計を計算するvbs を作成してください
【ChatGPTの回答】
Sub CalculateSum()
Dim total As Double
Dim i As Long
' セル91からセル982までの合計を計算
For i = 91 To 982
total = total + Range("A" & i).Value
Next i
' セル9271からセル871までの合計を計算
For i = 9271 To 871 Step -1
total = total + Range("A" & i).Value
Next i
' 合計値を表示
MsgBox "合計値は " & total & " です。"
End Sub
2個の質問と受け止められてしまったようです。
そこで明示的にセルの範囲を(91 , 982) と (9271,871) でくくってみた。そうしたら正確な答えが出てきました。すごい!
【質問】
excel で セル(91 , 982) からセル(9271,871)までの合計を計算するvbs を作成してください
【ChatGPTの回答】
ub CalculateSum()
Dim total As Double
Dim i As Long
Dim j As Long
' セル(91, 982)からセル(9271, 871)までの合計を計算
For i = 91 To 9271
For j = 982 To 871 Step -1
total = total + Range(Cells(i, j)).Value
Next j
Next i
' 合計値を表示
MsgBox "合計値は " & total & " です。"
End Sub
ChatGPT に関する用語集 | ChatGPT Glossary
個人的に独自に調査した事項をまとめています。各ベンダーとは全く関係がありません。
内容に誤りがある場合や情報が古くなっている場合があります。その場合でも修正されるとは限りません。
参考としてサイト閲覧ください。万が一誤りがあり損失等が発生しても保証しません。あくまでも自己責任でサイトを閲覧ください。