excel中的繪圖字母

Question

是否有一個插件可以幫助在excel中生成字母（A-Z），如下所示？或者我們可以寫一些VBA腳本來做到這一點？

Answer 1

＃2是不是代碼爲我服務。總之，這個任務看起來有趣，我決定編寫一些事情：

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

看看改進點 - 如果您決定構建字母表的其餘部分，它們可能很有用。祝你好運。