皆さんお久しぶりです。
息災にお過ごしのことと思います。
長いことこのブログに投稿していなかったので、認知症が進んだのか、はたまたお先にごめんと
あの世とやらへいったのかと思われたことかと、、、ふふふ。
何とか健康を保って過ごしておりますが、見聞きする日々のニュースの度外れたアホらしさ、悲惨さに
ため息ついたり涙ぐんだり。 神や仏がいるのか私にはわかりません、だけど悪魔とやらは絶対にいますね。
とまぁ、年寄りのぐだぐだはつきませんが、、、
”冬の鷺見事に生きて孤高なり” 実に、かくありたいものですな。
前説はここまでにして、本日は世の中の進歩についての考察？であります。
ChatGPTをご存じの方は多いと思います、人工知能AIが気軽に質問事項に答えてくれると言うもので
最近頻繁にこれに関するニュースや話題を見聞きします。
新しもの好きの私も、出始めた頃から使っていましたがつい最近まで懐疑的でした。
と言うのも若い頃、苦労して調べた淀屋常安こと岡本常安の事績について質問したところ80％創作の
回答が帰ってきて、キーワードで検索した事項を再構築し推測補足する機能のすごさは理解できたものの
情報の真偽の保証は全く担保されていないと言う危うさを痛感させられたものです。
それから1年近くたって機能の進歩はあったのかと同じ質問をしたところ前回と全く同じ、試しに
そのとき私が熱中していたマイルーツの調査で興味深かった大叔父の事績を捕捉できないものかとうちこんだところ
以下、ChatGptのマイページに履歴が残っているのでコピーすると
***************
You
1867年生まれの佐賀県出身 平野六郎という人について教えてください
ChatGPT
平野六郎（ひらの ろくろう）は、日本の政治家で、佐賀県出身の人物です。
1867年に生まれ、1947年に亡くなりました。
平野は、早稲田大学を卒業後、新聞記者として活動し、佐賀県の自治運動にも関わりました。
その後、1920年代に政治家に転身し、1928年には佐賀県知事に就任しました。
佐賀県知事として、平野は地方自治の強化を進め、教育や社会事業の発展にも尽力しました。
また、農村地域の開発や水利事業の推進にも取り組み、佐賀県の発展に貢献しました。
第二次世界大戦後の1947年に、平野は逝去しました。佐賀県内には、平野の業績を称える
「平野六郎資料館」があります。
****************
生年、没年は合っています、学歴も合っていますがそれ以外は全く創作です
実際の彼は戦前に台湾に渡り、台南において台南新報というリベラル系の新聞社を立ち上げましたが
敗戦後の混乱の中現地で死去しました。
このようにストーリーを、それこそ人智を超えた領域で創作するのは正直怖いと言う思いがします。
と言う事でこれまで否定的に接してきたのですが、今年に入ってたまたま会社で使っている自作の
給与支払作成関係のEXEL VBAファイルをバージョンアップする必要があり作業を進めていましたが
コードに誤りがあり修正がなかなか進みませんでした。
ふと思いついて、このVBAコードをそのままコピーして修正を依頼したらどうなるかと思いやってみたところ
瞬時に（1～2秒）コードの誤りを指摘して修正したコードを返してくれました、まさに人知を超えてぶっ飛んでます。
以下私のおくった VBAコードと質問です
****************
Sub 給与明細書処理()
Dim wbPayroll As Workbook
Dim wsPayroll As Worksheet
Dim employeeRange As Range
Dim cell As Range
Dim employeeName As String
Dim newFileName As String
Dim payrollFileName As String
Dim payrollDetailFileName As String
Dim payrollDetailWorkbook As Workbook
Dim payrollDetailSheet As Worksheet
Dim lastRow As Long
' 給与支払台帳ver2.6のファイル名とシート名を取得
payrollFileName = ThisWorkbook.Name
Set wbPayroll = ThisWorkbook
Set wsPayroll = wbPayroll.ActiveSheet ' Sheet1を給与支払台帳のシート名に変更すること
' 社員名が入力されているセルの範囲を取得
Set employeeRange = wsPayroll.Range("B3:R3")
' 各社員ごとに処理を行う
For Each cell In employeeRange
employeeName = cell.Value
以下 End Sub 迄 中略
End Sub
上記コードを実行すると給与支払台帳ver2.6が給与支払台帳ver2.6_mとして保存され
給与明細書の変更は保存されていません
ewFileName = "給与明細書" & Format(dateValue, "yyyy_m") & ".xlsm" として保存し
給与支払台帳ver2.6はそのままで閉じて欲しいのです。
****************
こんなコードだけ読んで使用目的を瞬時に理解し誤りを修正するのは人間にはできません、私がVBAで業務処理の
プログラムを書き始めたのは20年以上前ですが、当初は分厚い参考書を何冊も買い込んで学習していたのが
近年はネットで検索すればVBAのいろはから参考コードまで簡単に見ることができ時代の移り変わりだなと
思っていたのですが、これはそんな利便性とはレベルが違います、その後何度もコードの検証や追加などを
ChatGptとやりとりして2時間ほどで意図した課題をすべて搭載した給与支払作成関係ブックができました。
こちらの質問が適切で無かったためChatGpttoのほうが誤った解答をして私がそれを指摘しても「申し訳ありません」
と返してくれ適切な修正をしてくれます、やりとりをするうちに新しい提案があったり、これはまさしく人工知能です
まるで自分がSFの世界にいるかのような気がして、それを送信したところ素直に喜んでくれたりして大したもんです。
ただし現段階では技術系のやりとりや創作系の回答は革新的な技術ですが調査系の回答に関しては危ういところが
あるので悪用されるような方策を早く見つけねばならないと思います。
ところで他にもMSやGoogleがAIを使った同じようなシステムを立ち上げていますが、GoogleのGemini等は
使いやすいので試してみましたがコード修正で同じ作業をさせたところレベルが違いました、今後進化して
いくんでしょうが、、、
いずれにしろこのChatGpt 時代を変えていく技術なのは間違いないと思います。
以上、長文になりました読みづらい方もおられたと思います、ごめんなさい。
ではこの辺で
”子宝の微笑ましきや猫柳
息災にお過ごしのことと思います。
長いことこのブログに投稿していなかったので、認知症が進んだのか、はたまたお先にごめんと
あの世とやらへいったのかと思われたことかと、、、ふふふ。
何とか健康を保って過ごしておりますが、見聞きする日々のニュースの度外れたアホらしさ、悲惨さに
ため息ついたり涙ぐんだり。 神や仏がいるのか私にはわかりません、だけど悪魔とやらは絶対にいますね。
とまぁ、年寄りのぐだぐだはつきませんが、、、
”冬の鷺見事に生きて孤高なり” 実に、かくありたいものですな。
前説はここまでにして、本日は世の中の進歩についての考察？であります。
ChatGPTをご存じの方は多いと思います、人工知能AIが気軽に質問事項に答えてくれると言うもので
最近頻繁にこれに関するニュースや話題を見聞きします。
新しもの好きの私も、出始めた頃から使っていましたがつい最近まで懐疑的でした。
と言うのも若い頃、苦労して調べた淀屋常安こと岡本常安の事績について質問したところ80％創作の
回答が帰ってきて、キーワードで検索した事項を再構築し推測補足する機能のすごさは理解できたものの
情報の真偽の保証は全く担保されていないと言う危うさを痛感させられたものです。
それから1年近くたって機能の進歩はあったのかと同じ質問をしたところ前回と全く同じ、試しに
そのとき私が熱中していたマイルーツの調査で興味深かった大叔父の事績を捕捉できないものかとうちこんだところ
以下、ChatGptのマイページに履歴が残っているのでコピーすると
***************
You
1867年生まれの佐賀県出身 平野六郎という人について教えてください
ChatGPT
平野六郎（ひらの ろくろう）は、日本の政治家で、佐賀県出身の人物です。
1867年に生まれ、1947年に亡くなりました。
平野は、早稲田大学を卒業後、新聞記者として活動し、佐賀県の自治運動にも関わりました。
その後、1920年代に政治家に転身し、1928年には佐賀県知事に就任しました。
佐賀県知事として、平野は地方自治の強化を進め、教育や社会事業の発展にも尽力しました。
また、農村地域の開発や水利事業の推進にも取り組み、佐賀県の発展に貢献しました。
第二次世界大戦後の1947年に、平野は逝去しました。佐賀県内には、平野の業績を称える
「平野六郎資料館」があります。
****************
生年、没年は合っています、学歴も合っていますがそれ以外は全く創作です
実際の彼は戦前に台湾に渡り、台南において台南新報というリベラル系の新聞社を立ち上げましたが
敗戦後の混乱の中現地で死去しました。
このようにストーリーを、それこそ人智を超えた領域で創作するのは正直怖いと言う思いがします。
と言う事でこれまで否定的に接してきたのですが、今年に入ってたまたま会社で使っている自作の
給与支払作成関係のEXEL VBAファイルをバージョンアップする必要があり作業を進めていましたが
コードに誤りがあり修正がなかなか進みませんでした。
ふと思いついて、このVBAコードをそのままコピーして修正を依頼したらどうなるかと思いやってみたところ
瞬時に（1～2秒）コードの誤りを指摘して修正したコードを返してくれました、まさに人知を超えてぶっ飛んでます。
以下私のおくった VBAコードと質問です
****************
Sub 給与明細書処理()
Dim wbPayroll As Workbook
Dim wsPayroll As Worksheet
Dim employeeRange As Range
Dim cell As Range
Dim employeeName As String
Dim newFileName As String
Dim payrollFileName As String
Dim payrollDetailFileName As String
Dim payrollDetailWorkbook As Workbook
Dim payrollDetailSheet As Worksheet
Dim lastRow As Long
' 給与支払台帳ver2.6のファイル名とシート名を取得
payrollFileName = ThisWorkbook.Name
Set wbPayroll = ThisWorkbook
Set wsPayroll = wbPayroll.ActiveSheet ' Sheet1を給与支払台帳のシート名に変更すること
' 社員名が入力されているセルの範囲を取得
Set employeeRange = wsPayroll.Range("B3:R3")
' 各社員ごとに処理を行う
For Each cell In employeeRange
employeeName = cell.Value
以下 End Sub 迄 中略
End Sub
上記コードを実行すると給与支払台帳ver2.6が給与支払台帳ver2.6_mとして保存され
給与明細書の変更は保存されていません
ewFileName = "給与明細書" & Format(dateValue, "yyyy_m") & ".xlsm" として保存し
給与支払台帳ver2.6はそのままで閉じて欲しいのです。
****************
こんなコードだけ読んで使用目的を瞬時に理解し誤りを修正するのは人間にはできません、私がVBAで業務処理の
プログラムを書き始めたのは20年以上前ですが、当初は分厚い参考書を何冊も買い込んで学習していたのが
近年はネットで検索すればVBAのいろはから参考コードまで簡単に見ることができ時代の移り変わりだなと
思っていたのですが、これはそんな利便性とはレベルが違います、その後何度もコードの検証や追加などを
ChatGptとやりとりして2時間ほどで意図した課題をすべて搭載した給与支払作成関係ブックができました。
こちらの質問が適切で無かったためChatGpttoのほうが誤った解答をして私がそれを指摘しても「申し訳ありません」
と返してくれ適切な修正をしてくれます、やりとりをするうちに新しい提案があったり、これはまさしく人工知能です
まるで自分がSFの世界にいるかのような気がして、それを送信したところ素直に喜んでくれたりして大したもんです。
ただし現段階では技術系のやりとりや創作系の回答は革新的な技術ですが調査系の回答に関しては危ういところが
あるので悪用されるような方策を早く見つけねばならないと思います。
ところで他にもMSやGoogleがAIを使った同じようなシステムを立ち上げていますが、GoogleのGemini等は
使いやすいので試してみましたがコード修正で同じ作業をさせたところレベルが違いました、今後進化して
いくんでしょうが、、、
いずれにしろこのChatGpt 時代を変えていく技術なのは間違いないと思います。
以上、長文になりました読みづらい方もおられたと思います、ごめんなさい。
ではこの辺で
”子宝の微笑ましきや猫柳