| |
▼tamago さん：
こんにちは。
> Ａ Ｂ Ｃ Ｄ Ｅ Ｆ Ｇ
>1 sihin buhin no 物質 質量 含有率 含有量
>2 s-003 ｂ２ 1 鉛 2 1000 2000
>3 s-003 ｂ３
>4 s-003 ｂ４ 2 銀 3 1000 3000
>5 s-003 ｂ５
>6 s-003 ｂ６ 1 鉛 2 1000 2000
>7 s-003 ｂ７ 2 銀 3 1000 2000
>上記のようなエクセルファイルがあります。このエクセルファイルはアクセスのクエリからエクスポートしたものです。
>このときセルＩ１に全レコード数のうちnoが空白なっているのは何パーセントか表示させるVBAを作成したいのです。レコード数が都度かわるため、範囲選択をどのようなコードで記述すればよいのか、まったくわからず困っています。よろしくお願いします。
ワークシート関数をVBAを使ってセルI1に入れています。
'==================================================================
Sub Macro1()
With Range("i1")
.Formula = _
"=COUNTBLANK(OFFSET($A2,0,2,COUNTA($A:$A)-1,1))" & "/" & _
"COUNTA(OFFSET($A2,0,0,COUNTA($A:$A)-1,1))"
.Style = "Percent"
End With
End Sub
|
|
