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

p01005

小學生 Rank: 1

帖子: 5
主題: 1
精華: 0
積分: 6
點名: 0
作業系統: Win7
軟體版本: Office2013
閱讀權限: 10
性別: 男
註冊時間: 2015-3-2
最後登錄: 2015-4-1

8^#

發表於 2015-3-3 18:53 | 只看該作者

感謝各位大大
小弟是VBA新手
同樣想問VBA是不是可以間接操作其他軟體
因為早前爬文看到有用VBA控制IE來取網上資料
但不太知道是怎樣運作
求各大大解答

TOP

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

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

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

7^#

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

感謝各位大大，小弟受益良多
想再請教一個問題
最近看書發現，VBA可以開啟"小算盤"或是任何一個程式(只要知道程式放置位置即可)
但VBA可以間接操作其他軟體嗎?
EX:操作筆記本、EmEditor

PKKO

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

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

論壇貢獻勳章

6^#

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

如圖查看vba支援的工作表函數有那些。

TOP

owen06

　暱稱: 阿軒

中學生 Rank: 2

帖子: 396
主題: 12
精華: 0
積分: 425
點名: 1
作業系統: 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

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
點名: 1
作業系統: 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

Hsieh

超級版主 Rank: 8 Rank: 8

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

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