12
返回列表 上一主題 發帖

避免重複執行程式

GBKEE

帖子
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

帖子
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

帖子
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
是這樣嗎?
  1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  2.     If Not Intersect(Target(1), Range("A5:A152")) Is Nothing Then
  3.         If Target(1) <> "" And Range("AB5") = "" And Range("AB8") = "" Then 填滿
  4.     End If
  5.     If Not Intersect(Target(1), Range("H1:I2,M1:M2")) Is Nothing Then
  6.         If Range("AB5") = 1 Or Range("AB8") = 2 Then 清填滿
  7.         Range("AB5") = ""
  8.         Select Case Target(1).Address(0, 0)
  9.             Case "H1"
  10.                 HA
  11.             Case "H2"
  12.                 HB
  13.             Case "I1"
  14.                 IA
  15.             Case "I2"
  16.                 IB
  17.             Case "M1"
  18.                 MA
  19.             Case "M2"
  20.                 MB
  21.         End Select
  22.     End If
  23. End Sub
複製代碼

TOP

myleoyes

帖子
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

帖子
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

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

論壇贊助勳章論壇榮譽勳章
16#
發表於 2010-12-28 20:40 | 只看該作者
回復 15# GBKEE
GBKEE良師你好!
　　　良師!謝謝!已經可以應付主管的要求囉!
      不好意思再浪費你寶貴的時間謝謝再三!!

TOP

        靜思自在 : 要比誰更受誰．不要比誰更怕誰。
12
返回列表 上一主題