標題: [發問] 輸入股數自動轉存 [打印本頁]

---

作者: owen9399    時間: 2012-3-6 17:16     標題: 輸入股數自動轉存

本帖最後由 owen9399 於 2012-3-6 17:19 編輯

dear 各位大大:

當 輸入股數 小於 5000股時 ,自動轉存於 sheet3
而且 份數為0 ,張數的值 不會於 份數相同


當 輸入股數 大於或等於5000股時 ,自動轉存於 sheet2
張數的值 等於 份數的值


謝謝

---

作者: register313    時間: 2012-3-6 18:09

回復 1# owen9399

1. Sub 輸入()
   
2. If [D2] >= 5000 Then
   
3.    With Sheets("Sheet2")
   
4.      LR2 = .[A65536].End(xlUp).Row + 1
   
5.      Sheets("Sheet1").[A2:F2].Copy .Cells(LR2, "A")
   
6.      .Cells(LR2, "E") = .Cells(LR2, "C")
   
7.    End With
   
8. Else
   
9.    With Sheets("Sheet3")
   
10.      LR3 = .[A65536].End(xlUp).Row + 1
    
11.      Sheets("Sheet1").[A2:F2].Copy .Cells(LR3, "A")
    
12.      .Cells(LR3, "E") = 0
    
13.    End With
    
14. End If
    
15. End Sub

複製代碼

---

作者: owen9399    時間: 2012-3-7 16:47

回復 2# register313


    謝謝大大

   請問 輸入後如何 如何自動清除 sheet1 的內容

---

作者: register313    時間: 2012-3-7 17:00

回復 3# owen9399

1. Sub 輸入()
   
2. If [D2] >= 5000 Then
   
3.    With Sheets("Sheet2")
   
4.      LR2 = .[A65536].End(xlUp).Row + 1
   
5.      Sheets("Sheet1").[A2:F2].Copy .Cells(LR2, "A")
   
6.      .Cells(LR2, "E") = .Cells(LR2, "C")
   
7.    End With
   
8. Else
   
9.    With Sheets("Sheet3")
   
10.      LR3 = .[A65536].End(xlUp).Row + 1
    
11.      Sheets("Sheet1").[A2:F2].Copy .Cells(LR3, "A")
    
12.      .Cells(LR3, "E") = 0
    
13.    End With
    
14. End If
    
15. Sheets("Sheet1").[A2:F2] = ""
    
16. End Sub

複製代碼

---

作者: owen9399    時間: 2012-3-8 15:58

回復 4# register313


    感謝大大的指導 :)

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)