程式練習

　頭銜: 麻辣路人甲

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

2012龍年全勤獎章熱烈參與勳章

2^#

發表於 2012-4-8 17:40 | 只看該作者

回復 1# myleoyes

活動廣告:
1.發問者請上傳EXCEL壓縮檔(小學生也可以)
2.配合EXCEL檔請把功能說明清楚

帖子: 463
主題: 116
精華: 0
積分: 580
點名: 0
作業系統: Vista
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2010-5-4
最後登錄: 2017-11-13

論壇贊助勳章論壇榮譽勳章

3^#

發表於 2012-4-8 17:56 | 只看該作者

回復 2# register313
前輩!因為Excel.xls if...有7層限制所以範例無法儲成.xls格式
請2003版前輩見諒!!因此以動畫檔取代

LeoV61.rar (23.85 KB)

LeoV61-1.rar (15.48 KB)

帖子: 463
主題: 116
精華: 0
積分: 580
點名: 0
作業系統: Vista
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2010-5-4
最後登錄: 2017-11-13

論壇贊助勳章論壇榮譽勳章

4^#

發表於 2012-4-8 18:18 | 只看該作者

回復 2# register313
前輩!!殆勢又忘了說明
            就是當Q78要在顯示月入73時
            按Q80鈕才能執行查帳程式
            原查帳程式就是附檔案內的查帳A
            只是開啟瀏覽器以便做轉帳動作罷!
            為何按鈕Q80這樣寫 If [Q78] > 0 Then 查帳或
            If [Q78] <> "買未扣款" Or [Q78] <> "賣未入帳" Or [Q78] <> "帳戶" Then 查帳
            都無法達成需求呢?

　頭銜: 麻辣路人甲

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

2012龍年全勤獎章熱烈參與勳章

5^#

發表於 2012-4-8 18:30 | 只看該作者

回復 4# myleoyes

If [Q78] = "月入73" Then 查帳

帖子: 463
主題: 116
精華: 0
積分: 580
點名: 0
作業系統: Vista
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2010-5-4
最後登錄: 2017-11-13

論壇贊助勳章論壇榮譽勳章

6^#

發表於 2012-4-8 21:35 | 只看該作者

回復 5# register313
前輩!不能這樣寫的...因為Q78的數字隨著時間的流逝
而改變,假設5月份月入99時,那If [Q78] = "月入73" Then 查帳
不就凸槌囉!不是嗎?再麻煩指導謝謝再三!!

　頭銜: 麻辣路人甲

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

2012龍年全勤獎章熱烈參與勳章

7^#

發表於 2012-4-8 22:13 | 只看該作者

回復 6# myleoyes

其實大大過去的一些問題,大部份都是簡單的
而重點在您設計的畫面乍看都很複雜,讓人一下子無法知道程式的前前後後

Q78的公式我看不到(我是OFFICE 2003)
從動畫看出Q78的部份公式:當今日的月份不等於明日的月份(也就是每個月月底),讓Q78產生月入XX(XX是變動的數字)

整個功能只看出上述,所以這樣對嗎?
If Month(Now()) <> Month(Now() + 1) Then 查帳

帖子: 463
主題: 116
精華: 0
積分: 580
點名: 0
作業系統: Vista
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2010-5-4
最後登錄: 2017-11-13

論壇贊助勳章論壇榮譽勳章

8^#

發表於 2012-4-9 12:01 | 只看該作者

回復 7# register313
前輩!謝謝!"大大如此稱呼"小弟實在擔當不起
   慚愧!慚愧!原本應該是將Q78的公式
   改為03版適用公式,無奈小弟沒有用過
   03版也不知如何改,所以用動畫來詮釋
   在這幾種狀況下按Q80鈕是無效的
   要將檔案自動化原本就是煩雜的工程
   因而誤導你很抱歉!!
   借此機會請教導一下Q78公式
   =IF(P79>Q79,"賣未入帳",IF(Q79>P79,"買未扣款",IF(O78<>"交易區",Q79,IF(MONTH(TODAY())<>MONTH
(TODAY()+1),"月入"&ROUND(SUM(OFFSET(D68,0,(MONTH(TODAY())-1)*2,,),OFFSET(D69:E69,0,(MONTH(TODAY())-
1)*2,,),OFFSET(B70:C70,0,(MONTH(TODAY())-1)*2,,)),0),"帳戶"))))
   要如何改才能適用03版呢?以便銜接下一個問題辛苦你囉!謝謝再三!!

　頭銜: 麻辣路人甲

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

2012龍年全勤獎章熱烈參與勳章

9^#

發表於 2012-4-9 15:08 | 只看該作者

本帖最後由 register313 於 2012-4-9 15:14 編輯

回復 8# myleoyes

這次應該要對了吧
X = [O78] = "交易區" And [Q78] <> "賣未入帳" And [Q78] <> "買未扣款" And [Q78] <> "帳戶" And Month(Now()) <> Month(Now() + 1)
If X Then MsgBox "查帳"

Q78的公式(OFFICE 2003版)就不研究了

帖子: 463
主題: 116
精華: 0
積分: 580
點名: 0
作業系統: Vista
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2010-5-4
最後登錄: 2017-11-13

論壇贊助勳章論壇榮譽勳章

10^#

發表於 2012-4-9 21:48 | 只看該作者

回復 9# register313
前輩!程式是對謝謝!但下一個問題Sub 增減資()
還是會用Q78公式所以只好請前輩下載自行修改Q78公式

LeoV62-03版.rar (16.57 KB)

LeoV62-07版.rar (25.61 KB)