暱稱: 阿佐 頭銜: 上班無聊打怪去
中學生
- 帖子
- 108
- 主題
- 1
- 精華
- 0
- 積分
- 113
- 點名
- 0
- 作業系統
- Win 10
- 軟體版本
- Office 2016
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 臺灣
- 註冊時間
- 2017-9-7
- 最後登錄
- 2019-2-27
 
|
回復 5# wei9133
你好，
我是利用VBA的方式產生表格，
你看看這樣的設計是否有符合你的需求 : )
 表格排序 (2).zip (17.66 KB)
- Sub CreateForm()
- Dim C&, i%, iStart%, iEnd%, J%, jStart%, jEnd%, P%, PEnd%
- Range(Cells(1, 5), Cells(Cells.Rows.Count, Cells.Columns.Count)).Clear
- PEnd = Range("C5") - 1
- For P = 0 To PEnd
- If Range("C2") = "" Then
- C = 1 + P
- Else
- C = Range("C2") + P
- End If
- iStart = 2 + P * (Range("C3") + 2)
- iEnd = iStart + Range("C3")
- jStart = 5
- jEnd = jStart + Range("C4")
- For i = iStart To iEnd
- For J = jStart To jEnd
- Cells(i, J) = C
- C = C + Range("C5")
- Next
- Next
- SetFormat Range(Cells(iStart, jStart), Cells(iEnd, jEnd))
- Next
- End Sub
- Sub SetFormat(R As Range)
- With R
- .HorizontalAlignment = xlCenter
- .VerticalAlignment = xlCenter
- .Borders(xlDiagonalDown).LineStyle = xlNone
- .Borders(xlDiagonalUp).LineStyle = xlNone
- .Borders(xlEdgeLeft).LineStyle = xlContinuous
- .Borders(xlEdgeTop).LineStyle = xlContinuous
- .Borders(xlEdgeBottom).LineStyle = xlContinuous
- .Borders(xlEdgeRight).LineStyle = xlContinuous
- .Borders(xlInsideVertical).LineStyle = xlContinuous
- .Borders(xlInsideHorizontal).LineStyle = xlContinuous
- End With
- End Sub
|
|
發表於 2018-7-26 16:55
| 