返回列表 上一主題 發帖

程式練習

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

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

2012龍年全勤獎章熱烈參與勳章
1# 跳轉到 »
發表於 2012-4-8 17:40 | 顯示全部帖子
回復 1# myleoyes

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

TOP

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

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

2012龍年全勤獎章熱烈參與勳章
2#
發表於 2012-4-8 18:30 | 顯示全部帖子
回復 4# myleoyes

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

TOP

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

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

2012龍年全勤獎章熱烈參與勳章
3#
發表於 2012-4-8 22:13 | 顯示全部帖子
回復 6# myleoyes

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

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

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

TOP

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

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

2012龍年全勤獎章熱烈參與勳章
4#
發表於 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版)就不研究了

TOP

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

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

2012龍年全勤獎章熱烈參與勳章
5#
發表於 2012-4-9 23:29 | 顯示全部帖子
回復 10# myleoyes

TEMP = Right([Q78], Len([Q78]) - 2)
[Q79] = [Q79] - TEMP

Y = Year(Now()) - 2012
If Month(Now()) = 1 Then [CF3].Offset(Y, 0) = 300
[CF3].Offset(Y, 0) = [CF3].Offset(Y, 0) - TEMP

2段程式
但不知該放入 查帳 或 增減資

TOP

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

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

2012龍年全勤獎章熱烈參與勳章
6#
發表於 2012-4-10 14:27 | 顯示全部帖子
回復 12# myleoyes

LeoV62-07版.rar (24.29 KB)
我用上一次的檔案去修改的,試試看
最大的關鍵是 1.所要的功能是什麼  2.邏輯問題 3.程式語法不是問題

目前功能:
1月最後一日,按Q80  =>  Q78=月入5,  CF3=300-10=290
2月最後一日,按Q80  =>  Q78=月入10,CF3=300-10-20=270
3月最後一日,按Q80  =>  Q78=月入15,CF3=300-10-20-30=240
...
明年1月最後一日,按Q80  => Q78=月入5,    CF4=300-10=290
明年1月最後一日,按Q80  => Q78=月入10,  CF4=300-10-20=270

不了解的是:
300是什麼
1月最後一日,按Q80  => Q78就變成"賣未入帳", 那 2月最後一日,按Q80不是也沒作用

TOP

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

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

2012龍年全勤獎章熱烈參與勳章
7#
發表於 2012-4-11 10:37 | 顯示全部帖子
回復 14# myleoyes

要從2012年1月開始測試,有不合需求的地方要告訴我
  1. Sub 增減資()
  2.     Money = 300                                           '2012年一開始的增減資
  3.     XX = Right([Q78], Len([Q78]) - 2)                     '取出每個月月底的Q78的月入XX中的XX(數字)
  4.     [Q79] = [Q79] - XX                                    '每個月月底的Q79=Q79-XX
  5.     Y = Year(Now()) - 2012                                '計算目前年份與2012年相差Y
  6.     '=================================================
  7.     If Month(Now()) = 1 Then                              '如果月份為1月月底
  8.       If Year(Now()) = 2012 Then                          '如果年份為2012年設定CF3=Money=300
  9.         [CF3] = Money
  10.       Else: [CF3].Offset(Y, 0) = [CF3].Offset(Y - 1, 0)   '如果年份為2013年設定CF4=CF3,年份為2014年設定CF5=CF4
  11.       End If
  12.     End If
  13.     '=================================================
  14.     [CF3].Offset(Y, 0) = [CF3].Offset(Y, 0) - XX          '2012年每個月月底CF3=CF3-XX,2013年每個月月底CF4=CF4-XX
  15. End Sub
複製代碼
LeoV62-07版.rar (25.06 KB)

TOP

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

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

2012龍年全勤獎章熱烈參與勳章
8#
發表於 2012-4-12 10:36 | 顯示全部帖子
回復 17# myleoyes
借CG欄一用
請從101年年初開始操作
LeoV62-07版.rar (25.53 KB)

TOP

        靜思自在 : 人的眼睛長在前面，只看到別人的缺點，絲毫看不到自己的缺點。
返回列表 上一主題