返回列表下一主題上一主題發帖

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

av8d

大學生 Rank: 4

帖子: 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

大學生 Rank: 4

帖子: 703
主題: 276
精華: 0
積分: 1005
點名: 1
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2024-5-29

2^#

發表於 2017-3-14 11:52 | 只看該作者

回復 1# av8d

目前已知

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
i = 2
For j = i To 100
If .Row = j And .Column = 3 Then
If .Value <> "" Then
.Offset(0, 4) = ""
End If
End If
Next
End With
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

靜思自在 : 【時日莫空過】一個人在世間做了多少事，就等於壽命有多長。因此必須與時間競爭，切莫使時日空過。

返回列表下一主題上一主題