麻辣家族討論版版 » Excel程式區 » 哇頭大囉!哈哈!!

返回列表下一主題上一主題發帖

哇頭大囉!哈哈!!

高中生 Rank: 3 Rank: 3

帖子: 463
主題: 116
精華: 0
積分: 580
點名: 0
作業系統: Vista
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2010-5-4
最後登錄: 2017-11-13

論壇贊助勳章論壇榮譽勳章

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2010-6-24 22:07 | 只看該作者

哇頭大囉!哈哈!!

[版主管理留言]

Hsieh(2010-6-24 22:33): 標題請用切合題意文字並請詳述問題

各位前輩你們好!
　　前輩!問題如附檔案說明　
請知道的前輩,不吝賜教謝謝再三!!

Leov11.rar (155.81 KB)

樓主熱帖

收藏

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2010-6-25 06:40 | 只看該作者

回復 1# myleoyes

Sub Ex()
Dim R%
If ActiveCell.Column >= 3 And ActiveCell.Column <= 15 Then
If ActiveCell.Column Mod 2 > 0 Then
R = (ActiveCell.Row - 2) Mod 12
If R >= 0 And R <= 11 Then
ActiveCell.Copy Cells(2, ActiveCell.Column)
Cells(2, ActiveCell.Column + 1) = ActiveCell.Offset(12, 1) - ActiveCell.Offset(, 1)
End If
End If
End If
End Sub

複製代碼

高中生 Rank: 3 Rank: 3

帖子: 463
主題: 116
精華: 0
積分: 580
點名: 0
作業系統: Vista
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2010-5-4
最後登錄: 2017-11-13

論壇贊助勳章論壇榮譽勳章

3^#

發表於 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)
      但還是狀況連連附檔請再辛苦一下
      謝謝再三!!

Leov11-1.rar (102.14 KB)

Leov11-1-A.rar (266.9 KB)

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2010-6-26 18:02 | 只看該作者

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

回復 3# myleoyes
Leov11 是連續的範圍 Leov11-1 中間有隱藏的範圍是不同的

Sub Ex()
Dim R, A, C, Rng As Range, II%
If ActiveCell.Column >= 3 And ActiveCell.Column <= 15 Then
If ActiveCell.Column Mod 2 > 0 Then
R = (ActiveCell.Row - 5) Mod 12
If R >= 0 And R <= 11 Then
ActiveCell.Copy Cells(2, ActiveCell.Column)
Application.EnableEvents = False
Set Rng = ActiveCell.EntireColumn.SpecialCells(xlCellTypeVisible)
For Each C In Rng.Areas
For Each A In C.Cells
If A.Row = ActiveCell.Row Then II = 1
If II > 0 Then II = II + 1
If II = 14 Then
Cells(2, ActiveCell.Column + 1) = ActiveCell.Offset(, 1) - A.Offset(, 1)
Application.EnableEvents = True
Exit Sub
End If
Next
Next
End If
End If
End If
End Sub

複製代碼

高中生 Rank: 3 Rank: 3

帖子: 463
主題: 116
精華: 0
積分: 580
點名: 0
作業系統: Vista
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2010-5-4
最後登錄: 2017-11-13

論壇贊助勳章論壇榮譽勳章

5^#

發表於 2010-6-26 21:52 | 只看該作者

回復 4# GBKEE
GBKEE前輩你好!
　　　　良師!哇你真是太厲害!
無法想像...如何考倒你呢?哈哈!!
真的辛苦你!!真甘溫...謝謝再三!!

高中生 Rank: 3 Rank: 3

帖子: 463
主題: 116
精華: 0
積分: 580
點名: 0
作業系統: Vista
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2010-5-4
最後登錄: 2017-11-13

論壇贊助勳章論壇榮譽勳章

6^#

發表於 2010-7-1 11:42 | 只看該作者

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

Leov11-3.rar (20.85 KB)

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

7^#

發表於 2010-7-1 16:04 | 只看該作者

回復 6# myleoyes
Cells(2, ActiveCell.Column + 1) = Val(ActiveCell.Offset(, 1)) - Val(A.Offset(, 1))

高中生 Rank: 3 Rank: 3

帖子: 463
主題: 116
精華: 0
積分: 580
點名: 0
作業系統: Vista
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2010-5-4
最後登錄: 2017-11-13

論壇贊助勳章論壇榮譽勳章

8^#

發表於 2010-7-1 21:06 | 只看該作者

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

靜思自在 : 一個缺口的杯子，如果換一個角度看它，它仍然是圓的。

返回列表下一主題上一主題