返回列表 上一主題 發帖

[發問] 輸入股數自動轉存

owen9399

帖子
94 
主題
16 
精華
0 
積分
128 
點名
0  
作業系統
XP 
軟體版本
OFFICE 2003 
閱讀權限
20 
性別
男 
註冊時間
2012-1-30 
最後登錄
2015-11-17 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2012-3-6 17:16 | 只看該作者

[發問] 輸入股數自動轉存

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

dear 各位大大:

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


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


謝謝

輸入股數自動轉存.rar (2.57 KB)

收藏 分享
owen

owen9399

帖子
94 
主題
16 
精華
0 
積分
128 
點名
0  
作業系統
XP 
軟體版本
OFFICE 2003 
閱讀權限
20 
性別
男 
註冊時間
2012-1-30 
最後登錄
2015-11-17 
5#
發表於 2012-3-8 15:58 | 只看該作者
回復 4# register313


    感謝大大的指導 :)
owen

TOP

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
4#
發表於 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
複製代碼

TOP

owen9399

帖子
94 
主題
16 
精華
0 
積分
128 
點名
0  
作業系統
XP 
軟體版本
OFFICE 2003 
閱讀權限
20 
性別
男 
註冊時間
2012-1-30 
最後登錄
2015-11-17 
3#
發表於 2012-3-7 16:47 | 只看該作者
回復 2# register313


    謝謝大大

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

TOP

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
2#
發表於 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
複製代碼

TOP

        靜思自在 : 天上最美是星星，人生最美是溫情。
返回列表 上一主題