標題:
VBA~請依據新增需求添寫程式碼。
發問:
新增需求︰1.當"統計總表"的$Q$1︰$BM&59的號碼，其在由"統計總表"的Q59︰BM59開始及每跳加63列的各期距之有標示38號底色的對應儲存格時，則將各該號碼由小而大且不重複，依序橫列填入"冷熱門篩除號碼統計"的C1儲存格；並加框線及36號底色。再將上述各列的下一列之數字，加總後~依序橫列填入"冷熱門篩除號碼統計"的C2儲存格。2.當"統計總表"的$Q$1︰$BM&59的號碼，其在由"統計總表"的Q61︰BM61開始及每跳加63列的各期距之有標示38號底色的對應儲存格時，則... 顯示更多 新增需求︰ 1. 當"統計總表"的$Q$1︰$BM&59的號碼，其在由"統計總表"的Q59︰BM59開始及 每跳加63列的各期距之有標示38號底色的對應儲存格時， 則將各該號碼由小而大且不重複，依序橫列填入"冷熱門篩除號碼統計"的C1儲存格； 並加框線及36號底色。 再將上述各列的下一列之數字，加總後~ 依序橫列填入"冷熱門篩除號碼統計"的C2儲存格。 2. 當"統計總表"的$Q$1︰$BM&59的號碼，其在由"統計總表"的Q61︰BM61開始及 每跳加63列的各期距之有標示38號底色的對應儲存格時， 則將各該號碼由小而大且不重複，依序橫列填入"冷熱門篩除號碼統計"的C5儲存格； 並加框線及36號底色。 再將上述各列的下一列之數字，加總後~ 依序橫列填入"冷熱門篩除號碼統計"的C6儲存格。 請問︰下列列623之後的程式碼應該如何添寫？ '第二個工作表................................ Sheets("DATA").Select Sheets.Add ActiveWindow.Zoom = 75 '縮放 ActiveSheet.Name = "冷熱門篩選號碼列表" With Sheets("冷熱門篩選號碼列表") .Columns("A:B").ColumnWidth =11 '欄寬 .Columns("C:AZ").ColumnWidth= 6 '欄寬 .Rows("1:10").RowHeight =20 '列高 .Columns("A:AZ").HorizontalAlignment = xlCenter .Columns("A:AZ").VerticalAlignment = xlCenter .Columns("A:AZ").Font.Name ="Arial" .Columns("A:AZ").Font.FontStyle = "粗體" .[A1] = "期距" .[B1] = num .[A1:B2].Borders.LineStyle =xlContinuous .[A1:B1].Font.ColorIndex = 3 .[A2] = "冷門" .[B2] = "期距計次" .[A2:AZ2].Font.ColorIndex = 13 .[B2].Borders.LineStyle = xlContinuous .[C1:AZ1].NumberFormatLocal = "00" .[C1:AZ1].Font.Size = 14 .[C1:AZ1].Font.ColorIndex = 5 .[A5] = "期距" .[B5] = num .[A5:B6].Borders.LineStyle =xlContinuous .[A5:B5].Font.ColorIndex = 3 .[A6] = "熱門" .[B6] = "期距計次" .[A6:AZ6].Font.ColorIndex = 7 .[B6].Borders.LineStyle = xlContinuous .[C5:AZ5].NumberFormatLocal ="00" .[C5:AZ5].Font.Size = 14 .[C5:AZ5].Font.ColorIndex = 5'列623............................................................↓↓：：：：：： End With
- 我在成田機場免稅店買錯東西如何退貨--
- 從丹鳳國小到國立三重高中要怎麼去!!
- 95年四技二專成績，幫我算算我加權後的分數....20點
- RX110 換機油問題
- 哪裡可以買到火影忍者系列漩渦鳴人假髮
- 想更換ALX630輪組需搭配什麼輪胎啊
- Issey Miyake Twelve系列手錶高雄哪裡找呢-
- 中國科舉制度開始于什麼時期，第一個狀元是誰？
- [贈20點]從高應大到輔英怎麼去@1@
- 2011統測分數616 虎科應外會上嗎- ((急
此文章來自奇摩知識+如有不便請留言告知
最佳解答:
Dim 冷(1 To 49), 熱(1 To 49), 冷門(), 熱門()列522 If .Range("Q" & (Nr - 1) * 63 + 59).Offset(0, X - 1) = Application.Max(Sum1) Then .Range("Q" & (Nr - 1) * 63 + 59).Offset(0, X - 1).Interior.ColorIndex = 38 冷(X) = 冷(X) + 1 End If：列572 If .Range("Q" & (Nr - 1) * 63 + 61).Offset(0, X - 1) = Application.Max(Sum1) Then .Range("Q" & (Nr - 1) * 63 + 61).Offset(0, X - 1).Interior.ColorIndex = 38 熱(X) = 熱(X) + 1 End If：'列623............................................................↓↓ y = 0 z = 0 For X = 1 To 49 If 冷(X) > 0 Then y = y + 1 ReDim Preserve 冷門(1, y - 1) 門(0, y - 1) = X 門(1, y - 1) = 冷(X) End If If 熱(X) > 0 Then = z + 1 eDim Preserve 熱門(1, z - 1) 門(0, z - 1) = X 門(1, z - 1) = 熱(X) End If Next With .[C1].Resize(2, y) .Value = 冷門 .Borders.LineStyle = xlContinuous End With With .[C5].Resize(2, z) .Value = 熱門 .Borders.LineStyle = xlContinuous End With End With
其他解答:CD51EBF2FDB84E83
留言列表
