使用VBA將公式以文字型態於原位置顯示 - Excel程式區

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

11^# 跳轉到 »

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

回復 10# ML089
試看看這樣可不可以。

Sub Test()
Dim C As Range, Sh As Worksheet
Dim fs
fs = Application.GetOpenFilename("Excel Files (*.xls;*.xlsx;*.xlsm), *.xls;*.xlsx;*.xlsm") '開啟檔案
If StrComp(TypeName(fs), "String", vbTextCompare) <> 0 Then Exit Sub '使用者取消選擇檔案
With Workbooks.Open(fs)
Application.EnableEvents = False
For Each Sh In .Sheets
For Each C In Sh.UsedRange
If C.HasArray Then
If C.CurrentArray.Count > 1 Then
C.CurrentArray.Value = "[" & C.FormulaArray & "]"
Else
C.CurrentArray.Value = "{" & C.FormulaArray & "}"
End If
ElseIf C.HasFormula Then
C.Value = "'" & C.Formula
End If
Next
Next
Application.EnableEvents = True
End With
End Sub

複製代碼

TOP

ML089

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

12^#

發表於 2013-8-30 10:27 | 只看該作者

回復 11# stillfish00

謝謝你辛苦了，
大部分可以但多格陣列公式還是沒有區分出來

PS
多格陣列公式是指公式輸入時一次選取多儲存格用 CTRL+SHIFT+ENTER齊按輸入
例如:工作表[多格陣列公式]中B2:J10是一次選取同時輸入公式 =A2:A10*B1:J1，以 CTRL+SHIFT+ENTER齊按輸入

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

13^#

發表於 2013-8-30 10:52 | 只看該作者

回復 12# ML089

不行嗎?
我跑7#的新範例，H欄是有分出來的

TOP

ML089

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

14^#

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

回復 13# stillfish00

CurrentArray.Count 這個指令單獨測試是OK的，不知我就是跑不出來

我在程式裡加 Debug.Print，並沒有被執行到，不知問題在哪裡

If C.CurrentArray.Count > 1 Then
C.CurrentArray.Value = "[" & C.FormulaArray & "]"
Debug.Print "[" & C.FormulaArray & "]"
Else

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

ML089

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

15^#

發表於 2013-8-30 11:27 | 只看該作者

回復 13# stillfish00

不好意思，多格陣列公式已經可以了，CurrentArray.Count這指令可以
因為測試檔案已經被改過沒注意到

後續作業完程後
還要另一個程式執行，將這些 "文字公式" 轉為公式儲存格

再麻煩幫忙一下
PS:有些格式可能需要調整，
單格陣列公式 {...} OK
多格陣列公式 [...] OK ，但如何來判斷他的範圍?
一般公式 '=.... 可能會與原有文字公式衝突，或許將改為 '@=....前2字元 "@=" 來判別

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

[發問] 使用VBA將公式以文字型態於原位置顯示

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

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