123456
返回列表 上一主題 發帖

[發問] 公式程式碼化

ziv976688

帖子
678 
主題
147 
精華
0 
積分
799 
點名
0  
作業系統
win 8 
軟體版本
MS 2003 
閱讀權限
50 
性別
男 
註冊時間
2016-2-9 
最後登錄
2022-1-20 
8# 跳轉到 »
發表於 2021-7-25 16:03 | 只看該作者
本帖最後由 ziv976688 於 2021-7-25 16:27 編輯

回復 7# singo1232001
公式程式碼化_singo1232001_V1.rar (99.52 KB) =>可按清除鍵測試
99%OK了!
只差列20
x0 = Format((x0 + s.Cells(i + 1, j + 12)) Mod 49, "00") '< --忘了加00
請再加上如下條件需求 :
當餘數=0時，視同=49
EX: E10=19,00
正確應為~
E10=19,49
謝謝您

TOP

singo1232001
　暱稱: 熱狗慶

中學生Rank: 2

帖子
353 
主題
5 
精華
0 
積分
386 
點名
0  
作業系統
windows7 
軟體版本
vba,vb,excel2007 
閱讀權限
20 
性別
男 
註冊時間
2017-1-8 
最後登錄
2024-4-23 

論壇榮譽勳章論壇贊助勳章
7#
發表於 2021-7-25 14:47 | 只看該作者
回復 6# ziv976688

公式程式碼化_singo1232001.zip (117.49 KB)

TOP

ziv976688

帖子
678 
主題
147 
精華
0 
積分
799 
點名
0  
作業系統
win 8 
軟體版本
MS 2003 
閱讀權限
50 
性別
男 
註冊時間
2016-2-9 
最後登錄
2022-1-20 
6#
發表於 2021-7-25 09:07 | 只看該作者
本帖最後由 ziv976688 於 2021-7-25 09:08 編輯

回復 4# ML089
測試成功
程式碼加註解~受益良多
謝謝版主的耐心指導漢一再的熱心幫忙~感恩

TOP

ziv976688

帖子
678 
主題
147 
精華
0 
積分
799 
點名
0  
作業系統
win 8 
軟體版本
MS 2003 
閱讀權限
50 
性別
男 
註冊時間
2016-2-9 
最後登錄
2022-1-20 
5#
發表於 2021-7-25 09:04 | 只看該作者
回復  singo1232001
singo1232001 發表於 2021-7-24 23:43

公式程式碼化_singo1232001.rar (85.97 KB)
測試結果 :答案都是 FALSE
請再修正~謝謝您

TOP

ML089

帖子
2025 
主題
13 
精華
0 
積分
2053 
點名
0  
作業系統
WIN7 
軟體版本
Office2007 
閱讀權限
100 
性別
男 
來自
台北市 
註冊時間
2011-3-2 
最後登錄
2024-3-14 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章2014馬年全勤獎章2015羊年全勤獎章2016猴年全勤獎章
4#
發表於 2021-7-25 05:22 | 只看該作者
回復 1# ziv976688
Sub 餘數登錄()
    Dim xS As Worksheet, xV As Range, xD, SP
    Tm = Timer
    For Each xS In Sheets(Array("準2進3", "準3進4", "準4進5", "準5進6", "準6進7", "準7進8"))    '取表格
        For Each xV In xS.Range("V2:AB" & xS.[B65536].End(xlUp).Row)    '取儲存格
            xD = ""
            For Each SP In Split(xV, ",")    '分離字串
                SP = (SP + xV.Offset(, -9)) Mod 49: If SP = 0 Then SP = 49 'V2+M2 mod 49
                xD = xD & "," & Format(SP, "00")
            Next
            xV.Offset(30, -18) = Mid(xD, 2, 99) '測試用 位置下移30格
            'xV.Offset(, -18) = Mid(xD, 2, 99) '正確位置
        Next
    Next
End Sub
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

singo1232001
　暱稱: 熱狗慶

中學生Rank: 2

帖子
353 
主題
5 
精華
0 
積分
386 
點名
0  
作業系統
windows7 
軟體版本
vba,vb,excel2007 
閱讀權限
20 
性別
男 
註冊時間
2017-1-8 
最後登錄
2024-4-23 

論壇榮譽勳章論壇贊助勳章
3#
發表於 2021-7-24 23:43 | 只看該作者
回復 2# singo1232001
  1. Sub allsheet()   '<--執行這個
  2. Dim s As Worksheet
  3. For Each s In Worksheets
  4. If s.Name <> "DATA" Then Call 餘數登錄(s.Name)
  5. Next
  6. End Sub

  8. Sub 餘數登錄(sN)
  9. Set s = Sheets(sN)
  10. n = s.Columns("v:ab").Find("*", , -4163, , 1, 2).Row
  11. Dim ar
  12. ReDim ar(1 To n, 1 To 7)

  14. For i = 1 To n
  15. For j = 1 To 7
  16. x = s.Cells(i + 1, j + 21)
  17. If x <> "" Then
  18. x = Split(x, ",")
  19.     For Each x0 In x
  20.     x0 = Format((x0 + s.Cells(i + 1, j + 12)) Mod 49,"00") <--忘了加00
  21.     If ar(i, j) <> "" Then ar(i, j) = ar(i, j) & "," & x0
  22.     If ar(i, j) = "" Then ar(i, j) = x0
  23.     Next
  24. End If
  25. Next
  26. Next
  27. s.[d2].Resize(n, 7) = ar
  28. End Sub
複製代碼

TOP

singo1232001
　暱稱: 熱狗慶

中學生Rank: 2

帖子
353 
主題
5 
精華
0 
積分
386 
點名
0  
作業系統
windows7 
軟體版本
vba,vb,excel2007 
閱讀權限
20 
性別
男 
註冊時間
2017-1-8 
最後登錄
2024-4-23 

論壇榮譽勳章論壇贊助勳章
2#
發表於 2021-7-24 22:58 | 只看該作者
本帖最後由 singo1232001 於 2021-7-24 23:12 編輯

回復 1# ziv976688
  1. Sub allsheet()   '<--執行這個
  2. Dim s As Worksheet
  3. For Each s In Worksheets
  4. If s.Name <> "DATA" Then Call 餘數登錄(s.Name)
  5. Next
  6. End Sub

  8. Sub 餘數登錄(sN)
  9. Set s = Sheets(sN)
  10. n = s.Columns("v:ab").Find("*", , -4163, , 1, 2).Row
  11. Dim ar
  12. ReDim ar(1 To n, 1 To 7)

  14. For i = 1 To n
  15. For j = 1 To 7
  16. x = s.Cells(i + 1, j + 21)
  17. If x <> "" Then
  18. x = Split(x, ",")
  19.     For Each x0 In x
  20.     x0 = (x0 + s.Cells(i + 1, j + 12)) Mod 49
  21.     If ar(i, j) <> "" Then ar(i, j) = ar(i, j) & "," & x0
  22.     If ar(i, j) = "" Then ar(i, j) = x0
  23.     Next
  24. End If
  25. Next
  26. Next
  27. s.[d2].Resize(n, 7) = ar
  28. End Sub
複製代碼

TOP

        靜思自在 : 多做多得。少做多失。
123456
返回列表 上一主題