2009-12-01

Excelで、A1形式をR1C1形式へ、R1C1形式をA1形式変換する方法（自分

Excelで、A1形式をR1C1形式へ、R1C1形式をA1形式変換する方法を、関数でかつエクセルのバージョンを
意識せずに使用できるものを探したが見つからなかったので、作ってみた。
かなりシンプルなコードに収まって自己満足（作成に時間はだいぶかかったが…）

'A1形式をR1C1形式へ変換する
'1 → A
'26 → Z
'27 → AA
'52 → AZ
'52 → BA
'256 → IV
'16384 → XFD
Public Function gfncN2A(ByRef lVal As Long) As String
Dim sVal As String
Dim lSyo As Long
Dim lAmari As Long
lSyo = lVal \ 26
lAmari = lVal Mod 26
If lAmari = 0 Then
lSyo = lSyo - 1
lAmari = 26
End If
sVal = sVal & Chr(64 + lAmari)
If lSyo > 0 Then
sVal = gfncN2A(lSyo) & Chr(64 + lAmari)
End If
gfncN2A = sVal
End Function

'R1C1形式をA1形式へ変換する
'A → 1
'Z → 26
'AA → 27
'AZ → 52
'BA → 52
'IV → 256
'XFD → 16384
Public Function gfncA2N(ByRef sVal As String) As Long
Dim lVal As Long
lVal = Asc(Right(sVal, 1)) - 64
If Len(sVal) - 1 > 0 Then
sVal = Left(sVal, Len(sVal) - 1)
lVal = lVal + gfncA2N(sVal) * 26
End If
gfncA2N = lVal
End Function

なぜ作ったかといえば、Range(Cells(row,col),Cells(row,col))でエラーになる命令
が多かったため。
R1C1形式が使用できればいいが、業務要件でできなかったため。

2009-06-24

CANON キャノン ESET Smart Security を使用して、6月23日より、インターネット（無線LAN）につながらず

PC関係

久しぶりの日記です。
えらい目にあったんで、書かずにはおれんかった・・・

お昼に嫁から連絡があり、ネットがつながらないとのこと。
調べてみると、JCOMの工事が入ってたのでケーブルモデム・ルータの再起動などを指示したものの、依然つながらず。

帰宅してから、試してみると、ESET のファイアーウォールを止めると動作するので、止める設定をやってみたが、再起動のたびに設定が復活し、つながらない状態で立ち上がる。

他に情報はないかと別のPCで調べてみると同じ症状の人が。
書いてあるのをみると、ESET の不具合らしい・・・なんてこったい。

キヤノンITソリューションズ：ESET Smart Security & ESET NOD32アンチウイルス：重要なお知らせ

ESET Smart Security のパーソナルファイアウォール機能バージョン1047(20090525)の通信障害について
[現象]
ESET Smart Security V3 および V4.0をご利用の一部のユーザーさまにおきまして、インターネットにつながらなくなる、通信ができなくなるなどの現象が発生しております。
[対象のウイルス定義データベースのバージョン]
4179(20090622)以降のバージョン
※4179(20090622)は、2009年6月23日02:00頃配信
[対象のパーソナルファイアウォールのバージョン]
1047(20090525)
[対処方法]
次のいずれかの方法で、この障害が改善されることを確認しております。

（中略）

※ 2009年6月23日 20:00 更新
現在も、原因を調査中です。
大変ご迷惑おかけしますが、今しばらくお待ちください。
なお、現在把握しています情報を下記に記載します。・ Windows Vistaの環境において、通信障害が発生しています。
・一時的にパーソナルファイアウォール機能を無効にすることで、通信が可能になります。

※ 2009年6月23日 19:00 作成
現在、原因を調査中です。詳細がわかり次第、このページを更新します。

ご迷惑をおかけしており、誠に申し訳ございません。
深くお詫び申し上げます。