讓公式的值,直接帶入儲存格 - Excel程式區

PJChen

　暱稱: PJ

大學生 Rank: 4

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

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

63^# 跳轉到 »

發表於 2020-5-24 20:06 | 只看該作者

回復 62# 准提部林

准大,
測試結果已可正常執行,謝謝！

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2808
主題: 10
精華: 0
積分: 2864
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-5-10

62^#

發表於 2020-5-24 13:29 | 只看該作者

回復 61# PJChen

Sub 理貨排序()
Dim R&, xR As Range, xH As Range, C%, V&
R = Cells(Rows.Count, "K").End(xlUp).Row
If R <= 2 Then Exit Sub
Application.ScreenUpdating = False
For Each xR In Range("K2:K" & R)
If xR = "品名" Then Set xH = xR(2): C = 1: V = 0: GoTo 101
V = V + Val(xR(1, -4))
If xR = "合計" Then
   If C = 0 Or V = 0 Then GoTo 101
   Range(xH(1, -4), xR(0, -4)).Replace "", "ZZ", Lookat:=xlWhole '將空字符取代為"ZZ"
   With Range(Rows(xH.Row), Rows(xR(0).Row))
         .Sort Key1:=.Cells(1, "F"), Order1:=xlAscending, _
               Key2:=.Cells(1, "L"), Order2:=xlAscending, Header:=xlNo
   End With
   Range(xH(1, -4), xR(0, -4)).Replace "ZZ", "", Lookat:=xlWhole  '將"ZZ取代為空
   C = 0: V = 0
End If
101: Next
End Sub

F欄有空字符""在做怪, 導致排序問題, 用"取代"解決, 若F欄為公式, 很麻煩~~

TOP

PJChen

　暱稱: PJ

大學生 Rank: 4

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

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

61^#

發表於 2020-5-23 21:39 | 只看該作者

回復 60# 准提部林

請問准大,
每個表格內的排序,能夠整列排序嗎?
只有F:Q的範圍排序,表格外的資料,有些是表格內的索引,不跟著排序變動的話,整個資料會亂掉！

另外測試結果:
F320以空白格測試,排序後會在最下方,但中間會空一列,其他用空格測試時,未發現相同情形

理貨單3.rar (324.35 KB)

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2808
主題: 10
精華: 0
積分: 2864
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-5-10

60^#

發表於 2020-5-23 13:02 | 只看該作者

回復 59# PJChen

Sub 理貨排序()
Dim R&, xR As Range, xH As Range, C%, V&
R = Cells(Rows.Count, "K").End(xlUp).Row
If R <= 2 Then Exit Sub
For Each xR In Range("K2:K" & R)
If xR = "品名" Then Set xH = xR(2): C = 1: V = 0: GoTo 101
V = V + Val(xR(1, -4))
If xR = "合計" Then
   If C = 0 Or V = 0 Then GoTo 101
   With Range(xH(1, -4), xR(0, 7))
         .Sort Key1:=.Cells(1, 1), Order1:=xlAscending, _
               Key2:=.Cells(1, 7), Order2:=xlAscending, Header:=xlNo
   End With
   C = 0: V = 0
End If
101: Next
End Sub

TOP

PJChen

　暱稱: PJ

大學生 Rank: 4

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

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

59^#

發表於 2020-5-22 20:52 | 只看該作者

回復 47# 准提部林

准大好,
理貨表格目前需要一個排序功能,目前以之前程式修改,可以排序,但無法依照我想要的功能排,
可否幫忙看下如何依以下需求作排序?

理貨單.rar (427.55 KB)

讓每個客戶表格,只要F欄有數字的,就依key1-F欄,key-2-L欄排序
數字由小到大,表格F欄空白者,就略過不排序(因有些客戶不需要此功能)

排序後,還會用到歸位的功能,另一程式就以S欄的數字做歸位動作,數字由小到大

Sub 理貨排序()
Dim R&, xR As Range, xH As Range, C%
R = Cells(Rows.Count, "K").End(xlUp).Row
If R <= 2 Then Exit Sub
For Each xR In Range("K2:K" & R)
If xR = "品名" Then Set xH = xR(2): C = 1: GoTo 101
If xR = "合計" Then
If C = 0 Then GoTo 101
Set S = Range(xH(1, -4), xR(0, -4))
C = 0
.Cells.Sort Key1:=S, Key2:=.Columns("L"), Header:=xlNo 'Sorting無表頭
End If
101: Next
End With
End Sub

複製代碼

TOP

jcchiang

中學生 Rank: 2

帖子: 234
主題: 19
精華: 0
積分: 276
點名: 0
作業系統: Windows XP
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2013-1-7
最後登錄: 2021-10-7

58^#

發表於 2020-5-19 12:52 | 只看該作者

回復 57# PJChen
最近比較忙,沒時間研究

Sub ex()
Dim d As Object
Set d = CreateObject("Scripting.Dictionary")
For Each a In Range("B:B")
If a = "林口" Then d(a.Address) = d(a.Address) '抓林口的位置,廠商自行更換
Next
Range(d.Keys()(0)).Offset(, 5).Resize(d.Count, 10).Select '選擇範圍,請自行加入複製到哪的程式
End Sub

TOP

PJChen

　暱稱: PJ

大學生 Rank: 4

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

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

57^#

發表於 2020-5-18 19:28 | 只看該作者

回復 53# jcchiang
您好,
或者先從比較簡單的開始
EX:
B252:B274為林口

要如何指定複製列數,也就是自動計算 B:B="林口"的列數=23列
然後可以指定區間G252:P274成為複製的來源?

TOP

PJChen

　暱稱: PJ

大學生 Rank: 4

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

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

56^#

發表於 2020-5-16 22:01 | 只看該作者

回復 53# jcchiang

大大好,
理貨單II.xlsx為來源檔,BF理貨.sheet以B欄的客戶為列數
B欄的客戶對應"客戶.sheet"歸類
歸類名稱相同的,其客戶的表格全都相同
EX:
B252:B274為林口...對應歸類為"中台"
G:P的資料,B252:B274有23列
複製G252:P274的資料
打開 "公用理貨-中台.xlsx" (歸類的檔名有含"中台")
只貼值到"2.sheet" C3 (覆蓋"公用理貨-中台.xlsx"的資料)
以上是需要執行的動作

之前我都是用類似這樣的語法
         xRow = Cells(Cells.Rows.Count, "G").End(xlUp).Row
            Range("C3:L" & xRow) = "=公式"
            Range("C3:L" & xRow).Value = Range("C3:L" & xRow).Value
1) 現在要以7個歸類名稱去找複製的活動範圍
統昶A
統昶B
中台
OK
萊
永康
得至

2) 理貨單II.xlsx B欄的客戶,計算個數作為複製的列數依據
請教語法要怎麼寫?

資料.rar (313.11 KB)

TOP

PJChen