- 帖子
- 2798
- 主題
- 10
- 精華
- 0
- 積分
- 2854
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2024-4-20
|
12#
發表於 2019-6-23 12:43
| 只看該作者
回復 10# gaishutsusuru
With [J1].Resize(MaxRa + 1, MaxCa)
.Value = Arr
.Borders.LineStyle = 1
.Rows(1).Interior.ColorIndex = 6
End With
Dim Erng As Range
Set Erng = [J1].Cells(MaxRa + 4, 1)
If Erng.Row < 10 Then Set Erng = [J10]
With Erng.Resize(MaxRb + 2, MaxCb)
.Value = Brr
.Borders.LineStyle = 1
.Rows(1).Interior.ColorIndex = 6
End With |
|
發表於 2019-6-23 15:18
| 