[發問] 如何使用單一篩選拉多重資料???如圖

帖子: 119
主題: 39
精華: 0
積分: 164
點名: 0
作業系統: WIN7
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2012-11-1
最後登錄: 2019-2-21

3^#

發表於 2016-7-19 14:10 | 只看該作者

回復 2# c_c_lai

如檔案的輸入代號後能直接篩選資料 (未完成)工作頁是尚未完成的跟完成後

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

4^#

發表於 2016-7-19 15:28 | 只看該作者

回復 3# keovin790916

測試版一.rar (41.75 KB)

帖子: 119
主題: 39
精華: 0
積分: 164
點名: 0
作業系統: WIN7
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2012-11-1
最後登錄: 2019-2-21

5^#

發表於 2016-7-19 17:25 | 只看該作者

回復 4# c_c_lai

大大是厲害

看來我要理解一下這個了

Sub Ex()
Dim rng As Range, ctn As Range
Dim typ As String, amt As Double

[A23:F35].Clear
typ = "": amt = 0
[E36:E43] = 0
Set ctn = [A23]
For Each rng In Range("C3", [C3].End(xlDown))
      If rng = [C20] Then
         If typ = "" Then typ = rng.Offset(, 1)
         ctn = rng.Offset(, -2)          '  日期
         ctn.Offset(, 1) = rng.Offset(, 3)  '  品名
         ctn.Offset(, 2) = rng.Offset(, 5)  '  件數
         ctn.Offset(, 3) = rng.Offset(, 6)  '  重量
         ctn.Offset(, 4) = rng.Offset(, 7)  '  單價
         ctn.Offset(, 5) = rng.Offset(, 8)  '  金額
         amt = amt + ctn.Offset(, 5).Value
         Set ctn = ctn.Offset(1)
      End If
Next
[E36] = amt
[E37] = amt * IIf(typ = "Q", [J24].Value, [J25].Value)
[E38] = amt * IIf(typ = "Q", [J27].Value, [J28].Value)
[E39] = amt * IIf(typ = "Q", [J32].Value, [J33].Value)
[E42] = amt * IIf(typ = "Q", [J36].Value, [J37].Value)
[E43] = amt - [E37].Value - [E38].Value - [E39].Value - [E42].Value
End Sub

帖子: 119
主題: 39
精華: 0
積分: 164
點名: 0
作業系統: WIN7
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2012-11-1
最後登錄: 2019-2-21

6^#

發表於 2016-7-19 20:38 | 只看該作者

請問大大如何加入四捨五入 Int(X + 0.5)??

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

7^#

發表於 2016-7-19 21:03 | 只看該作者

回復 6# keovin790916

Sub Ex()
Dim MyDouble As Double, MyInt As Integer
MyDouble = 2345.4678 ' MyDouble 是雙精準數。
MyInt = CInt(MyDouble) ' MyInt 的值為2345。
MsgBox MyDouble & " =" & vbCrLf & MyInt
End Sub

複製代碼

帖子: 119
主題: 39
精華: 0
積分: 164
點名: 0
作業系統: WIN7
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2012-11-1
最後登錄: 2019-2-21

8^#

發表於 2016-7-19 21:58 | 只看該作者

Sub Ex()
Dim rng As Range, ctn As Range
Dim typ As String, amt As Double

[A23:F35].Clear
typ = "": amt = 0
[E53:E60] = 0
Set ctn = [A23]
For Each rng In Range("C3", [C3].End(xlDown))
      If rng = [C20] Then
         If typ = "" Then typ = rng.Offset(, 1)
         ctn = rng.Offset(, -2)          '  日期
         ctn.Offset(, 1) = rng.Offset(, 3)  '  品名
         ctn.Offset(, 2) = rng.Offset(, 5)  '  件數
         ctn.Offset(, 3) = rng.Offset(, 6)  '  重量
         ctn.Offset(, 4) = rng.Offset(, 7)  '  單價
         ctn.Offset(, 5) = rng.Offset(, 8)  '  金額
         amt = amt + ctn.Offset(, 5).Value
         Set ctn = ctn.Offset(1)
      End If
Next
[E53] = amt

[E54] = amt * IIf(typ = "蔬菜", [J24].Value, [J25].Value)
[E55] = amt * IIf(typ = "蔬菜", [J27].Value, [J28].Value)
[E56] = amt * IIf(typ = "蔬菜", [J32].Value, [J33].Value)
[E59] = amt * IIf(typ = "蔬菜", [J36].Value, [J37].Value)

[E54] = WorksheetFunction.Round([E54], 0)  '四捨五入
[E55] = WorksheetFunction.Round([E55], 0)
[E56] = WorksheetFunction.Round([E56], 0)
[E59] = WorksheetFunction.Round([E59], 0)

[E60] = amt - [E54].Value - [E55].Value - [E56].Value - [E59].Value

End Sub

請問如果要改工作頁1 那怎麼寫?