PKKO

　暱稱: PKKO

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

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

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2013-8-10 16:20 | 只看該作者

[發問] excel 巨集無法像excel內建公式一樣嗎?

本帖最後由 PKKO 於 2013-8-10 16:22 編輯

例如
IF COUNTA("a1:a7") >5 then
Rows("1:5").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

或者是
dim BB =RANGE("A1")
Rows("1:BB").select

問題一：巨集內無法使用一般EXCEL的內建公式嗎
問題二：Rows內要如何輸入變數(我只知道cells可以)

樓主熱帖

PKKO

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

2^#

發表於 2013-8-12 09:12 | 只看該作者

回復 1# PKKO
了解資料型態的運算，就能知道如何帶入變數
Rows("1:" & BB).select

學海無涯_不恥下問

TOP

owen06

　暱稱: 阿軒

中學生 Rank: 2

帖子: 396
主題: 12
精華: 0
積分: 425
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2013-7-2
最後登錄: 2024-8-23

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

3^#

發表於 2013-8-12 13:36 | 只看該作者

回復 1# PKKO

問題一：可以用excel公式，但要在前面加個『application』，然後範圍前要加個range("範圍")

If Application.CountA(Range("a1:a7")) > 5 Then

TOP

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

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

4^#

發表於 2013-8-18 18:29 | 只看該作者

感謝，受益良多
但想請教
Sub AA()
If Application.CountIf(Range("a1:a7", "2")) > 5 Then
Range("B1") = 5
End If
End Sub

像這種的公式就無法使用嗎?一定要()只選取範圍的才能使用在VBA內嗎

PKKO

TOP

owen06

　暱稱: 阿軒

中學生 Rank: 2

帖子: 396
主題: 12
精華: 0
積分: 425
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2013-7-2
最後登錄: 2024-8-23

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

5^#

發表於 2013-8-19 08:11 | 只看該作者

回復 4# PKKO

我記得沒錯的話，excel裡的公式都能在VBA裡使用，
只是你的公式格式要打對，你改成這樣就能執行了：

If Application.CountIf(Range("a1:a7"), "2") > 5 Then

你就先寫出一般的語法：=COUNTIF(A1:A7,"2"),
但是在VBA裡面範圍需要加個"RANGE"，所以就會變成上面的樣子了，
或是嫌麻煩的話直接輸入[A1:A7]也可以取代RANGE。

If Application.CountIf([a1:a7], "2") > 5 Then

TOP

oobird