2019年5月24日金曜日

G Suiteのバグ?仕様?

G Suiteのバグ?仕様?
Steps:
1.グループメールabc@xxx.comを作成
2.xyz@xxx.comの個人メールのGmail設定から、「アカウント追加」して、abc@xxx.comから送信できるように登録
3.グループメールabc@xxx.comを削除
4.アカウントabc@xxx.comを作成します
結果:
xyz@xxx.comがabc@xxx.comのパスワードを知らなくでも、abc@xxx.comが送信者として送信できる。
但しabc@xxx.comアカウントの送信済みには残りません。
abc@xxx.comの受信もxyz@xxx.comの受信されません。

ややこしいけど、これは仕様ですかバグですか?

2019年5月10日金曜日

令和数式を置換してくれる自作関数

ポイントは正規表現のReplaceで、パターン化して一致されたセルの番地を更にReplaceに使ったこと。「$1」を使って一個目のマッチングを引用すること。
Option Explicit
Public Const REIWA = "IF(_CELL_>=DATE(2019,5,1),""令和""&IF(YEAR(_CELL_)-2018=1,""元"",YEAR(_CELL_)-2018)&""年""&MONTH(_CELL_)&""月""&DAY(_CELL_)&""日"",TEXT(_CELL_,""ggge年m月d日""))"
Function reiwa_switch(strFormual, strCellAddr As String) As String

Dim reg As Object
Set reg = CreateObject("VBScript.RegExp")
With reg
    .Pattern = "TEXT\((" & strCellAddr & "),""ggge年m月d日""\)"
    .IgnoreCase = False
    .Global = True
End With
reiwa_switch = reg.Replace(strFormual, Replace(REIWA, "_CELL_", "$1"))
End Function

=reiwa_switch(A1,A2)→関数


TEXT(data!FU3,"ggge年m月d日")→第一引数(A1)
data!FU3→第二引数(A2)
IF(data!FU3>=DATE(2019,5,1),"令和"&IF(YEAR(data!FU3)-2018=1,"元",YEAR(data!FU3)-2018)&"年"&MONTH(data!FU3)&"月"&DAY(data!FU3)&"日",TEXT(data!FU3,"ggge年m月d日"))→結果