[發問] 依訂單_標示客戶

PJChen

各位 新年快樂：
1..        客戶名稱標示在A1(有可能改變,以A1為依據)
2..        E欄帶有文字的是訂單號碼,無文字的都不算訂單號碼
3..        訂單內容會隨客戶下單而變動(增加or減少,條碼也會重複出現)
       
        B欄的需求：
a)        當E欄出現第一筆訂單號碼,則B欄帶出A1的客戶名稱 (Ex:b1:b13)
        一直到出現第2筆訂單號碼為止
b)        當E欄出現第2筆訂單號碼,則B欄帶出A1的客戶名稱2 (Ex:b14:b26)
        一直到出現第3筆訂單號碼為止
        依此類推…
依訂單_標示客戶.rar (115.23 KB)

下載次數: 7

2021-2-12 00:41

PJChen

回復 1# PJChen

1..        客戶名稱是標示在A1(有可能改變,以A1為依據)
2..        E欄帶有文字的是訂單號碼
3..        訂單內容會隨客戶下單而變動(增加or減少,條碼也會重複出現)
       
        B欄的需求：
a)        當E欄出現第一筆訂單號碼,則B欄帶出A1的客戶名稱(Ex:b2:b39)
        一直到出現第2筆訂單號碼為止
b)        當E欄出現第2筆訂單號碼,則B欄帶出A1的客戶名稱+2(Ex:b40:b52)
        一直到出現第3筆訂單號碼為止
        依此類推…
已將表格改為有表頭,請以此檔為準...謝謝   依訂單_標示客戶.rar (56.8 KB)

下載次數: 6

2021-2-12 10:44

軒云熊

回復 2# PJChen

有空幫我看一下 是不是這樣 感謝

1. Public Sub 比對數值練習()
   
2. Application.ScreenUpdating = False
   
3. 
   
4.     Arr = [A1].CurrentRegion
   
5. 
   
6.     For X = 2 To UBound(Arr, 1)
   
7.         For Y = 1 To UBound(Arr, 2)
   
8.             If Not IsNumeric(Arr(X, 5)) Then
   
9.                  Cells(X, 2) = Arr(1, 1)
   
10.             End If
    
11.         Next Y
    
12.     Next X
    
13. 
    
14. Application.ScreenUpdating = True
    
15. End Sub

複製代碼

PJChen

回復 3# 軒云熊

您好,

我希望客戶名稱可以填在B欄,如同這樣的結果,再麻煩您...

下載 (93.87 KB)

2021-2-12 18:58

但目前程式執行結果是這樣:

下載 (27.64 KB)

2021-2-12 18:58

軒云熊

回復 4# PJChen

我看不出來 >"<  可不可以請PJChen 大大框起來 說清楚一點 ...  抱歉 ^^"

PJChen

回復 5# 軒云熊

不好意思,可能我表達得不好,我在檔案中放一個執行後,想要達成的(正確)的工作表
您執行看看,就知道差別在哪！
依訂單_標示客戶.rar (29.83 KB)

下載次數: 3

2021-2-12 20:04

PJChen

回復 3# 軒云熊
您好,

程式無法執行吔....
依訂單_標示客戶2.rar (31.89 KB)

下載次數: 5

2021-2-12 20:22

軒云熊

回復 7# PJChen

有空幫我試試看這個是不是你要的結果  感謝

1. Sub 比對數值練習()
   
2.     Application.ScreenUpdating = False
   
3. 
   
4.     Arr = [A1].CurrentRegion
   
5.    
   
6.     For X = 2 To UBound(Arr, 1)
   
7.         If Not IsNumeric(Arr(X, 5)) And Arr(X, 2) = "" Then
   
8.             Cells(X, 2) = Arr(1, 1)
   
9.             T = Arr(1, 1) & R
   
10.             If R > 1 Then T = Mid(Arr(1, 1), 1, Len(Arr(1, 1)) - 1) & R
    
11.             Arr(1, 1) = IIf(R = 0, Arr(1, 1), T)
    
12.             If R >= 1 Then Cells(X, 2) = Arr(1, 1)
    
13.             R = R + 1
    
14.         ElseIf IsNumeric(Arr(X, 5)) And Cells(X - 1, 2) <> "" Then
    
15.             Cells(X, 2) = Arr(1, 1)
    
16.         End If
    
17.     Next X
    
18. 
    
19.     Application.ScreenUpdating = True
    
20. End Sub

複製代碼

PJChen

回復 8# 軒云熊
真感謝！正確

軒云熊

回復 7# PJChen

剛才發現 加總會差1 所以改了一下 有空再幫我看看是不是你要的結果 感謝   祝  ~ 新年快樂   萬事如你(妳)意  ~

依訂單_標示客戶0212.rar (69.92 KB)

下載次數: 7

2021-2-12 22:41