freeffly

高中生 Rank: 3 Rank: 3

帖子: 586
主題: 123
精華: 0
積分: 763
點名: 0
作業系統: WINDOW7
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-16
最後登錄: 2017-3-14

熱烈參與勳章好學求知勳章

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2011-11-16 20:25 | 只看該作者

(已解決)vba調用工作表函數使用方式有限制嗎?

本帖最後由 freeffly 於 2012-2-22 16:54 編輯

MsgBox Application.WorksheetFunction.value(Left([a1], 4))
請問上面的程式碼要怎麼改才會正確?

新增 Microsoft Excel 工作表 (2).rar (4.12 KB)

樓主熱帖

字典兩各字還真難理解

freeffly

高中生 Rank: 3 Rank: 3

帖子: 586
主題: 123
精華: 0
積分: 763
點名: 0
作業系統: WINDOW7
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-16
最後登錄: 2017-3-14

熱烈參與勳章好學求知勳章

7^#

發表於 2011-11-19 20:56 | 只看該作者

回復 6# GBKEE

謝謝
繼續學習

字典兩各字還真難理解

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

6^#

發表於 2011-11-17 17:45 | 只看該作者

回復 4# freeffly
大致一樣多看說明練習會融會貫通
Application 加上這. 列出物件成員, 如熟悉語法可不加
需勾選

TOP

freeffly

高中生 Rank: 3 Rank: 3

帖子: 586
主題: 123
精華: 0
積分: 763
點名: 0
作業系統: WINDOW7
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-16
最後登錄: 2017-3-14

熱烈參與勳章好學求知勳章

5^#

發表於 2011-11-17 16:51 | 只看該作者

回復 3# oobird

目前還只會工作表函數
val這各是第一次看到
學習了

字典兩各字還真難理解

TOP

freeffly

高中生 Rank: 3 Rank: 3

帖子: 586
主題: 123
精華: 0
積分: 763
點名: 0
作業系統: WINDOW7
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-16
最後登錄: 2017-3-14

熱烈參與勳章好學求知勳章

4^#

發表於 2011-11-17 16:50 | 只看該作者

回復 2# GBKEE

請問這各MID跟工作表函數算是同一各嗎?
為什麼不用加Application?

字典兩各字還真難理解

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

3^#

發表於 2011-11-16 20:54 | 只看該作者

For i = 1 To 11
MsgBox Val(Cells(i, 1))
Next

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2011-11-16 20:50 | 只看該作者

回復 1# freeffly

Sub EX()
Dim A
A = Mid([a1], 1, 4)
End Sub

複製代碼

Visual Basic 中可用的工作表函數

TOP