返回列表 上一主題 發帖

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

amber0083

帖子
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
請問可以用儲存格格式來設定嗎?
謝謝~
收藏 分享

tku0216

帖子
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,"***")

TOP

owen06
　暱稱: 阿軒

中學生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嗎
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2. Application.EnableEvents = False
  3. On Error Resume Next
  4. With Target
  5.   If .Row > 1 And .Column = 1 Then   '設定Ａ欄(A2起始)為標的
  6.      If .Value <> "" Then
  7.         .Value = Left(.Value, 5) & "***" & Right(.Value, 2)
  8.       Else: .Value = ""
  9.      End If
  10.   End If
  11. End With
  12. Application.EnableEvents = True
  13. End Sub
複製代碼

Book1.rar (6.46 KB)

TOP

        靜思自在 : 慈悲沒有敵人，智慧不起煩惱。
返回列表 上一主題