Board logo

標題: 哇頭大囉!哈哈!! [打印本頁]
作者: myleoyes    時間: 2010-6-24 22:07     標題: 哇頭大囉!哈哈!!

各位前輩你們好!
　　      前輩!問題如附檔案說明　
           請知道的前輩,不吝賜教謝謝再三!!
作者: GBKEE    時間: 2010-6-25 06:40

回復 1# myleoyes
  1. Sub Ex()
  2.     Dim R%
  3.     If ActiveCell.Column >= 3 And ActiveCell.Column <= 15 Then
  4.         If ActiveCell.Column Mod 2 > 0 Then
  5.             R = (ActiveCell.Row - 2) Mod 12
  6.             If R >= 0 And R <= 11 Then
  7.                 ActiveCell.Copy Cells(2, ActiveCell.Column)
  8.                 Cells(2, ActiveCell.Column + 1) = ActiveCell.Offset(12, 1) - ActiveCell.Offset(, 1)
  9.             End If
  10.         End If
  11.     End If
  12. End Sub
複製代碼
作者: myleoyes    時間: 2010-6-25 22:11

回復 2# GBKEE
hsieh前輩你好!
       偶像前輩!歹勢啦!!實在想不出主題
       又很繁雜所以...頭大..小弟下次改進
       謝謝再三!!!

GBKEE前輩你好!
　　　　 良師!這段程式
         Cells(2, ActiveCell.Column + 1) = ActiveCell.Offset(12, 1) - ActiveCell.Offset(, 1)
         有修正
         Cells(2, ActiveCell.Column + 1) = ActiveCell.Offset(0, 1) - ActiveCell.Offset(12, 1)
         但還是狀況連連附檔請再辛苦一下
         謝謝再三!!
作者: GBKEE    時間: 2010-6-26 18:02

本帖最後由 GBKEE 於 2010-6-26 19:59 編輯

回復 3# myleoyes
Leov11  是連續的範圍  Leov11-1 中間有隱藏的範圍是不同的
  1. Sub Ex()
  2.     Dim R, A, C, Rng As Range, II%
  3.     If ActiveCell.Column >= 3 And ActiveCell.Column <= 15 Then
  4.         If ActiveCell.Column Mod 2 > 0 Then
  5.             R = (ActiveCell.Row - 5) Mod 12
  6.             If R >= 0 And R <= 11 Then
  7.                 ActiveCell.Copy Cells(2, ActiveCell.Column)
  8.                 Application.EnableEvents = False
  9.                 Set Rng = ActiveCell.EntireColumn.SpecialCells(xlCellTypeVisible)
  10.                 For Each C In Rng.Areas
  11.                     For Each A In C.Cells
  12.                         If A.Row = ActiveCell.Row Then II = 1
  13.                         If II > 0 Then II = II + 1
  14.                         If II = 14 Then
  15.                             Cells(2, ActiveCell.Column + 1) = ActiveCell.Offset(, 1) - A.Offset(, 1)
  16.                             Application.EnableEvents = True
  17.                             Exit Sub
  18.                         End If
  19.                     Next
  20.                 Next
  21.             End If
  22.         End If
  23.     End If
  24. End Sub
複製代碼
作者: myleoyes    時間: 2010-6-26 21:52

回復 4# GBKEE
GBKEE前輩你好!
　　　　 良師!哇你真是太厲害!
         無法想像...如何考倒你呢?哈哈!!
         真的辛苦你!!真甘溫...謝謝再三!!
作者: myleoyes    時間: 2010-7-1 11:42

回復 5# myleoyes
GBKEE前輩你好!
　　　　 良師!如果儲存格遇到有文字存在
               程式就偵錯,因為儲存格內容是由另一
              程式寫入無法改變,再麻煩前輩!
          能否修改此程式...歹勢辛苦囉!謝謝再三!!
作者: GBKEE    時間: 2010-7-1 16:04

回復 6# myleoyes
Cells(2, ActiveCell.Column + 1) = Val(ActiveCell.Offset(, 1)) - Val(A.Offset(, 1))
作者: myleoyes    時間: 2010-7-1 21:06

回復 7# GBKEE
GBKEE前輩你好!
　　　　 良師!真甘溫...謝謝再三!!



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)