ドコモ光の回線でIP電話のオプションをやめたら、回線がリセットされて、復旧するまでとても大変だった話

ドコモ回線に自前のWiFiルータを付けインターネットに接続しているが、先日、ひかり電話（IP電話）のオプション契約を解約した。
　すると、ＮＴＴはその回線の設定を全て、リセットしたようだ。電話のオプションだけをナシにしてくれればいいのに、全部の登録情報をリセットしたようなので、利用者のワタシは、WiFi側からドコモ回線に接続のためのログインidやパスワードを再度、登録するといった初期設定をやり直すことになった。具体的にはブラウザのアドレスに192.168.2.1を打ち込んで、Wifiの管理画面に入り、勇気を持って、設定のボタンを押して、次々と出てくる画面に適当にかつ適切に答えるだけである。すると、なんとか、その回線は、ワタシのWifiからの接続を許可してくれたのだった。
　こう書くと、簡単な話に聴こえるかもですが、ここにたどり着くまでに、自分で色々と試行錯誤し、かつ、インターネットの接続業者のトラブル対応窓口に相談したりと、それはもう、大変な半日を過ごしたのでした。この初期設定のボタンのクリックは、相当の覚悟が必要だった。だって、これまで動いていたのだから。なんでこちらがリセットしなければならないんだと。やれやれ、それそれ。

excelのシートに関数を詰め込み過ぎて、再計算の砂時計に占領された。もはや、vbaを書くしかない。

　複数の列の値が一致したら、その行の特定の列を抽出するために、ユーザー定義の関数をvbaのfunctionで書いてみた。
　autofilterで複数の列をフィルターし、特定の列を取得するコードを書いてみた。まずは、debugで１行ずつ、動かして、OKだった。
　次にシートにその自作関数を埋め込むと、#VALUE!エラーとなった。どうも関数を埋め込んだシートとは異なるシートにautofilterでフィルターをかけるのが無理なようだ。
　そこで、AutoFilterでの自作関数は諦めて、index関数とsumproduct関数、row関数のみで作ってみた。例えば、こんな感じだ。
　=INDEX(Z:Z,SUMPRODUCT((X:X= Tn )*( Y:Y= Sn ), ROW(Z:Z)))
　X列の値がTnで、Y列の値がSnの行を見つけて、その行番号のZ列の値を抽出するという式である。
　埋め込みの箇所が少ないうちは、快調に動いてくれたのが、excelのシートに関数をたくさん埋め込むと、やたらと再計算で、砂時計がワタシのやりたいことを阻む。
　やむを得ず、関数で実現していた処理をvbaで書いた。まず、Autofilterを使わず、まず、X列の値がTn,Y列の値がSnの行を求め、Z列の値を取得するコードを書いた。そして、実行ボタンで必要な時に動かすようにした。この方式でも数が増えると、砂時計が出てきて、時間がかかるようだ。AutoFilterで複数の列をフィルターし、特定の列を取得するコードにすると、数が増えても砂時計は現れず、スーと終わった。AutoFilterは高速だな。シート内関数としては、呼べないけど。やれやれ。それそれ。

Function GetValue(Tn as long,Sn as Long) as String
  With thisworkbook.worksheets("SearchList")
    With .Range("A1")
      AotoFilter ColumnNoForX,Tn
      AutoFilter ColumnNoForY,Sn
      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
            GetValue = R.Range("Z1").Value 
          Next R
        End With
      End If
    End With
  End With
End Function

excelでセルのn文字目が数字か否かを判定するとか、その類（たぐい）の話

　Anセルのn文字目を抽出するには Right(Left(An,n),1)だ。
　それが数字か否かは Isnumber(Value(Right(Left(An,n),1))))でいい。
　ちなみにValueを挟んでいるのがミソだ。
　これでセルのn文字目が数字か否かを判定することができる訳だが、いろんな付帯条件が付くことがある。例えば、3文字目が@の場合は除外するなら
　=IF(Left(An,3)="@",False,If(Isnumber(Value(Right(Left(An,n),1)))),True,False)
　そして、特定の文字Xが含まれるか否かは COUNTIF(An,"*X*")を使えばいい。