返回列表 上一主題 發帖

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

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

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

2012龍年全勤獎章熱烈參與勳章
1# 跳轉到 »
發表於 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

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

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

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

        靜思自在 : 唯其尊重自己的人，才更勇於縮小自己。
返回列表 上一主題