数値か文字かで処理を分ける。 EXCEL VBA

EXCELって未だに理解できない事があります。

If ActiveCell.Value >0 Then A = A + 1

といった感じで、数値が入力されているセルの個数を
集計したかったのですが、上記の場合文字までカウント
されてしまいます。

このような基礎的？構造的？な事って皆さんどこで
調べるんでしょうか？

ひとまず、対処方法が見つかったので助かりましたが。

If IsNumeric(ActiveCell.Value) Then A = A + 1

これで、数値のみカウントされました。

関数：列番号を調べる。 エクセル

いままで気が付かなかった便利な関数。

アドレス関数で使っていたのですが、まだまだ
使いこなしていませんでした。

=COLUMN(B10) で「２」が戻ります


また、セルA1にＧ７と文字で入力されている場合、

=COLUMN(INDIRECT(A1)) で「7」が戻ります。


ちなみに行番号を求める関数ですが、
=ROW(B10) で「１０」が戻り、
=ROW(INDIRECT(A1)) で「７」が戻ります。

ダブルクリックイベント。複数の離れた範囲の設定 EXCEL VBA

以下のマクロをシートモジュールに貼り付けます。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
　　 If Not Application.Intersect(Target, Range　　　　　("AT14:AT88,AZ14:AZ88,CY14:CY88,DF14:DF88,DM14:DM88,DT14:DT88")) Is Nothing Then
Call 　範囲内を選択された時に実行するマクロ
End If
End Sub

Sub 範囲内を選択された時に実行するマクロ
Range("A1").value="テスト"
End Sub

離れた複数範囲を設定していますが、連続したセルなら
１つのセル範囲の設定でＯＫです。

シートモジュールへの貼り付けは左下にあるシート名(Sheet1など)を右クリックし、
「コードの表示(V)」を選択すると白紙のモジュールが表示されるので、貼り付ける
だけです。