Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

73692 / 76732

←次へ　｜　前へ→


	【7514】Re:範囲選択

ichinose - 03/9/6(土) 18:20 -


	引用なし

	パスワード

▼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

0 hits

▼

【7512】範囲選択 tamago 03/9/6(土) 17:42