owen9399

回復 39# GBKEE


    DEAR 版大:
    更改 後 數字也沒有變化

    Application.EnableEvents = True

   不知如何修正

   謝謝

GBKEE

回復 41# owen9399
程式碼更新後,請檔案關閉,再開啟.

owen9399

回復 42# GBKEE

  謝謝大大指導

  請教 大大:
  我另外 創一個 合併的 新工作表
  新增  庫存工作表 ( 3位 )
  目前 只規畫
  阿美的 總清單 與 阿美 庫存
  在 sheet1 輸入 會存到  阿美 庫存
  在 輸入數值 輸入 會存到  阿美 總清單
  
  可是 如 另外一個 附件  相同的 數值無法輸入

owen9399

回復 43# owen9399


    輸入數值也一樣 無法 輸入 相同

GBKEE

回復 44# owen9399

1. Private Function 資料檢查() As Boolean
   
2.     Dim s As String, E As Range, I As Integer, ii
   
3.     With Sh
   
4.         For I = 2 To UBound(ar)
   
5.             ii = 10 - Len(Sh.Cells(1, I))
   
6.             If I = 2 Or I = 3 Or I = 6 Then
   
7.                If ar(I).ListIndex = -1 Then s = s & IIf(s = "", "", vbLf) & Sh.Cells(1, I) + Space(ii) & vbTab & ar(I)
   
8.             Else
   
9.                 If Not IsNumeric(ar(I)) And ar(I) <> "" Then s = s & IIf(s = "", "", vbLf) & Sh.Cells(1, I) + Space(ii) & vbTab & ar(I)
   
10. 
    
11.             End If
    
12.         Next
    
13.         If s <> "" Then
    
14.             資料檢查 = True: MsgBox s, , "資料有誤!!": Exit Function
    
15.         ElseIf s = "" And ar(4) & ar(5) & ar(7) & ar(8) = "" Then
    
16.             資料檢查 = True: MsgBox "出貨 進貨 沒有數量", , "資料有誤!!": Exit Function
    
17.         End If
    
18.         '******** 以下為檢查是否有相同的資料 如不需要可刪除  ****************
    
19.         s = "," & Join(ar, "")
    
20.         s = Replace(s, "," & ar(1), "")  'S:  結合控制項的字串 [ 序號公司產品名稱台北出貨1台北出貨2業務員進貨數量1進貨數量2 ]
    
21.         For Each E In .Range("B1", .Range("B1").End(xlDown)).Resize(, 7).Rows
    
22.             If s = Join(Application.Transpose(Application.Transpose(E.Value)), "") Then
    
23.                 MsgBox Replace(Join(ar, ","), ar(1) & ",", "") & vbLf & "已存在為 第" & E.Row - 1 & " 筆 資料不可新增"
    
24.                 資料檢查 = True
    
25.                 Exit Function
    
26.             End If
    
27.         Next
    
28.         '******************************************************************************
    
29.         End With
    
30.   End Function

複製代碼

owen9399

回復 45# GBKEE


    謝謝 版大 的指導
   
   我有個 問題
   當 輸入數據後
   阿美的 總清單 與 阿美 庫存
  在 sheet1 輸入 會存到  阿美 庫存  
  在 輸入數值 輸入 會存到  阿美 總清單

  就是  輸入多筆 資料  假設是 阿美的 就 統計後   分別 存入  阿美 庫存 或  阿美 總清單

1. 輸入   102001順天   保溫杯   台北出貨 1( 300 )      業務員   阿美    台北進貨 1 (300)
     輸入   102001順天   保溫杯   台北出貨 1(150 )      業務員    阿美    台北進貨 1 (150)

合併 後 儲存在  分別 存入  阿美 庫存 或  阿美 總清單
  102001順天   保溫杯   台北出貨 1(450)      業務員    阿美    台北進貨 1 (450)

只印出  單一公司 及  總數量  的統計

謝謝

GBKEE

回復 46# owen9399
附上檔案看看