返回列表 上一主題 發帖

[發問] 因為函數超過字元數，能否改寫到程式區？

av8d

帖子
703 
主題
276 
精華
0 
積分
1005 
點名
1  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2024-5-29 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2017-3-14 11:06 | 只看該作者

[發問] 因為函數超過字元數，能否改寫到程式區？

從C2開始，
每當C2改變時，G2帶入一大串函數。
每當C3改變時，G3帶入一大串函數。
............................................................................
............................................................................
............................................................................
............................................................................
每當C100改變時，G100帶入一大串函數。

由於函數字元數過多，他會顯示無法，不知道是可以在程式區使用
函數我先暫時列出一小段
=IF(AND(DATEDIF(C2,H2,"y")=0,DATEDIF(C2,H2,"ym")<6),
IF(AND(DATEDIF(H2,I2,"ym")=0,DATEDIF(H2,I2,"md")<>0),"再"&DATEDIF(H2,I2,"md")&"天，滿6個月，特休3天。",
IF(AND(DATEDIF(H2,I2,"ym")<>0,DATEDIF(H2,I2,"md")=0),"再"&DATEDIF(H2,I2,"ym")&"個月，滿6個月，特休3天。",
IF(AND(DATEDIF(H2,I2,"ym")<>0,DATEDIF(H2,I2,"md")<>0),"再"&DATEDIF(H2,I2,"ym")&"個月又"&DATEDIF(H2,I2,"md")&"天，滿6個月，特休3天。"))),
收藏 分享

av8d

帖子
703 
主題
276 
精華
0 
積分
1005 
點名
1  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2024-5-29 
2#
發表於 2017-3-14 11:52 | 只看該作者
回復 1# av8d


    目前已知
  1. Private Sub Worksheet_Change(ByVal Target As Range)

  3.     With Target
  4.         i = 2
  5.         For j = i To 100
  6.             If .Row = j And .Column = 3 Then
  7.                 If .Value <> "" Then
  8.                 .Offset(0, 4) = ""
  9.                 End If
  10.             End If
  11.         Next
  12.     End With
  13. End Sub
複製代碼
.Offset(0, 4) = ""  因為 ""要寫入函數
目前還在研究中，我先截取一個最短的函數如下：
IF(AND(DATEDIF(C2,H2,"y")=0,DATEDIF(C2,H2,"ym")<6),
IF(AND(DATEDIF(H2,I2,"ym")=0,DATEDIF(H2,I2,"md")<>0),"再"&DATEDIF(H2,I2,"md")&"天，滿6個月，特休3天。",
IF(AND(DATEDIF(H2,I2,"ym")<>0,DATEDIF(H2,I2,"md")=0),"再"&DATEDIF(H2,I2,"ym")&"個月，滿6個月，特休3天。",
IF(AND(DATEDIF(H2,I2,"ym")<>0,DATEDIF(H2,I2,"md")<>0),"再"&DATEDIF(H2,I2,"ym")&"個月又"&DATEDIF(H2,I2,"md")&"天，滿6個月，特休3天。"))),

TOP

        靜思自在 : 盡多少本份，就得多少本事。
返回列表 上一主題