PJChen

　暱稱: PJ

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

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

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2012-4-6 00:12 | 顯示全部帖子

[發問] 指定儲存格文字轉大寫

工作上常需要用到將英文字全部轉大寫或第一個字轉成大寫,我知道函數中可以做到,但不知使用巨集是否也能寫出這樣的效果?
我的需求如下,請高人指點!
a) 程式與需要轉大寫的文件是分開的
b) 分成二個按鈕全部轉大寫/第一個字轉成大寫(功能分開)
c) 在任一開啟的Excel文件的任何以滑鼠點選指定儲存格(單一或圈選的範圍例:a5/b10/c8:c12)
d)按下"轉換鈕"後,在指定儲存格將字體轉成大寫/第一個字大寫,當然未選定的儲存格不能轉換
e)因為開啟的可能是任何的文件,不知在寫程式的時候寫得出來嗎?
f)或者如果寫程式一定要指定檔名(我不清楚是否如此),就在檔案中指定一個檔名的位置(F1),不知是否可行?

upper.zip (11.41 KB)

樓主熱帖

PJChen

　暱稱: PJ

大學生 Rank: 4

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

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

2^#

發表於 2012-4-6 11:38 | 顯示全部帖子

回復 2# GBKEE
請問:
我將這個程式執行時,無論在原巨集檔案中或另一個測試"Test"檔中,都不能執行,請幫我看看問題出在哪?
另外這個程式
1) 二個按鈕功能分開(全部轉大寫/第一個字轉成大寫)是否能分開執行?(因為執行結果目前看不出來)
2) 可針對任何開啟的Excel文件執行全部轉大寫/第一個字轉成大寫功能嗎?

Upper.zip (22.32 KB)

TOP

PJChen

　暱稱: PJ

大學生 Rank: 4

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

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

3^#

發表於 2012-4-7 01:26 | 顯示全部帖子

回復 5# hugh0620
您好,
您修改的第一篇可以轉換文字,但僅限於同一sheet中的文字.
第二篇我修了(*.xlsx),因為我想要二種檔案類型都可以用,但無論我改成 (*.xlsx), *.xls" 或 (*.xls), *.xlsx",當我按轉換鈕時並不會二種類型都出現,而且每次按轉換鈕excel就會當掉,
如果我一直不去理它,其實excel也不用重開,但它並不會轉換.
patch = Application.GetOpenFilename("Microsoft Excel 活頁簿 (*.xlsx), *.xls")

另外請教一個存檔問題,以下存為.xlsx時一切都沒有問題,但若存成.xls時,存檔時沒問題,但要打開存檔後的文件就會出現錯誤訊息,可否幫我看一下問題所在?
ActiveWorkbook.SaveAs "D:\" & [Q5] & " vs " & [C6] & "_PO#" & [V7] & "_" & [C16] & " booking to " & [C19] & ".xlsx"

TOP

PJChen

　暱稱: PJ

大學生 Rank: 4

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

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

4^#

發表於 2012-4-7 12:16 | 顯示全部帖子

回復 7# Hsieh

版大,
您的建議很不錯,但由於我從來沒有用過增益集的功能,完全不了解,您的操作有點快,我看不清楚,可能要自己研究一下.
我另一個存檔的問題不知是否有人可以解答?

TOP

PJChen

　暱稱: PJ

大學生 Rank: 4

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

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

5^#

發表於 2012-4-7 14:20 | 顯示全部帖子

回復 9# Hsieh
版大,
我問的另一個存檔問題,跟大小寫轉換是完全不相同的, 是我其它的巨集程式我摘錄下來的,
它存為.xlsx時一切都沒有問題,但若存成.xls時,存檔時沒問題,但要打開存檔後的文件就會出現錯誤訊息,因為我不知道問題所在?
出現的錯誤訊息就是前面所上傳的jpg圖片的訊息,想請教是否有人能為我解答.
ActiveWorkbook.SaveAs "D:\" & [Q5] & " vs " & [C6] & "_PO#" & [V7] & "_" & [C16] & " booking to " & [C19] & ".xlsx"

TOP