Excel (一般機能)

Excelの一般機能に関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 7 Professional : Excel 2016)
暗号の変化の付け方について
投稿日時: 19/06/18 14:49:02
投稿者: gorby

 A        B         C
  YsddwwoBB              30000
  AsssssCN               23000
  sssssstyo               12344
  PssssET                44455
  Docssssso               55555
  k-owwwwom               33322
  VEwwwwNT                32221
     
     
顧客別購入金額リストを、Excel研修で使用したいため、顧客名を暗号化したいと考えていて、昨日んなっとさんに、TEXTJOINを使った下記の関数を教えていただきました。
聞くのを忘れていたのですが、下記の暗号に変化をつけるためには、下記の式のどの数字を変更すればよいでしょうか?

=TEXTJOIN(,TRUE,IFERROR(CHAR(MOD(CODE(MID(B2,ROW($1:$30),1))-23,94)+33),""))
 

回答
投稿日時: 19/06/18 15:04:59
投稿者: んなっと

D1にずらす数値を入力して
 
      A     B   C D
1 YsddwwoBB _yjj}}uHH 3000 6
2  AsssssCN  GyyyyyIT 4000  
3 sssssstyo yyyyyyz!u 5000  
4  PssssET  VyyyyKZ 6000  
5 Docssssso Juiyyyyyu 7000  
6 k-owwwwom q3u}}}}us 8000  
7  VEwwwwNT  \K}}}}TZ 9000  
 
B1
=TEXTJOIN(,TRUE,IFERROR(CHAR(MOD(CODE(MID(A1,ROW($1:$30),1))+D$1-33,94)+33),""))
Ctrl+Shift+Enter同時押し
下方向・↓

投稿日時: 19/06/18 17:29:47
投稿者: gorby

んなっと さんの引用:
D1にずらす数値を入力して
 
      A     B   C D
1 YsddwwoBB _yjj}}uHH 3000 6
2  AsssssCN  GyyyyyIT 4000  
3 sssssstyo yyyyyyz!u 5000  
4  PssssET  VyyyyKZ 6000  
5 Docssssso Juiyyyyyu 7000  
6 k-owwwwom q3u}}}}us 8000  
7  VEwwwwNT  \K}}}}TZ 9000  
 
B1
=TEXTJOIN(,TRUE,IFERROR(CHAR(MOD(CODE(MID(A1,ROW($1:$30),1))+D$1-33,94)+33),""))
Ctrl+Shift+Enter同時押し
下方向・↓

 
いつもありがとうございます。やってみます。