帖子: 287
主題: 65
精華: 0
積分: 357
點名: 0
作業系統: xp
軟體版本: OFFIC 2007
閱讀權限: 20
註冊時間: 2010-6-4
最後登錄: 2015-8-19

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2010-7-22 19:54 | 只看該作者

有3個問題

第1 我見人寫IF時都有END IF  但我不寫END IF  都冇出錯,那END IF  有什麼用?
第2  可以用VBA  開不信任的EXCEL時用AUTO_OPEN 的VBA嗎?
第3  使用者自訂數這樣寫錯了什麼?
請大大指導指導.

hyh.JPG (57.5 KB)

樓主熱帖

50 字節以內
不支持自定義 Discuz! 代碼

kimbal

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 472
主題: 5
精華: 0
積分: 485
點名: 0
作業系統: Windows
軟體版本: MS Office
閱讀權限: 100
性別: 男
來自: 香港
註冊時間: 2010-7-4
最後登錄: 2014-12-28

論壇貢獻勳章

2^#

發表於 2010-7-22 21:12 | 只看該作者

第1 我見人寫IF時都有END IF 但我不寫END IF 都冇出錯,那END IF 有什麼用?
第2 可以用VBA 開不信任 ...
basarasy 發表於 2010-7-22 19:54

回你一,三

一, 如果判斷條件下的包括的只有一句, 就不用end if
如
if a=b then c=1
d=1

當a等於b 的時候 c=1 會運行 d=1會運行
當a不等於b 的時候 c=1 不會運行但 d=1會運行

三,你是想在工作頁用這個function? 把這段放在module上就可
Public Function myDate(n As Variant) As Long
Application.Volatile
myDate = Range("A2").Value * n
End Function

懂得發問,答案就會在其中

今日の一秒は明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

basarasy

中學生 Rank: 2

帖子: 287
主題: 65
精華: 0
積分: 357
點名: 0
作業系統: xp
軟體版本: OFFIC 2007
閱讀權限: 20
註冊時間: 2010-6-4
最後登錄: 2015-8-19

3^#

發表於 2010-7-22 21:53 | 只看該作者

回復 2# kimbal

謝謝kimbal大大.

50 字節以內
不支持自定義 Discuz! 代碼

TOP

kimbal

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 472
主題: 5
精華: 0
積分: 485
點名: 0
作業系統: Windows
軟體版本: MS Office
閱讀權限: 100
性別: 男
來自: 香港
註冊時間: 2010-7-4
最後登錄: 2014-12-28

論壇貢獻勳章

4^#

發表於 2010-7-23 00:40 | 只看該作者

回復 1# basarasy

另外是有關第2個問題, 可以參考一下這裡
http://office.microsoft.com/zh-t ... 031999.aspx?redir=0

懂得發問,答案就會在其中

今日の一秒は明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

basarasy

中學生 Rank: 2

帖子: 287
主題: 65
精華: 0
積分: 357
點名: 0
作業系統: xp
軟體版本: OFFIC 2007
閱讀權限: 20
註冊時間: 2010-6-4
最後登錄: 2015-8-19

5^#

發表於 2010-7-23 10:28 | 只看該作者

回復 4# kimbal

這個我知道.
3的問題我放在module都不能用.

vba.rar (11.83 KB)

50 字節以內
不支持自定義 Discuz! 代碼

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

6^#

發表於 2010-7-23 11:02 | 只看該作者

Function BSS(n As Integer) As Long
不是lnteger

學海無涯_不恥下問

TOP

basarasy

中學生 Rank: 2

帖子: 287
主題: 65
精華: 0
積分: 357
點名: 0
作業系統: xp
軟體版本: OFFIC 2007
閱讀權限: 20
註冊時間: 2010-6-4
最後登錄: 2015-8-19

7^#

發表於 2010-7-23 19:31 | 只看該作者

回復 6# Hsieh
Function myDate(n As Integer) As Long
Application.Volatile
myDate = Range("A2").Value * n
End Function
這個我是看書的.
為什麼不可以用Integer??

50 字節以內
不支持自定義 Discuz! 代碼

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

8^#

發表於 2010-7-23 19:38 | 只看該作者

回復 7# basarasy

是你輸入錯了,是 i 的大寫
不是L的小寫

學海無涯_不恥下問

TOP

basarasy

中學生 Rank: 2

帖子: 287
主題: 65
精華: 0
積分: 357
點名: 0
作業系統: xp
軟體版本: OFFIC 2007
閱讀權限: 20
註冊時間: 2010-6-4
最後登錄: 2015-8-19

9^#

發表於 2010-7-23 19:54 | 只看該作者

回復 8# Hsieh
謝謝大大的提點.
請問入 Integer的地方有冇 1個多用途的字?

50 字節以內
不支持自定義 Discuz! 代碼

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

10^#

發表於 2010-7-23 19:58 | 只看該作者

回復 9# basarasy

怎樣較多用途?
他是資料型態
就是宣告該變數的資料型態
請參考VBA說明
Integer 變數係以範圍為 -32,768 到 32,767 之 16 位元 (2 個位元組) 數字的形式儲存。Integer 的型態宣告字元是百分比符號(%)。

學海無涯_不恥下問

TOP

有3個問題

有3個問題

樓主熱帖

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]