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

定義名稱格式化

myleoyes

高中生 Rank: 3 Rank: 3

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

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

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2013-6-11 06:59 | 只看該作者

定義名稱格式化

各位前輩你們好!!
問題如附檔說明
請知道的前輩,不吝賜教謝謝再三!!

Leo34.rar (7.24 KB)

樓主熱帖

myleoyes

高中生 Rank: 3 Rank: 3

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

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

3^#

發表於 2013-6-12 21:11 | 只看該作者

回復 2# Hsieh
偶像前輩!謝謝!!
   不好意思另一有問題請教
   Sub 原程式()
      If Date > [AA1] Then 執行
   End sub
   AA1為補助格 [AA1]="IF(ISERROR(EDATE(LOOKUP(9.9E+307,H3:H1200),1)),0,EDATE(LOOKUP(9.9E
                                          +307,H3:H1200),1))"
   想省略補助格所以修改如下
   Sub 修改程式()
      If Date > Application.EDate(LOOKUP(9.9E+307, [H3:H1200]), 1) Then 執行
   End sub
   程式無法接受請問要如何寫,請不吝賜教辛苦囉!!謝謝再三!!

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 130
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-6-14

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章