12
返回列表 上一主題 發帖

[發問] 請教新增表單編號問題

afu9240

帖子
164 
主題
45 
精華
0 
積分
211 
點名
0  
作業系統
微軟 
軟體版本
win10 
閱讀權限
20 
性別
女 
註冊時間
2017-8-28 
最後登錄
2022-8-5 
11# 跳轉到 »
發表於 2018-1-3 16:51 | 只看該作者
回復 10# GBKEE


    G大真的是我的偶像,,感謝 有關日期設定計算年齡2.zip (17.26 KB)
　G大　小妹還有一個小問題,附件用您給我的funtion為何帶不出全廠平均年齡∼∼∼
yvonne

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
12#
發表於 2018-1-3 18:32 | 只看該作者
回復 11# afu9240
  1. '** Val(文字) >  轉換數字******************
  2.             AGE = Val(Round(Int(AGE / 12), 0) & "." & AGE - (Round(Int(AGE / 12), 0) * 12))  ' 剩餘月份的小數點
  3.             
  4.             '**10進位的小數點***平均年齡較為準確  *****************
  5.             AGE = Round((AGE / 12), 2)   '10進位的小數點
  6.             '*******************************************
複製代碼
  1. Sub 平均年齡()
  2.     Dim aa As Range
  3.     Cells(1, 8) = Now()
  4.     'Times = Cells(65536, x + 1).End(xlUp).Row
  5.     Set aa = Range("d2:d" & [d2].End(xlDown).Row) '所有加總範圍
  6.    
  7.     Sheets("工作表1").Cells(9, 9) = Application.WorksheetFunction.Sum(aa) / aa.Count
  8. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

afu9240

帖子
164 
主題
45 
精華
0 
積分
211 
點名
0  
作業系統
微軟 
軟體版本
win10 
閱讀權限
20 
性別
女 
註冊時間
2017-8-28 
最後登錄
2022-8-5 
13#
發表於 2018-1-4 10:11 | 只看該作者
  1.     '** Val(文字) >  轉換數字******************
  2.                 AGE = Val(Round(Int(AGE / 12), 0) & "." & AGE - (Round(Int(AGE / 12), 0) * 12))  ' 剩餘月份的小數點
  3.                
  4.                 '**10進位的小數點***平均年齡較為準確  *****************
  5.                 AGE = Round((AGE / 12), 2)   '10進位的小數點
  6.                 '*******************************************
複製代碼
回復 12# GBKEE

請教G大 這段 有關日期設定計算年齡2 (2).zip (17.83 KB) 放進去後,原本計算的年齡會變不正確,是哪一個地方有出現問題呢!!!再請G大協助 謝謝
yvonne

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
14#
發表於 2018-1-4 10:51 | 只看該作者
回復 13# afu9240
給的程式碼請多了解才會為己用
  1. '** Val(文字) >  轉換數字****是因為funtion傳回文字 ,SUM()無法加總,而修改的
  2.             AGE = Val(Round(Int(AGE / 12), 0) & "." & AGE - (Round(Int(AGE / 12), 0) * 12))  ' 剩餘月份的小數點

  4.             '**10進位的小數點***平均年齡較為準確  *****************
  5.             AGE = Round((AGE / 12), 2)   '10進位的小數點    'funtion傳回數字 ,SUM()可以加總不必修改
  6.             '******************************************
複製代碼

ˋ此程式碼有註解,請再了解看看 ,二選一使用
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

afu9240

帖子
164 
主題
45 
精華
0 
積分
211 
點名
0  
作業系統
微軟 
軟體版本
win10 
閱讀權限
20 
性別
女 
註冊時間
2017-8-28 
最後登錄
2022-8-5 
15#
發表於 2018-1-4 17:07 | 只看該作者
回復 14# GBKEE


    感謝G大鼓勵,我會努力,>>>>>:'(
yvonne

TOP

afu9240

帖子
164 
主題
45 
精華
0 
積分
211 
點名
0  
作業系統
微軟 
軟體版本
win10 
閱讀權限
20 
性別
女 
註冊時間
2017-8-28 
最後登錄
2022-8-5 
16#
發表於 2018-1-5 13:48 | 只看該作者
回復 14# GBKEE


    G大 抱歉  想跟您請教
  
   要如何查詢到資料到部門人員資料後,直接計算出部門平均年齡呢???求協助 謝謝

   能在工作表1黃色實線儲存格顯示嗎??? 20180105.zip (45.5 KB)
yvonne

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
17#
發表於 2018-1-6 07:18 | 只看該作者
本帖最後由 GBKEE 於 2018-1-6 08:02 編輯

回復 16# afu9240
  1. Function AGE(D1 As Date)     'Module1(一般模組)
  2.         Application.Volatile (False)
  3.         If IsDate(D1) And D1 > 0 Then
  4.             AGE = DateDiff("m", D1, Date)
  5.             'AGE = Round(Int(AGE / 12), 0) & "." & AGE - (Round(Int(AGE / 12), 0) * 12)  ' 小數點為剩餘月份
  6.             '***此AGE的程式碼中**  & "." & ** 傳回文字不能計算,用VAL()函數將文字轉為數字,可計算
  7.             AGE = Val(Round(Int(AGE / 12), 0) & "." & AGE - (Round(Int(AGE / 12), 0) * 12))  ' 小數點為剩餘月份
  8.             
  9.             'AGE = Round((AGE / 12), 2)   '小數點為10進位  '***此AGE傳回數字,可計算
  10.             
  11.        End If
  12. End Function
複製代碼
  1. Private Sub CommandButton1_Click()
  2.     With Worksheets("人員年資分析表")
  3.         If .AutoFilterMode Then .UsedRange.AutoFilter
  4.     End With
  5.     End
  6. End Sub
  7. 'Private Sub CommandButton4_Click() '*****
  8. Private Sub ComboBox4_Change()  '可改用Change不須再按查詢
  9.     Dim Rng As Range, AGE_Average As Double
  10.     'If ComboBox4.ListIndex = -1 Then MsgBox "請輸入正確的值": Exit Sub
  11.     If ComboBox4.ListIndex = -1 Then Exit Sub        '.ListIndex = -1 不在清單的內容
  12.     Set Rng = Worksheets("人員年資分析表").Range("A2")
  13.     If Rng.Parent.AutoFilterMode Then Rng.AutoFilter   '取消自動篩選
  14.     Set Rng = Range(Rng, Rng.End(xlToRight).End(xlDown))
  15.     Rng.AutoFilter 1, ComboBox4.Value
  16.     Set Rng = Range(Rng.Cells(2, 1), Rng.End(xlToRight).End(xlDown)).SpecialCells(xlCellTypeVisible)
  17.     AGE_Average = Round(Application.WorksheetFunction.Average(Rng.Columns("G")), 2)
  18.     MsgBox ComboBox4 & " 部門" & vbLf & "平均年齡 " & AGE_Average
  19.    
  20.     With Worksheets("工作表1")
  21.         .Cells.Clear
  22.         Rng.Copy .[a1]
  23.         With .Range("g1", .Range("g1").End(xlDown).Address)
  24.             .Cells(.Count + 1) = "=Average(" & .Cells.Address & ")"
  25.            .Cells(.Count + 1).NumberFormatLocal = "0.00_)"
  26.         End With
  27.     End With
  28. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

        靜思自在 : 信心、毅力、勇氣三者具備，則天下沒有做不成的事。
12
返回列表 上一主題