麻辣家族討論版版 » Excelㄧ般區 » 請問儲存格同一格的部分字隱藏

返回列表下一主題上一主題發帖

請問儲存格同一格的部分字隱藏

中學生 Rank: 2

帖子: 5
主題: 3
精華: 0
積分: 56
點名: 0
作業系統: win7
軟體版本: 2007
閱讀權限: 20
性別: 女
來自: 基隆
註冊時間: 2013-6-14
最後登錄: 2020-8-7

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2014-5-29 11:14 | 只看該作者

請問儲存格同一格的部分字隱藏

請問儲存格同一格的部分字隱藏
例如~
A1 填入身份證字號 F123456789
我需要它顯示的是 F1234***89
請問可以用儲存格格式來設定嗎?
謝謝~

樓主熱帖

收藏

中學生 Rank: 2

帖子: 209
主題: 43
精華: 0
積分: 262
點名: 0
作業系統: win 7
軟體版本: office 20**
閱讀權限: 20
性別: 男
註冊時間: 2011-11-3
最後登錄: 2017-4-16

2^#

發表於 2014-6-4 13:10 | 只看該作者

回復 1# amber0083

我只會用函式，假設身分證在A1儲存格，可在B1撰寫公式
=REPLACE(A1,6,3,"***")

　暱稱: 阿軒

中學生 Rank: 2

帖子: 396
主題: 12
精華: 0
積分: 425
點名: 1
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2013-7-2
最後登錄: 2024-8-23

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

3^#

發表於 2014-6-5 09:56 | 只看該作者

回復 1# amber0083

要試試VBA嗎

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
On Error Resume Next
With Target
If .Row > 1 And .Column = 1 Then '設定Ａ欄(A2起始)為標的
If .Value <> "" Then
.Value = Left(.Value, 5) & "***" & Right(.Value, 2)
Else: .Value = ""
End If
End If
End With
Application.EnableEvents = True
End Sub

複製代碼

Book1.rar (6.46 KB)

靜思自在 : 難行能行，難捨能捨，難為能為，才能昇華自我的人格。

返回列表下一主題上一主題