如何在儲存格內下Ctrl+Shift+Enter指令(oobird 已解答) - Excel程式區

[發問] 如何在儲存格內下Ctrl+Shift+Enter指令(oobird 已解答)

帖子: 705
主題: 277
精華: 0
積分: 1008
點名: 1
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2024-12-24

11^# 跳轉到 »

發表於 2012-2-21 08:26 | 只看該作者

回復 10# GBKEE

我目前電腦變回Office XP
我在物件模組中執行了
Sub aa()
Range("B1").Select
Range("B1") = "=IF(SUM(--ISNUMBER(FIND(A$1,地址!C$1:C$100)))<ROW(),"""",INDEX(地址!C:C,SMALL(IF(ISNUMBER(FIND(A$1,地址!$C$1:$C$100)),ROW($A$1:$B$100)),ROW())))"
Application.SendKeys "{F2}"
Application.SendKeys "^+~"
End Sub

執行後~他依然出現~必須指定搜尋字串~是因為我使用Office XP的問題嗎?

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

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

論壇貢獻勳章

12^#

發表於 2012-2-21 08:29 | 只看該作者

Range("B1").FormulaArray = _
"=IF(SUM(--ISNUMBER(FIND(A$1,地址!C$1:C$100)))<ROW(),"""",INDEX(地址!C:C,SMALL(IF(ISNUMBER(FIND(A$1,地址!$C$1:$C$100)),ROW($A$1:$B$100)),ROW())))"

TOP

av8d