[發問] 逐筆比對回傳資料

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

2^#

發表於 2021-1-18 19:30 | 只看該作者

回復 1# 蘿蔔泥
有空幫我試試看是不是這樣的結果感謝

javascript:;

特休統計0118.rar (14.72 KB)

蘿蔔泥

帖子: 36
主題: 10
精華: 0
積分: 93
點名: 0
作業系統: win10
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2018-2-27
最後登錄: 2022-2-25

3^#

發表於 2021-1-26 16:20 | 只看該作者

本帖最後由蘿蔔泥於 2021-1-26 16:33 編輯

回復 2# 軒云熊

是的，謝謝

不好意思，這部分我不懂是意思，可以跟您請教嗎？
         A = Arr(x, 1) & "|" & Arr(x, 2) & "|" & Brr(3, 1) & "|" & Brr(3, 2) & "|" & Brr(3, 3) & "|" & Sheets(2).Cells(3, 4)
         A = Split(A, "|")
         For Y = 1 To 6
         Sheets(3).Cells(Rows.Count, Y).End(xlUp)(2) = A(Y - 1)

Public Sub 特休統計練習()
Application.ScreenUpdating = False

Arr = [特休天數!A1].CurrentRegion
Brr = [登錄!A1].CurrentRegion

For x = 2 To UBound(Arr)
      If Brr(1, 2) = Arr(x, 1) And _
      Brr(3, 2) >= Arr(x, 4) And _
      Brr(3, 2) <= Arr(x, 5) Then
         Sheets(2).Cells(3, 4) = Arr(x, 8)
         Sheets(1).Cells(x, 9) = _
         Sheets(1).Cells(x, 9) + Brr(3, 3)
         A = Arr(x, 1) & "|" & Arr(x, 2) & "|" & _
         Brr(3, 1) & "|" & Brr(3, 2) & "|" & _
         Brr(3, 3) & "|" & Sheets(2).Cells(3, 4)
         A = Split(A, "|")
         For Y = 1 To 6
            Sheets(3).Cells(Rows.Count, Y).End(xlUp)(2) = A(Y - 1)
         Next Y
      Exit For
      End If
Next x

Application.ScreenUpdating = True
End Sub

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

4^#

發表於 2021-1-26 20:50 | 只看該作者

本帖最後由軒云熊於 2021-1-26 20:54 編輯

回復 3# 蘿蔔泥
其實用字典方式比較好但我還在學習中.. 所以用了比較笨的方式
以下只是串聯文字
A = Arr(x, 1) & "|" & Arr(x, 2) & "|" & Brr(3, 1) & "|" & Brr(3, 2) & "|" & Brr(3, 3) & "|" & Sheets(2).Cells(3, 4)

然後再分割到儲存格
A = Split(A, "|")
For Y = 1 To 6
Sheets(3).Cells(Rows.Count, Y).End(xlUp)(2) = A(Y - 1)

謝謝你願意花時間幫我測試謝謝你

蘿蔔泥

帖子: 36
主題: 10
精華: 0
積分: 93
點名: 0
作業系統: win10
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2018-2-27
最後登錄: 2022-2-25

5^#

發表於 2021-1-27 14:19 | 只看該作者

回復 4# 軒云熊

         a = Arr(x, 1) & "|" & Arr(x, 2) & "|" & _
         Brr(3, 1) & "|" & Brr(3, 2) & "|" & _
         Brr(3, 3) & "|" & Sheets(2).Cells(3, 4)
         a = Split(a, "|")
         For Y = 1 To 6
            Sheets(3).Cells(Rows.Count, Y).End(xlUp)(2) = a(Y - 1)
         Next Y
         Exit For

不好意思再請教一下，Sheets(3).Cells(Rows.Count, Y).End(xlUp)(2)的部分，
Sheets(3).Cells(Rows.Count, Y)這是會抓到最後一筆資料的列數，加上End(xlUp)(2)選取下一列空格，可我不了解End(xlUp)(2)指的是？(2)又有啥意思呢？為什麼選取下一列不是用End(xlDown)？
另外，a(Y - 1)因為是陣列所以A(0)是第一的意思嗎？

還在努力學習中，所以有些指令看不太懂，如果造成困擾還請見諒

版主 Rank: 7 Rank: 7 Rank: 7

准提部林

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

6^#

發表於 2021-1-27 17:12 | 只看該作者

工號 W0008
2020/4/24 請特休3天
則108年度有2天..4/24.4/25, 109年有1天..4/26

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

7^#

發表於 2021-1-27 20:45 | 只看該作者

本帖最後由軒云熊於 2021-1-27 20:50 編輯

回復 5# 蘿蔔泥

(2) 會固定保持在第2欄開始
End(xlUp) 是避免每列中如果有空格也不會偵測錯誤因為是由下往上
如果使用 End(xlDown) 也是可以但第一列到最後一列中間不可以有空格否則會少抓資料
a(Y - 1)因為是陣列所以A(0)是第一的意思嗎？是的
我到這裡從0開始到現在也還在摸索中.. 有機會就來這裡找一些題目來練習順便請大大們幫忙測試也許會跌跌撞撞...
但到最後還是可以學習到更多的經驗. 知識
對我來說這些都是會累積的  都是值得的  這裡是一個很好的地方我也很喜歡這裡
因為可以學習到很多大大的編寫方式與函式的用法還有思考觀念

謝謝準大幫忙回復感謝

jcchiang

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

8^#

發表於 2021-1-28 12:35 | 只看該作者

本帖最後由 jcchiang 於 2021-1-28 12:47 編輯

回復 1# 蘿蔔泥

試試看
Sub ex()
Dim d As Object
Dim a, b, x%
Set d = CreateObject("Scripting.Dictionary")
For Each b In Range(Sheets("登錄").[B3], Sheets("登錄").[B65536].End(3))
For x = 0 To b.Offset(, 1) - 1
   With Sheets("特休天數")
      For Each a In Range(.[a2], .[a65535].End(3))
         If a = Sheets("登錄").[b1] And a.Offset(, 3) <= b + x And a.Offset(, 4) >= b + x Then
            If b.Offset(, 2) = "" Then '將年度資料放入Sheets("登錄")
               b.Offset(, 2) = a.Offset(, 7)
            Else
               b.Offset(, 2) = b.Offset(, 2) & "/" & a.Offset(, 7)
            End If
            a.Offset(, 8) = a.Offset(, 8) + 1 '將已休天數累計放入Sheets("特休天數")
            d(a & b + x) = Array(a, a.Offset(, 1), b.Offset(, -1), b + x, "1", a.Offset(, 7))
         End If
      Next
   End With
Next
Next
Sheets("list").[a65535].End(3).Offset(1).Resize(d.Count, 6) = Application.Transpose(Application.Transpose(d.Items))
Set d = Nothing
End Sub