避免重複執行程式

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

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

11^# 跳轉到 »

發表於 2010-12-26 16:48 | 只看該作者

本帖最後由 GBKEE 於 2010-12-26 16:49 編輯

回復 10# myleoyes
自動填滿: ActiveCell 在A欄 ,是 "C:E,G:I,M:M" 等欄的填滿 .
手動填滿: 按鈕8A ,按鈕9A,按鈕10A 是各欄單獨的的填滿.
都依據 AB5:AB7 的數據來填滿的
這樣的說法對嗎?
請問數字填滿的等差數,都是依據 AB5的數字嗎?
標題3 差2位, 標題5 差1位,標題7 連續沒有一致規則性?

標題3	標題4	標題5	標題7
2	0.065	10
4	0.065	11	5
6	0.065	12	5

TOP

myleoyes

高中生 Rank: 3 Rank: 3

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

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

12^#

發表於 2010-12-26 18:22 | 只看該作者

回復 10# myleoyes
GBKEE良師你好!
　　　良師!謝謝!不好意思..你可能有些誤解
         再附檔這是經過實際測試OK!的檔
         良師!其實你只要將找到位置與參照填滿
         合併就可以囉!因為找到位置的方式
         必須要在A欄作自訂格式,否則程式
         永遠只會找到AB6的位置不會找不到
         A欄的位置,辛苦囉!謝謝再三!!

Leov37-7.rar (19.59 KB)

TOP

GBKEE

超級版主 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兔年全勤獎章

13^#

發表於 2010-12-26 20:48 | 只看該作者

回復 12# myleoyes
是這樣嗎?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target(1), Range("A5:A152")) Is Nothing Then
If Target(1) <> "" And Range("AB5") = "" And Range("AB8") = "" Then 填滿
End If
If Not Intersect(Target(1), Range("H1:I2,M1:M2")) Is Nothing Then
If Range("AB5") = 1 Or Range("AB8") = 2 Then 清填滿
Range("AB5") = ""
Select Case Target(1).Address(0, 0)
Case "H1"
HA
Case "H2"
HB
Case "I1"
IA
Case "I2"
IB
Case "M1"
MA
Case "M2"
MB
End Select
End If
End Sub

複製代碼

TOP

myleoyes

高中生 Rank: 3 Rank: 3

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

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

14^#

發表於 2010-12-27 21:18 | 只看該作者

回復 13# GBKEE
GBKEE良師你好!
　　　良師!謝謝!辛苦囉!謝謝再三!!
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target(1), Range("A5:A152")) Is Nothing Then
      If Target(1) <> "" And Range("AB5") = "" And Range("AB8") = "" Then 填滿
End If
If Not Intersect(Target(1), Range("H1:I2,M1:M2")) Is Nothing Then
End If
      Select Case Target(1).Address(0, 0)
      Case "C1"
         If Range("AB5") = 1 Or Range("AB8") = 2 Then 清填滿
         Range("AB5") = ""
      Case "H1"
         HA
      Case "H2"
         HB
      Case "I1"
         IA
      Case "I2"
         IB
      Case "M1"
         MA
      Case "M2"
         MB
End Select
End Sub

TOP

GBKEE

超級版主 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兔年全勤獎章

15^#

發表於 2010-12-28 14:21 | 只看該作者

回復 14# myleoyes
還欠缺什麼?? 清填滿嗎?
自己可以試試加上清填滿的條件.

TOP

myleoyes

高中生 Rank: 3 Rank: 3

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

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

16^#

發表於 2010-12-28 20:40 | 只看該作者

回復 15# GBKEE
GBKEE良師你好!
　　　良師!謝謝!已經可以應付主管的要求囉!
不好意思再浪費你寶貴的時間謝謝再三!!

TOP

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]