スマホでnttのdポイントクラブ(d point club)をニックネームで登録したら、IDがほぼ凍結され干されてしまった。解決策を電話で聞いたら、docomoケータイじゃなくても良いので、「docomoショップへ出掛けてください」と。果して、どうなった？

　スマホでnttのdポイントクラブ(d point club)をニックネームで登録したら、IDが半凍結された。解決策を電話で聞く。結論だけ言えば、それは、docomoショップで本名で変更するしてもらうこと。そして、IDは凍結解除された。めでたし、めでたし。

　解決までの道程をもっと、詳しく語ると、こんな感じだ。ワタシはdocomoのケータイまたはスマホのユーザではない。実はocnモバイルワンのユーザだ。にもかかわらず、dポイントクラブのことはdocomoショップで対応してくれるというので、混んでいないと思われる、平日の昼間を狙って、近所のdocomoショップへ出掛けた訳だ。

　docomoショップに到着すると、今時、そこは予約をしてからいく場所だったことがわかる。やむを得ず、入り口の機械で「受付」をして、空きを待つ。コロナ以後は、どこでも、銀行でも予約は必須のようだ。やれやれ。待つしかない。

　しばらくして、フロア係のお姉さん達が２人ががかりで、ワタシの抱えている問題を解決すべく、色々と尋ねてくれた。まさに、解決に向けて立ち向かってくれた。

　「ここの機械は、docomoのケータイまたはスマホユーザのdポイントは、名前変更ができますが、それ以外の方の分が変更できるかどうか、わかりません。が、やってみましょう」と言ってくれたのだった。

　果たして、ワタシのdポイントクラブのIDとパスワードを入れて、ログインし、本名へ変更できた。すんなりと。そして、本人確認の免許証をアップロードしてくれた。そして、IDの半凍結が解除できた。良かった。docomoユーザじゃなくても、親切、丁寧に、対応して戴いた。「本当に、お世話になりました。」とお姉さん達へ感謝の挨拶をして、帰途につく。良かったなぁ

EXCEL のフィルタ作業をvbaにしてみた。でも、currentRegionの分断で、データ破壊してしまったのは、空白列のせいだった。

　EXCELのフィルタ作業をvbaにしてみた。参考にしたのはtanakaさんのvbaページhttp://officetanaka.net/excel/vba/tips/tips155d.htm

　EXCELに様々な条件でフィルターを掛け、絞り込みつつ、色々なセルに値を設定していく。そうすることで、我々の仕事が進む。そんな作業を自動化するにはvbaが一番だ。

Dim R As range
With Range("A1")
  .Autofilter 5,"="
  .Autofilter 3,array("<60","="),xlFilterValues
  If WorksheetFunction.Subtotal(3,Range("A:A")) > 1 then
    With Range("A1").CurrentRegion.Offset(1,0) 
      For Each R in .Resize(.Rows.Count-1).SpecialCells(xlCellTypeVisible).Rows
        R.Range("E1").Value = "Ｃ"
      Next R
    End With
  End If
End with

　でも、これだと、CurrentRegionが空白列或いは空白行でいくつかに分断されている（今回は、空白列で分断）と、その塊の単位でCurrentRegionの列なり、行なり（今回は行）を検出するため、意図していないCellにも、得点が６０点以下でもないのに、"Ｃ"が設定されてしまい、表（データ）破壊をきたしてしまった（下図）。

　

　これはキツいな。そこで、R.Columnが1(A列、つまり、最初のCurrentRegionであるときのみ、得点が６０点以下ならば、”Ｃ”を設定するようにしてみた。つまり、この    R.Columnが１（つまり、A列だね）のところがミソなのだ。図はEXCELでなく、OpenOfficeなのは、気にしないでね。

Dim R As range
With Range("A1")
  .Autofilter 5,"="
  .Autofilter 3,array("<60","="),xlFilterValues
  If WorksheetFunction.Subtotal(3,Range("A:A")) > 1 then
    With Range("A1").CurrentRegion.Offset(1,0) 
      For Each R in .Resize(.Rows.Count-1).SpecialCells(xlCellTypeVisible).Rows
        If R.Column = 1 then
          R.Range("E1").Value = "Ｃ"
        End If
      Next R
    End With
  End If
End with

　これでいいんじゃないのかな？なぜ、CurrentRegionが分断されていると気がつくことができたか？それは、破壊されたセルの規則性と壊れた内容からの類推。そこで、先ほどのrのアドレスを出してみた。Debug.Print r.addressをイミディエートウィンドウで表示すると、複数のエリアに分割されていたのがわかったのだった。

vbaでdir("*.xls")はリモートファイル（共有フォルダ）のxlsxファイルをゲットできなかったよ。Good Grief（やれやれ）。

vbaでdir("*.xls")はローカルファイル（自分のpc）のxlsxファイルはゲットできたんだけど、リモートファイル（共有フォルダ）のxlsxファイルはゲットできなかったよ。やれやれ。また、マイクロソフトのバグ？でも、そんなときは、dir("*.xlsx*")と書けば良いようです。

モノマネvba虎の穴ルール１：vbaでは最大行を求める前にフィルターをクリアしておけ！

　モノマネvba虎の穴ルール１：vbaでは最大行を求める前にフィルターをクリアしておけ。

maxRow = ActiveWorkbook.Worksheets(1).Cells(Rows.Count,1).End(xlUp).Row
if Worksheets(1).FilterMode = True then WorkSheets(1).showAllData

ではなく、これだ

if Worksheets(1).FilterMode = True then WorkSheets(1).showAllData
maxRow = ActiveWorkbook.Worksheets(1).Cells(Rows.Count,1).End(xlUp).Row

やれやれだ。

vbaで前月同日をどう書くか？そして、それをファイル名にするにはどうすればいいのか？

vbaで前月同日は以下のように１ケ月、日を戻すdateaddで取得できる。

dateadd("m",-1,Date-1)

これを利用して、fileNameという変数に前月同日の文字列を入れるには、以下のようにコーディングする。

fileDate = Year(dateadd("m",-1,Date-1)) & Format(dateadd("m",-1,Date-1,"mm") & Format(dateadd("m",-1,Date-1),"dd")

yearもformatで出した方がいいかな

fileDate = format(dateadd("m",-1,Date-1),"yyyy") & Format(dateadd("m",-1,Date-1,"mm") & Format(dateadd("m",-1,Date-1),"dd")

　実は、最後のFormat(dateadd("m",-1,Date-1),"dd")をFormat(Date-1),"dd")としてしまい、変な日付のファイル名になってしまった。ハハハ。人生にはいろんなことが起こる。一筋縄ではいかないこともある。え、こんなミス、したの？あり得ない。

ここで、一息のコーナーだ。

　先日、特定検診をした。最初は、大きな病院の検診センターみたいなところを探したのだが、いつも予約で一杯。そこで、近所の病院の特定検診にしてみた。歩いていけたし、長い待ち行列はなかったし、意外と良かった。来年もこれでいいなぁと思った。遠くの大病院よりも近くの診療所かな。検査の科目ごとに名前と住所など書類を何個も書かされたのには、閉口した。