① 文章の作成
・ビジネス文書
・メール文
・ドラフト
・ニュース記事
・論文
・マニュアル
・レビュー(評論、批評)
・手紙
・読書感想文
・旅行記
・作文
・小説
・俳句
・短歌
・詩
(例)詩・小説 テーマ「安曇野・常念岳・孫・農作業の女性」
(例)旅行記 テーマ「日本百名城めぐり、伊賀上野城、コロナ後再開」
※ チャットGPTでは、指示と文脈を区切るために「###」のような明確な区切り記号を使用することが推奨されています。
(プロンプト エンジニアリング ガイド)
(例)Excelの関数・マクロの作成
※ 関数コピー
=IF(AND(B2>=91,B2<=100),"S",IF(AND(B2>=81,B2<=90),"A",IF(AND(B2>=71,B2<=80),"B",IF(AND(B2>=51,B2<=70),"C","D"))))
【指示した内容】
(1)次の処理を行うExcelマクロを教えてください。
(2)「成績」シートのA列に生徒名、B列に点数が記載されている。それぞれ1行目には「生徒名」「点数」という項目名が記載されており、2行目からデータが入っている。
(3)このデータのC列に「評価」列を追加したい。
評価基準:
S:91点以上
A:81~90点
B:71~80点
C:51~70点
D:50点以下
【回答】
以下は、上記の要件に基づいてExcel VBAマクロを作成する方法です。
1. Excelを開き、Alt+F11を押してVBAエディタを開きます。
2. プロジェクトエクスプローラーウィンドウで「モジュール」という名前のフォルダを見つけ、右クリックして「挿入」→「モジュール」を選択します。
3. 新しいモジュールが表示されたら、コードエディタに以下のマクロコードを貼り付けます:
```vba
Sub AddEvaluationColumn()
Dim LastRow As Long
Dim EvaluationRange As Range
Dim Cell As Range
' 最終行を取得
LastRow = Cells(Rows.Count, 1).End(xlUp).Row
' 評価列を追加
Set EvaluationRange = Range("C2:C" & LastRow)
' 各セルの評価を計算
For Each Cell In EvaluationRange
If Cell.Offset(0, 1).Value >= 91 Then
Cell.Value = "S"
ElseIf Cell.Offset(0, 1).Value >= 81 Then
Cell.Value = "A"
ElseIf Cell.Offset(0, 1).Value >= 71 Then
Cell.Value = "B"
ElseIf Cell.Offset(0, 1).Value >= 51 Then
Cell.Value = "C"
Else
Cell.Value = "D"
End If
Next Cell
End Sub
```
4. マクロを実行するには、VBAエディタを閉じてExcelに戻ります。
5. 「成績」シートをアクティブにし、Alt+F8を押してマクロの一覧を表示します。
6. 「AddEvaluationColumn」というマクロを選択し、「実行」をクリックします。
これにより、選択したシートのC列に「評価」列が追加され、各生徒の評価が計算されます。
なお、このマクロはVBAに基づいています。したがって、Excelのバージョンによっては、一部のコードや操作が異なる場合があります。必要に応じて適宜調整してください。
チャットGPT 文章の作成について
あなたもジンドゥーで無料ホームページを。 無料新規登録は https://jp.jimdo.com から