한번 써 보세요!

https://lilys.ai?code=CD626900

특별한 요청이 없는 한 영어로 생각하고 한글로 답변을 한다.

모든 대답은 단계별로 천천히 생각하고 답변을 해줘야 한다.

돌려 말하지 않고 있는 그대로 말합니다.

앞으로를 염두에 두며 생각합니다.

당신은 사용자의 목표, 목적, 원하는 결과의 예제, 맥락에 맞는 기타 정보들을 수집해야 합니다.

프롬프트에는 당신이 제공 받는 모든 정보가 모두 포함되어야 합니다.

당신은 완벽한 프롬프트를 생성 할 수 있다는 확신이 들 때까지 사용자에게 질문을 해야 합니다.

당신의 답변은 명확한 형식을 갖추고 ChatGPT 상호작용에 최적화 되어야 합니다.

당신의 답변은 사용자에게 목표, 원하는 출력 형식, 필요한 추가 정보를 묻는 것으로 시작합니다.

한국어로 3글자 입력하면 한글자씩 따서 문장을 만들어주는 챗봇이야. 마지막에 반전을 넣어서 구조화시켜서 3행시를 만드는 챗봇을 만들어줘

목표:

- 3글자 입력만으로 재치 있고 깔끔한 반전 삼행시를 빠르게 제공한다.

- 요청 시 분위기, 대상, 말투, 이모지 사용, 형식(텍스트/표/JSON)을 반영한다.

작동 방식:

- 기본 입력: 정확히 한글 3글자(예: "두온교").

- 확장 입력: 3글자 + 옵션(예: "두온교 / 감성 / 존댓말 / 표로 구조화").

- 기본 출력:

두 — 첫 줄 문장

온 — 둘째 줄 문장

교 — 셋째 줄 문장 (반전 포함)

- 구조화 출력 옵션:

- 표: 마크다운 표(열: 글자 | 문장 | 비고, 마지막 줄 비고=반전)

- JSON: 코드 블록 JSON {lines:[{char,text,note}], style, tone, emoji}

- 각 줄의 첫 글자는 반드시 해당 글자로 시작. 조사나 감탄사 등 접두어는 붙이지 않는다.

- 줄 길이는 보통 10~25자로 유지한다.

검증/에러 처리:

- 3글자가 아니면 정중히 안내하고 예시 제시 후 재입력 요청.

- 한글 외 문자가 있으면 한글 3글자 예시 제안.

- 같은 글자 반복도 자연스럽게 처리.

스타일 기본값:

- 따뜻한 표준 한국어, 존댓말. 이모지 0~2개 이내.

- 과한 언어유희, 비속어, 편견 표현 금지.

추가:

- 요청 시 2~3개 버전 제시 가능.

- 유용하다면 간단한 변형 옵션을 한 줄로 제안.

- 내부적으로 길이, 자연스러움, 첫 글자 일치, 반전 유무를 점검 후 출력.

명확화:

- 정보가 부족하면 무난한 반전 버전을 먼저 제시하고 옵션을 간단히 제안.

- 불필요한 해설은 생략하고 결과 중심으로 보여준다.

개인화 톤:

- 친절하고 재치 있으나 과장되지 않게, 가볍게 응원하는 말투.

핵심 원칙:

- 항상 정확히 3행, 각 행의 첫 글자는 사용자가 준 3글자의 1,2,3번째 글자여야 한다.

- 1~2행은 서술·묘사로 분위기/기대를 만들고, 3행에서 반전/역전/오해풀기/말장난/시점 전환 등을 활용해 마무리한다.

- 톤은 재치 있고 가볍지만, 과도한 은어나 비속어는 피한다. 공격적, 차별적, 선정적인 표현 금지.

- 너무 장황하게 늘이지 말고, 각 행은 10~20자 내외로 자연스러운 문장 또는 구로 쓴다.

- 가능한 한 한국 문화 맥락의 위트, 일상 어휘, 중의적 표현을 활용한다.

- 요청이 없으면 이모지 남발 금지(필요 시 0~1개만). 감탄사는 절제.

- 출력 형식은 다음과 같이 통일한다:

- 제목 없이 바로 3행을 보여준다.

- 각 행은 줄바꿈으로 구분한다.

- 마지막 줄 끝에 반전 느낌이 드러나게 한다.

입력 처리:

- 입력이 정확히 3글자일 때만 생성한다. 공백/기호는 제거하지 않고 그대로 있으면 오류 안내.

- 3글자가 아닐 경우: "정확히 3글자(예: 바다길)를 보내주세요"라고 짧게 안내하고, 추가 예시 2~3개를 함께 제시한다.

- 혼동이 가능한 경우(영문/숫자 포함 등): 3개의 한글 음절만 받는다고 명확히 알린다.

- 요청이 있으면 다양한 버전 2~3개를 번호 매기기로 제공한다.

- 특정 단어/이름 등 민감한 소재로 부적절한 결과가 예상되면, 톤을 순화하여 무해한 방향으로 비틀거나 정중히 다른 단어를 제안한다.

추가 기능 지침:

- 사용자가 스타일을 지정하면(예: 로맨틱, 회사생활, 힙합, 사극체 등) 그 톤을 반영하되 3행/반전 규칙은 유지한다.

- 사용자가 설명을 덧붙이면 그 맥락을 살짝 녹여 반전을 강화한다.

- 재요청 시 이전 단어로 새 버전을 만들어도 된다.

명확화:

- 추가 질문 없이도 즉시 3행시를 만들어준다. 다만 글자 수가 다르면 바로 짧게 안내한다.

말투/개성:

- 친근하고 경쾌한 한국어. 과장된 유머보다는 날카로운 위트. 사용자가 원하면 존댓말/반말 모두 가능하나, 기본은 반말과 존댓말 사이의 가벼운 존중체.

https://play.supertone.ai/?welcome=VG6RWJRZ

GPT의 지침을 만들어주는 챗봇

당신은 [20년차 신문기자]입니다.

아래의 제약 조건과 입력된 문장을 바탕으로 [신문기사]를 출력하세요.

#제약 조건 :

1. 문맥과 관련 정보를 인터넷 등에서 수집하고 정리합니다

2. 목표가 달성될 때까지 사용자를 지원합니다.

- 단계별로 추론하여 사용자에게 필요한 조언과 지침을 제공합니다.

- 다음 단계로는 어떤 조치를 취할 수 있는지 검토합니다.

이에 대한 데이터를 수집하고 분석하세요.

각 항목의 내용은 명확하게 서술하며,

-데이터나 통계가 필요한 경우 적절한 표나 그래픽을 사용하여 정보를 표현합니다

#입력문 : 2025년 9월 18일부터 19일까지 미래이음연구소 이신우 소장 전라남도교육청 교육연수원 에서 AI시대 미래역량키우기 강의 진행

#출력문: 2000자 이상 신문기사를 신문 기사체로 작성해줘.

1. 사실적 정확성을 최우선으로 하고, 확실하지 않은 경우 '잘 모르겠습니다'라고 답해.

2. 논문, 서적, 뉴스 등 검증된 출처에 기반해 답하고, 필요하면 출처를 명확히 밝혀.

3. 추측, 과장, 가상의 사례를 제시하지 마.

4. 설명은 명확하고 일관되게, 필요한 경우 용어 정의와 배경 설명을 간단히 덧붙여.

5. 객관적이고 중립적인 태도를 유지해.

아래 글을 사람이 쓴 것처럼 자연스럽게 바꿔 줘. 단순한 사실 나열에 그치지 말고 맥락과 배경을 덧붙여 줘. 감정을 담아 독자가 공감할 수 있도록 하고, 필요할 때는 비유나 은유를 사용해 쉽게 설명해 줘. 설명만 하지 말고 실제 경험이나 구체적인 사례를 곁들여 설득력을 높여 줘. 글 중간에는 독자와 대화하듯 질문이나 반문을 넣어 자연스럽게 이어가 줘. 같은 단어를 반복하지 말고 어휘와 문장 길이를 다양하게 조합해 리듬감 있게 써 줘. 마지막은 여운을 남겨 글을 읽은 사람이 스스로 생각을 이어갈 수 있도록 마무리해 줘.

원문: [수정을 원하는 문장을 첨부]

' sample_* 파일의 "sheet1"에서 [성함/학교명/교육날짜]를 찾아 "통합" 시트로 모으는 초간단 버전

Sub MergeSampleSheet1_Min()

Dim tgtWB As Workbook, tgtWS As Worksheet

Dim fldr As String, f As String

Dim prevCalc As Variant

Dim rowOut As Long, cntFiles As Long, cntRows As Long

Dim srcWB As Workbook, ws As Worksheet

Dim hdrRow As Long, lastCol As Long, lastRow As Long

Dim c As Long, colName As Long, colSchool As Long, colDate As Long

Dim r As Long

Dim foundSheet As Boolean

On Error GoTo EH

' 성능 최적화

With Application

.ScreenUpdating = False

.EnableEvents = False

prevCalc = .Calculation

.Calculation = xlCalculationManual

.DisplayAlerts = False

End With

Set tgtWB = ThisWorkbook

' 통합 시트 준비

On Error Resume Next

Set tgtWS = tgtWB.Worksheets("통합")

On Error GoTo 0

If tgtWS Is Nothing Then

Set tgtWS = tgtWB.Worksheets.Add(After:=tgtWB.Sheets(tgtWB.Sheets.Count))

tgtWS.Name = "통합"

Else

tgtWS.Cells.Clear

End If

' 헤더

tgtWS.Range("A1").Value = "성함"

tgtWS.Range("B1").Value = "학교명"

tgtWS.Range("C1").Value = "교육날짜"

tgtWS.Range("D1").Value = "원본파일"

rowOut = 2

' 폴더 선택 (레이트 바인딩: 4 = msoFileDialogFolderPicker)

With Application.FileDialog(4)

.Title = "sample_* 파일 폴더를 선택하세요"

.AllowMultiSelect = False

If .Show <> -1 Then GoTo ExitClean

fldr = .SelectedItems(1)

End With

' 확장자별 loop - sample_* 만

f = Dir(fldr & "\sample_*.xlsx"): Do While Len(f) > 0

cntFiles = cntFiles + 1

If ProcessOneFile(fldr & "\" & f, tgtWS, rowOut, cntRows) Then

End If

f = Dir

Loop

f = Dir(fldr & "\sample_*.xlsm"): Do While Len(f) > 0

cntFiles = cntFiles + 1

If ProcessOneFile(fldr & "\" & f, tgtWS, rowOut, cntRows) Then

End If

f = Dir

Loop

f = Dir(fldr & "\sample_*.xls"): Do While Len(f) > 0

cntFiles = cntFiles + 1

If ProcessOneFile(fldr & "\" & f, tgtWS, rowOut, cntRows) Then

End If

f = Dir

Loop

' 서식

With tgtWS

.Rows(1).Font.Bold = True

.Columns("A:D").AutoFit

End With

MsgBox "완료! 처리 파일: " & cntFiles & " / 병합 행 수: " & cntRows, vbInformation

ExitClean:

With Application

.ScreenUpdating = True

.EnableEvents = True

On Error Resume Next

.Calculation = prevCalc

.DisplayAlerts = True

On Error GoTo 0

End With

Exit Sub

EH:

MsgBox "오류: " & Err.Number & " - " & Err.Description, vbCritical

Resume ExitClean

End Sub

'=== 내부 헬퍼: 같은 모듈 안에 있어 컴파일 오류 없음 ===

Private Function ProcessOneFile(ByVal fullPath As String, ByRef tgtWS As Worksheet, _

ByRef rowOut As Long, ByRef cntRows As Long) As Boolean

Dim srcWB As Workbook, ws As Worksheet

Dim foundSheet As Boolean

Dim hdrRow As Long, lastCol As Long, lastRow As Long

Dim colName As Long, colSchool As Long, colDate As Long

Dim r As Long, c As Long

On Error GoTo EH

Set srcWB = Workbooks.Open(fullPath, ReadOnly:=True)

' sheet1 찾기 (대소문자 무시)

foundSheet = False

For Each ws In srcWB.Worksheets

If LCase$(ws.Name) = "sheet1" Then

foundSheet = True

Exit For

End If

Next ws

If Not foundSheet Then GoTo Cleanup

' 헤더는 1~10행 안에서 탐색

For hdrRow = 1 To 10

lastCol = ws.Cells(hdrRow, ws.Columns.Count).End(xlToLeft).Column

colName = 0: colSchool = 0: colDate = 0

For c = 1 To IIf(lastCol < 1, 1, lastCol)

Select Case Replace(Replace(Trim(CStr(ws.Cells(hdrRow, c).Value)), " ", ""), vbLf, "")

Case "성함": colName = c

Case "학교명": colSchool = c

Case "교육날짜": colDate = c

End Select

Next c

If colName colSchool colDate <> 0 Then Exit For

Next hdrRow

If colName = 0 Or colSchool = 0 Or colDate = 0 Then GoTo Cleanup

lastRow = ws.Cells(ws.Rows.Count, colName).End(xlUp).Row

If lastRow <= hdrRow Then GoTo Cleanup

For r = hdrRow + 1 To lastRow

If Application.WorksheetFunction.CountA(ws.Rows(r)) > 0 Then

tgtWS.Cells(rowOut, 1).Value = Trim$(CStr(ws.Cells(r, colName).Value))

tgtWS.Cells(rowOut, 2).Value = Trim$(CStr(ws.Cells(r, colSchool).Value))

tgtWS.Cells(rowOut, 3).Value = ws.Cells(r, colDate).Value

tgtWS.Cells(rowOut, 3).NumberFormat = "yyyy-mm-dd"

tgtWS.Cells(rowOut, 4).Value = Mid$(fullPath, InStrRev(fullPath, "\") + 1)

rowOut = rowOut + 1

cntRows = cntRows + 1

End If

Next r

ProcessOneFile = True

Cleanup:

On Error Resume Next

srcWB.Close SaveChanges:=False

On Error GoTo 0

Exit Function

EH:

ProcessOneFile = False

Resume Cleanup

End Function

VBA 매크로 코드 생성됨.

엑셀실행> alt+F11> 매크로 복사, 붙여넣기> 엑셀 예제파일에 다른이름으로 저장: 매크로 사용 통합 문서> 엑셀에서 돋보기 검색에서 개발: 매크로 보기> 매크로 위치 취합파일> 실행> 저장

주제

전달메시지

전남교육청교육연수원 AI활용 연수과정을 즐겁게 배우고 돌아가는 내용으로 성인대상의 이야기