GBKEE

回復 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

myleoyes

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

GBKEE

回復 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

複製代碼

myleoyes

回復 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

GBKEE

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

myleoyes

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