Excel에서 문자 그리기

Question

아래 보이는 것처럼 문자 (A-Z)를 생성하는 데 도움이되는 플러그인이 있습니까? 아니면 이것을하기 위해 VBA 스크립트를 작성할 수 있습니까?

Answer 1

유래는 코드에 대한-나 서비스는 없습니다. 어쨌든 작업은 재미보고, 나는 그것에 대해 뭔가를 코딩하기로 결정했습니다 :

Option Explicit 

Public Sub WriteLetterA() 

    Dim varLetterA(8)  As Variant 
    Dim lngColCounter  As Long 
    Dim lngRowCounter  As Long 
    Dim blnReverse   As Boolean 
    Dim rngCell    As Range 

    blnReverse = True 

    varLetterA(0) = Array(1, 1, 1, 0, 0, 1, 1, 1) 
    varLetterA(1) = Array(1, 0, 0, 0, 0, 0, 0, 1) 
    varLetterA(2) = Array(1, 0, 0, 1, 1, 0, 0, 1) 
    varLetterA(3) = Array(1, 0, 0, 1, 1, 0, 0, 1) 
    varLetterA(4) = Array(0, 0, 0, 1, 1, 0, 0, 0) 
    varLetterA(5) = Array(0, 0, 0, 0, 0, 0, 0, 0) 
    varLetterA(6) = Array(0, 0, 0, 0, 0, 0, 0, 0) 
    varLetterA(7) = Array(0, 0, 1, 1, 1, 1, 0, 0) 
    varLetterA(8) = Array(0, 0, 1, 1, 1, 1, 0, 0) 

    Cells(1, 1).Select 

    For lngRowCounter = 0 To UBound(varLetterA) 
     For lngColCounter = 0 To UBound(varLetterA(lngRowCounter)) 
      Set rngCell = Cells(lngRowCounter + 1, lngColCounter + 1) 
      If varLetterA(lngRowCounter)(lngColCounter) Then 
       rngCell.Interior.Color = IIf(blnReverse, vbBlack, vbWhite) 
      Else 
       rngCell.Interior.Color = IIf(blnReverse, vbWhite, vbBlack) 
      End If 
     Next lngColCounter 
    Next lngRowCounter 

End Sub 

' Points for improvement - varLetterA in a separate class 
' Refer to the sheet, do not assume it 
' Pass the first cell as a reference 

이것은 당신이 무엇을 얻을 수 있습니다 :

blnReverse = False

blnReverse = True

개선점을 살펴보십시오. 나머지 알파벳을 만들기로 결정하면 유용 할 수 있습니다. 행운을 빕니다.