返回列表 上一主題 發帖

[發問] 這個可以使用IF公式嗎?

回復 20# register313

想在請問一下,是否可以用自動判別的方法!! 當現在為2月份的時候為 G2   ,當現在為3月份的時候為H2   ,當 現在為4月份的時候.......

或者是說可以用自訂表單的方式 ?  我有用一個自訂表單  !!   但是有哪邊打錯  一直顯示有 End With    沒有   With   ???到底是怎麼了????



    活頁簿1.rar (13.16 KB)

TOP

回復 21# appr
  1. Private Sub worksheet_change(ByVal target As Range)
  2. Set RngA = Range("A2:A4")
  3. Set RngB = Range("B2:B4")
  4. Set RngCA = Intersect(target, RngA)
  5. Set RngCS = Intersect(target, RngB)
  6. If Not RngCA Is Nothing Then
  7.    RngCA.Offset(0, 2) = RngCA.Offset(0, 2) + RngCA.Value
  8.    RngCA.Offset(0, Month(Now) + 4) = RngCA.Offset(0, Month(Now) + 4) + RngCA.Value
  9.    RngCA.Value = ""
  10. End If
  11. If Not RngCS Is Nothing Then
  12.    RngCS.Offset(0, 1) = RngCS.Offset(0, 1) - RngCS.Value
  13.    RngCS.Value = ""
  14. End If
  15. Set RngD = Range("D2:D4")
  16. Set RngE = Range("E2:E4")
  17. Set RngDE = Intersect(target, RngD)
  18. Set RngED = Intersect(target, RngE)
  19. If Not RngDE Is Nothing Then          'E2~E4=D2~D4
  20.    RngE.Value = RngD.Value
  21. End If
  22. If Not RngED Is Nothing Then          'D2~D4=E2~E4
  23.    RngD.Value = RngE.Value
  24. End If
  25. End Sub
複製代碼

TOP

回復 22# register313
  1. (0, Month(Now) + 4)
複製代碼
想請問一下 Month 是代表月份   Now 是代表現在的日期   

那+4所代表的含意  是   顯示的位址嗎?

TOP

回復 23# appr
RngCA在A欄(A2~A4與輸入進貨值之交叉)
若現為1月:RngCA.Offset(0, Month(Now) + 4)= RngCA.Offset(0, 1 + 4)=RngCA.Offset(0, 5)
              =A欄向右偏移5欄=F欄
若現為2月:RngCA.Offset(0, Month(Now) + 4)= RngCA.Offset(0, 2 + 4)=RngCA.Offset(0, 6)
              =A欄向右偏移6欄=G欄

TOP

回復 24# register313


    我還能說甚麼????

我想得到的  就只有.....


厲害厲害!!!!

TOP

回復 24# register313
  1. 15.Set RngD = Range("D2:D4")

  2. 16.Set RngE = Range("E2:E4")

  3. 17.Set RngDE = Intersect(target, RngD)

  4. 18.Set RngED = Intersect(target, RngE)

  5. 19.If Not RngDE Is Nothing Then          'E2~E4=D2~D4

  6. 20.   RngE.Value = RngD.Value

  7. 21.End If

  8. 22.If Not RngED Is Nothing Then          'D2~D4=E2~E4

  9. 23.   RngD.Value = RngE.Value

  10. 24.End If
複製代碼
想要請問一下!!!目前這個屬於 雙向!!!  也就是說不管是  對著   D2  或是   E2  輸入都是一樣的

如何才能鎖定一個儲存格  也就是單向的方式???

TOP

回復 26# appr

單向 D => E     若E更改後會強迫等於D
  1. Set RngD = Range("D2:D4")
  2. Set RngE = Range("E2:E4")
  3. Set RngDE = Intersect(target, RngD)
  4. Set RngED = Intersect(target, RngE)
  5. If (Not RngDE Is Nothing) Or (Not RngED Is Nothing) Then          'E2~E4=D2~D4
  6.    RngE.Value = RngD.Value
  7. End If
複製代碼

TOP

        靜思自在 : 一個人的快樂.不是因為他擁有得多,而是因為他計較得少。
返回列表 上一主題