- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
本帖最後由 GBKEE 於 2015-9-23 07:28 編輯
回復 2# lcctno
或許您們認為我只想吃魚 而不想自己學釣魚
我只能說 若造成您們有這種看法 非我所願
你18:08發文22:36再發此文,你太心急了,
這論壇是不收費用的,靠的是熱心在回文的.
看問題的人好像要兼外科醫生，解剖後拿器官一一看！^ ^
說的好 回文不只要有熱心,還要有耐心- Option Explicit
- Sub Ex()
- Dim E As Range, i As Integer
- With Range("c12:c" & Range("i" & Rows.Count).End(xlUp).Row)
- For Each E In .Cells
- If E.Cells(1, 10) > 0 Then
- i = Int(E.Cells(1, 10) / (E.Cells(1, 3) * 1000))
- If i > 0 Then
- E = i
- '這樣應可輸入
- '但工作表上有一些像N欄的公式
- '=IF(N11="累計投資金額",-(I12+J12),-(I12+J12)+N11)
- '看不懂
- End If
- End If
- Next
- End With
- End Sub
|
|
發表於 2015-9-23 07:22
| 