특기사항 입력도구(문장 조합기)

 

학생별 세부능력 및 특기사항을 입력할 때 기본 형식은 유지하고, 내용을 빠뜨리지 않으면서 다양하게 입력하려고, 엑셀에서 Visual Basic을 이용하여 특기사항 입력을 보조할 수 있는 도구를 만들었다. Visual Basic에 대해서 얕은 지식을 가지고 있어 간단한 소스 코드이지만 꽤 시간이 걸려 완성하였다. 약간 엉성한 느낌이 들지만 실용적인 면에서 우수하다고 생각하고, 다양하게 응용할 수 있을 것도 같아 핵심 소스 코드와 파일을 업로드 한다.

 

* 같은 행에 있는 문장을 조합하는 소스 코드

Sub sbrow()

    Dim m As Integer
    Dim n As Integer
    Dim s As String
        
    m = 12      
    n = Range("B50").End(xlUp).Row
        
    Range("C5:C32").ClearContents
        
    For i = 5 To n
        s = ""
            For j = 5 To m
                If Cells(i, 2) <> "" Then
                 If Cells(i, j) <> "" Then
                    s = s & RTrim(Cells(i, j)) & " "
                 End If
                End If
            Next j
        Range("C" & i) = RTrim(s)
    Next i
    
    Rows("5:" & n).EntireRow.AutoFit
    
End Sub

 

* 1번 학생의 특기사항을 모든 학생에게 일괄 입력하는 소스 코드

Sub Click1()

    Dim k As Integer
    Dim x As Integer
    Dim y As Integer
        
    x = 5      
    y = 5
    
    k = Range("B100").End(xlUp).Row
    
    Range(Cells(y + 1, x), Cells(32, x)).ClearContents
    
    Cells(y, x).Copy
    
    For i = 6 To k
        Cells(i, x).PasteSpecial xlPasteValues
    Next i
        
    Cells(y, x).Select
    
    Application.CutCopyMode = False

 

 

👀 첨부한 파일을 실행하면 매크로 보안 경고가 뜨는데 [콘텐츠 사용]을 눌러줘야 정상적으로 사용할 수 있다.

 

 

특기사항 입력도구.xlsm

0.03MB