麻辣家族討論版版 » Excel程式區 » 依訂單_標示客戶

返回列表下一主題上一主題發帖

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

　暱稱: PJ

大學生 Rank: 4

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2021-2-12 00:43 | 只看該作者

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

各位新年快樂：
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)

樓主熱帖

收藏

　暱稱: PJ

大學生 Rank: 4

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

2^#

發表於 2021-2-12 10:44 | 只看該作者

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

中學生 Rank: 2

帖子: 254
主題: 6
精華: 0
積分: 310
點名: 0
作業系統: W10
軟體版本: Excel 2016
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2019-6-16
最後登錄: 2024-9-23

3^#

發表於 2021-2-12 15:23 | 只看該作者

回復 2# PJChen

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

Public Sub 比對數值練習()
Application.ScreenUpdating = False
Arr = [A1].CurrentRegion
For X = 2 To UBound(Arr, 1)
For Y = 1 To UBound(Arr, 2)
If Not IsNumeric(Arr(X, 5)) Then
Cells(X, 2) = Arr(1, 1)
End If
Next Y
Next X
Application.ScreenUpdating = True
End Sub

複製代碼

　暱稱: PJ

大學生 Rank: 4

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

4^#

發表於 2021-2-12 18:59 | 只看該作者

回復 3# 軒云熊

您好,

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

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

中學生 Rank: 2

帖子: 254
主題: 6
精華: 0
積分: 310
點名: 0
作業系統: W10
軟體版本: Excel 2016
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2019-6-16
最後登錄: 2024-9-23

5^#

發表於 2021-2-12 19:30 | 只看該作者

本帖最後由軒云熊於 2021-2-12 19:34 編輯

回復 4# PJChen

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

　暱稱: PJ

大學生 Rank: 4

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

6^#

發表於 2021-2-12 20:04 | 只看該作者

回復 5# 軒云熊

不好意思,可能我表達得不好,我在檔案中放一個執行後,想要達成的(正確)的工作表
您執行看看,就知道差別在哪！

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

　暱稱: PJ

大學生 Rank: 4

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

7^#

發表於 2021-2-12 20:22 | 只看該作者

回復 3# 軒云熊
您好,

程式無法執行吔....

依訂單_標示客戶2.rar (31.89 KB)

中學生 Rank: 2

帖子: 254
主題: 6
精華: 0
積分: 310
點名: 0
作業系統: W10
軟體版本: Excel 2016
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2019-6-16
最後登錄: 2024-9-23

8^#

發表於 2021-2-12 22:12 | 只看該作者

回復 7# PJChen

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

Sub 比對數值練習()
Application.ScreenUpdating = False
Arr = [A1].CurrentRegion
For X = 2 To UBound(Arr, 1)
If Not IsNumeric(Arr(X, 5)) And Arr(X, 2) = "" Then
Cells(X, 2) = Arr(1, 1)
T = Arr(1, 1) & R
If R > 1 Then T = Mid(Arr(1, 1), 1, Len(Arr(1, 1)) - 1) & R
Arr(1, 1) = IIf(R = 0, Arr(1, 1), T)
If R >= 1 Then Cells(X, 2) = Arr(1, 1)
R = R + 1
ElseIf IsNumeric(Arr(X, 5)) And Cells(X - 1, 2) <> "" Then
Cells(X, 2) = Arr(1, 1)
End If
Next X
Application.ScreenUpdating = True
End Sub

複製代碼

　暱稱: PJ

大學生 Rank: 4

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

9^#

發表於 2021-2-12 22:29 | 只看該作者

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

中學生 Rank: 2

帖子: 254
主題: 6
精華: 0
積分: 310
點名: 0
作業系統: W10
軟體版本: Excel 2016
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2019-6-16
最後登錄: 2024-9-23

10^#

發表於 2021-2-12 22:41 | 只看該作者

回復 7# PJChen

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

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

靜思自在 : 忘功不忘過，忘怨不忘恩。

返回列表下一主題上一主題