12
返回列表 上一主題 發帖

請問如何將訂單原始資料轉成需要的?

准提部林

帖子
2833 
主題
10 
精華
0 
積分
2889 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-12 
11# 跳轉到 »
發表於 2019-6-23 12:36 | 只看該作者
回復 10# gaishutsusuru


如果表一超過10行, 又怎做???

TOP

准提部林

帖子
2833 
主題
10 
精華
0 
積分
2889 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-12 
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

TOP

gaishutsusuru

帖子
146 
主題
46 
精華
0 
積分
220 
點名
0  
作業系統
7 
軟體版本
2010 
閱讀權限
20 
註冊時間
2014-2-19 
最後登錄
2023-8-31 
13#
發表於 2019-6-23 15:18 | 只看該作者
回復 12# 准提部林


謝謝您的回覆

關於您提到的問題，對您非常不好意思，我沒有說明清楚：因為「大小最多只有6種尺寸」，所以表一最多會到J6，應該是不會到J10的。

剛剛試了您改的巨集，目前應該是可以操作了。

最後，真的感謝您的協助，謝謝。

TOP

        靜思自在 : 並非有錢魷是快樂，問心無愧心最安。
12
返回列表 上一主題