'COPYRIGHT BY dropit.liu.
Sub 矩陣輸出(SHEET_NAME)

    Sheets.Add after:=Sheets(Sheets.Count)
    
    Sheets(Sheets.Count).Name = SHEET_NAME
    
    Sheets(SHEET_NAME).Range(A_INPUTBOX_address) = A_INPUTBOX '寫入資料
    
    Sheets(SHEET_NAME).Range(A_INPUTBOX_address).Interior.Color = QBColor(14) '反黃儲存格
     
End Sub