帖子: 10
主題: 3
精華: 0
積分: 13
點名: 0
作業系統: Vista
軟體版本: 2013
閱讀權限: 10
註冊時間: 2013-11-4
最後登錄: 2013-11-13

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2013-11-6 22:58 | 只看該作者

[發問]請問如何做到用=時能copy到一樣的格式

即如對照格A1是ABC，而且是已BOLD及加底線

ABC

=(A1) 是會出一個沒有底線及BOLD的ABC，

那如果我要結果是有BOLD及底線，應該如何做？

謝謝

樓主熱帖

luhpro

高中生 Rank: 3 Rank: 3

帖子: 824
主題: 6
精華: 0
積分: 904
點名: 0
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2023-12-24

2^#

發表於 2013-11-6 23:21 | 只看該作者

本帖最後由 luhpro 於 2013-11-6 23:34 編輯

即如對照格A1是ABC，而且是已BOLD及加底線

ABC

=(A1) 是會出一個沒有底線及BOLD的ABC，

那如果我 ...
CyberKeith 發表於 2013-11-6 22:58

一般的做法是 : (以 Excel 2003 版為例)
1. 對 [a1] 儲存格按滑鼠右鍵, 選複製.
2. 對標的儲存格按滑鼠右鍵, 選選擇性貼上, 再選格式.
3. 按確定.
當然, 上述方式並不會在使用者輸入公式後自動變更格式.

所以改用 Excel VBA 是較洽當的方式:

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If Left(.Formula, 1) = "=" Then
[A1].Copy
Target.PasteSpecial Paste:=xlPasteFormats
End If
End With
End Sub

複製代碼

TOP

CyberKeith

小學生 Rank: 1

帖子: 10
主題: 3
精華: 0
積分: 13
點名: 0
作業系統: Vista
軟體版本: 2013
閱讀權限: 10
註冊時間: 2013-11-4
最後登錄: 2013-11-13

3^#

發表於 2013-11-6 23:23 | 只看該作者

以 Excel 2003 版為例:
1. 對 [a1] 儲存格按滑鼠右鍵, 選複製.
2. 對標的儲存格按滑鼠右鍵, 選選 ...
luhpro 發表於 2013-11-6 23:21

謝謝您的回覆，我是想用程式去自動做，所以本來我已經用"="去將資料抄來

我現想將格式資料也自動抄來，請問如何做，謝謝

TOP

luhpro

高中生 Rank: 3 Rank: 3

帖子: 824
主題: 6
精華: 0
積分: 904
點名: 0
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2023-12-24

4^#

發表於 2013-11-6 23:41 | 只看該作者

本帖最後由 luhpro 於 2013-11-6 23:43 編輯

回復 3# CyberKeith
因為 Excel VBA 程式相關討論應該是要在 Excel程式區中發表,
所以在 Excel一般區我會儘量朝向非程式的方式處理.

然而你首篇的情形似乎又較適合用 Excel VBA 來處理,
所以 2# 發表後我又有做編輯再提供 Excel VBA 的處理方式,
請參考 2# 的程式.

又因為你已經發表了 3#,
怕我在其之後編輯 2# 再發文你沒收到回覆通知,
所以再發這一篇.

TOP

CyberKeith

小學生 Rank: 1

帖子: 10
主題: 3
精華: 0
積分: 13
點名: 0
作業系統: Vista
軟體版本: 2013
閱讀權限: 10
註冊時間: 2013-11-4
最後登錄: 2013-11-13

5^#

發表於 2013-11-7 00:11 | 只看該作者

感恩你，因為是新人，請原諒發錯

TOP

CyberKeith

小學生 Rank: 1

帖子: 10
主題: 3
精華: 0
積分: 13
點名: 0
作業系統: Vista
軟體版本: 2013
閱讀權限: 10
註冊時間: 2013-11-4
最後登錄: 2013-11-13

6^#

發表於 2013-11-7 00:18 | 只看該作者

一般的做法是 : (以 Excel 2003 版為例)
1. 對 [a1] 儲存格按滑鼠右鍵, 選複製.
2. 對標的儲存格按 ...
luhpro 發表於 2013-11-6 23:21

不好意思，請問如何使用？我copy 了去VBA, 但save後沒見到新增"Worksheet_Change"

我是否做漏了什麼？

TOP

luhpro

高中生 Rank: 3 Rank: 3

帖子: 824
主題: 6
精華: 0
積分: 904
點名: 0
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2023-12-24

7^#

發表於 2013-11-7 21:37 | 只看該作者

本帖最後由 luhpro 於 2013-11-7 21:39 編輯

不好意思，請問如何使用？我copy 了去VBA, 但save後沒見到新增"Worksheet_Change"

我是否做漏了什麼 ...
CyberKeith 發表於 2013-11-7 00:18

要 Copy 到程式想要發生作用的 Sheet 的程式區內.

如下圖:

先點 1 那個 Sheet1 , 再點 2 那個圖示, 最後在右邊空白處 3 貼上程式即可.
(貼上後會看到其上方兩個圈選的地方, 分別變成 Worksheet 與 Change)

觸發程式執行的機制是在 Sheet1 的任一儲存格內,
輸入公式(開頭為 = 的計算式或參照) 再按 Enter,
即會發現其格式會自動變的與 [A1] 儲存格相同.
(當然 [A1] 要設定的與預設格式不同, 才能明顯看到格式變更後的結果)

TOP