seci

帖子: 29
主題: 10
精華: 0
積分: 39
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 10
註冊時間: 2010-6-12
最後登錄: 2015-11-27

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2013-4-22 12:25 | 只看該作者

[發問] 同時複製儲存格顏色

請各位高手幫忙,
如何同時複製儲存格顏色和文字內容?
Thanks~^^

未命名 - 2.jpg (26.58 KB)

樓主熱帖

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

2^#

發表於 2013-4-22 14:38 | 只看該作者

回復 1# seci
公式無法連結格式

學海無涯_不恥下問

TOP

seci

小學生 Rank: 1

帖子: 29
主題: 10
精華: 0
積分: 39
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 10
註冊時間: 2010-6-12
最後登錄: 2015-11-27

3^#

發表於 2013-4-22 15:57 | 只看該作者

那有沒有辦法用GET.CELL去處理?

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

4^#

發表於 2013-4-22 16:25 | 只看該作者

回復 3# seci

函數是取得計算後的資訊
而儲存格格式並不可利用公式改變
即便是格式化條件，也無法設置變動的格式
要達成格式隨參照儲存格變化就只能靠VBA輔助

學海無涯_不恥下問

TOP

mhl9mhl9

中學生 Rank: 2

帖子: 214
主題: 74
精華: 0
積分: 296
點名: 0
作業系統: win7
軟體版本: office2007
閱讀權限: 20
性別: 男
來自: hk
註冊時間: 2013-6-17
最後登錄: 2018-11-3

5^#

發表於 2013-7-13 21:04 | 只看該作者

以下方法可以滿足你要求嗎?
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.HasFormula Then
A = Target.Formula
On Error Resume Next
Set B = Range(Right(A, Len(A) - 1)).Cells(1)
If Err.Number = 0 Then
B.Copy Target
Target.Formula = A
End If
End If
End Sub

lmh

TOP