12
返回列表 上一主題 發帖

[發問] 辨認及匯總

198188

帖子
488 
主題
71 
精華
0 
積分
584 
點名
0  
作業系統
win7 
軟體版本
office 2010 
閱讀權限
50 
性別
男 
註冊時間
2012-10-30 
最後登錄
2025-10-28 
11# 跳轉到 »
發表於 2024-3-13 17:19 | 只看該作者
回復 9# Andy2483
改爲這個之後，如果不是四個櫃都有資料的話，那麽會顯示ERROR "1004" 應用程式或物件定義上OI*.

      xT.Copy xR(-1): xR(-1) = "No." & Sheets(s).Name
   '↑令標題儲存格複製到目標格,令標題格寫入工作表名
   With xR.Resize(N, 5)
      .Value = Crr
      .Borders.LineStyle = 1
      .HorizontalAlignment = xlCenter
      .VerticalAlignment = xlCenter
      .Columns(3).Font.ColorIndex = 3
      .Columns(4).Font.ColorIndex = 5
      .Font.Bold = True
   End With '此段是令擴展適量儲存格範圍以Crr陣列值寫入,並調整該範圍格式
   N = 0: Z.RemoveAll: Set xR = xR(1, 7)
   '↑令N變數歸零,Z字典清空,令xR變數右移到自身開始的第7格
Next

TOP

Andy2483
　暱稱: 厚臉皮的學生

碩士班Rank: 5Rank: 5

帖子
1493 
主題
40 
精華
0 
積分
1517 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
100 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2025-10-28 
12#
發表於 2024-3-14 07:22 | 只看該作者
回復 11# 198188

Sub Total()
~~
   Brr = Sheets(s).[A1].CurrentRegion: If Not IsArray(Brr) Then GoTo s01 Else ReDim Crr(1 To UBound(Brr), 1 To 5)
   '↑令Brr變數是寫入區域儲存格值的二維陣列,如果Brr不是陣列就跳到標示s01位置繼續執行,否則宣告Crr變數是二維空陣列
   ~~
s01: Next
End Sub
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

198188

帖子
488 
主題
71 
精華
0 
積分
584 
點名
0  
作業系統
win7 
軟體版本
office 2010 
閱讀權限
50 
性別
男 
註冊時間
2012-10-30 
最後登錄
2025-10-28 
13#
發表於 2024-3-14 08:25 | 只看該作者
回復 12# Andy2483


    請問這句加在哪個位置

TOP

        靜思自在 : 一句溫暖的話，就像往別人身上灑香水，自己會沾到兩三滴。
12
返回列表 上一主題