ChatGPTの小ネタ！

令和５年６月４日（日曜日）

みなさん、おはようございます！
台風も過ぎ去り、今日も晴れましたね！

毎度の東の空と、西の空！
対照的なイメージなので、合わせてどうぞ！
(o^―^o)ﾆｺ

最高気温は、26度、最低17度ですね。
そこそこ、すごしやすい日となりそうです。

頭痛～る！
台風も過ぎ去り、通常です！
(o^―^o)ﾆｺ

さてさて、みなさん、日曜日となりましたけど、
いかがお過ごしでしょうか？

タイムカード、経費精算は、
是非、本日中にお願いしますね！

さてと、まずは、いつものお礼から！
ブログの購読、感想、個別コメント、
誠にありがとうございます。

今日は、イースマイル所属の方のリンク集から！
確認が、まとめてとなり、ほんと、ごめんなさいね。
m(__)m

ゼルダがギネス更新
アキバCOギャラリー
あまりの密度に素晴らしくて胸がギュッてなるミクさん
ブループロトコル
在来線も止まりどうしよう
ドラゴンクエストモンスターズ
ドラクエ25th
ちゅ～る！

そして、僕のカバンを、枕にするちぃ！（笑）

そして、ここからは、毎度の情シスひとり、
助っ人ChatGPT、サポート、総務、教育、T君ですね。

で、、、久しぶりに、ChatGPTネタ！

ExcelのVBAで、セルA8から、A20 までのデーターを、
B8から、B20に、変換してコピーする。
変換は、西暦の年号を、和暦にする。

こんな感じで問いかけると！
以下のようなソースを出力しますね。
(o^―^o)ﾆｺ

Function ConvertToWareki(ByVal year As Integer) As String
Dim era As String
Dim eraYear As Integer

If year >= 2019 Then
era = "令和"
eraYear = year - 2018
ElseIf year >= 1989 Then
era = "平成"
eraYear = year - 1988
ElseIf year >= 1926 Then
era = "昭和"
eraYear = year - 1925
ElseIf year >= 1912 Then
era = "大正"
eraYear = year - 1911
Else
era = "明治"
eraYear = year - 1867
End If

ConvertToWareki = era & eraYear & "年"
End Function

Sub ConvertAndCopyRangeData()
Dim sourceRange As Range
Dim targetRange As Range
Dim sourceCell As Range
Dim targetCell As Range

' セルA8からA20までの範囲を指定
Set sourceRange = Range("A8:A20")

' セルB8からB20までの範囲を指定
Set targetRange = Range("B8:B20")

' データの変換とコピー
For Each sourceCell In sourceRange
Set targetCell = targetRange.Cells(sourceCell.Row - sourceRange.Row + 1)
targetCell.Value = ConvertToWareki(sourceCell.Value)
Next sourceCell
End Sub

ということで、これを実行して、完成！
Excelを使っている人は、どうぞお試しあれ！
ちなみに、操作方法まで、教えてくれますよ！