B1セルからB500セルまでの間に、
空白セルがいくつあるかを数えるマクロを作りたいのですが…。
自分では作れません。
作ってください!!!
お願いします。

A 回答 (3件)

みなさんの回答のように関数でできますが、無理やりマクロにすると、こんなものですか。

最初はワークシート関数を使っています。2つ目は関数を使わず、数えています。結果をC1、C2に書き出します。
参考にして下さい。

Sub KuuhakuCount()
Range("C1") = WorksheetFunction.CountBlank(Range("B1:B500"))
End Sub

Sub KuuhakuCount2()
Dim rg As Range 'セル
Dim ct As Long 'カウンタ
For Each rg In Range("B1:B500")
ct = ct + Abs(rg = "") '空白なら件数をカウント
Next
Range("C2") = ct
End Sub
    • good
    • 0
この回答へのお礼

2つ目の方が「!!!」な感じ。
ありがとうございました。

お礼日時:2001/07/20 13:51

エクセルはあんまり詳しくないですが、


500-Counta(B1:B500)とかは?
    • good
    • 0
この回答へのお礼

お返事ありがとうございます・・・
でも、実はマクロで作りたかったー。
またいつか、お世話してください。

お礼日時:2001/07/20 13:50

式ではだめでしょうか?


マクロより式を使った方が早いと思いますよ。

=COUNTIF(B1:B500,"")

式はだめで、計算用のセルがある場合
Cells(501,2) = "=COUNTIF(B1:B500," & Chr(34) & Chr(34) & ")"
上記は、B501セルに"=COUNTIF(B1:B500,"")"を入力の意味
で、cells(501,2)の値を参照すれば値が取れます。
値が邪魔なら、取得した後に
cells(501,2) = ""
を実行し、クリアする。

一時的にもセルを使用できない場合はループ(For Next)を使って
地道に勘定するしか思いつかないです。
cnt = 0
for i = 1 to 500
if cells(i,2)="" then cnt = cnt + 1
next

もっと効率の良い関数があるのかもしれませんが...
    • good
    • 0
この回答へのお礼

試してみます…
ありがとうございました。

お礼日時:2001/07/20 13:52

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Qオフ車250ccで セルが回らない(泣) 

お世話になります。
ストレス発散に久々にバイクに乗ろうとしたら!
 
▼セルが回らない 
 ⇒バッテリーあがり?
▼業者に来て貰う 
 ⇒バッテリーつないでも(充電しても)かからないと言うより 
  セルがウンともすんとも言わない。

*冬の間は一度も乗らず
*先月、軽4につなげて 30kmほど走行
*ガソリン少なめ
*いつもは車は充電器につなげたら、一発でかかる
*今回は セルを押してもライトが押してる時に消えるだけで
セルの独特のティティティティ って音もしない
ウィンカー類は特に問題なし。

以上より。
キックはついておらず、私は押しがけはできません。
(昔はできたけど、女だし今の体力では厳しい・・・)

質問として
1.押しがけして エンジンがかかる可能性はあり?
 (ならば男友達に頼もうかと。)
2.バッテリーの問題?
 新品パッテリー購入すれば セルが回る可能性あり?
 (ならばとりあえずバッテリー購入)
3.セルの接触不良の問題?
 (素人でも調べる方法はアリ?セルモータをたたけば一時的に
  かかるとも聞いたことがあるが セルモータはどこにある?)

アドバイスお願いします。
ちなみにバイクは SUZUKI DR250R 98年式
バッテリーは毎年買いなおしています・・・
もともと電気系統のウィークポイントが多く なんと2000年式から
ノーマルでキックスタータがついたと言うバイクです。


 

お世話になります。
ストレス発散に久々にバイクに乗ろうとしたら!
 
▼セルが回らない 
 ⇒バッテリーあがり?
▼業者に来て貰う 
 ⇒バッテリーつないでも(充電しても)かからないと言うより 
  セルがウンともすんとも言わない。

*冬の間は一度も乗らず
*先月、軽4につなげて 30kmほど走行
*ガソリン少なめ
*いつもは車は充電器につなげたら、一発でかかる
*今回は セルを押してもライトが押してる時に消えるだけで
セルの独特のティティティティ って音もしない
ウィンカー類は特...続きを読む

Aベストアンサー

こん**は

 まずはバッテリーですね
 フル充電するか、新品に交換してください。
 次はスタータースイッチを点検してください。
 分解して中が汚れていないか確認です。
 汚れいればパーツクリーナなどで洗浄してください。
 バッテリーとスイッチが正常ならスターターリレーですね
 スイッチを押して「かちっ!」と言うならとりあえずは正常です。
 言わないのならリレー交換です
 リレーが正常なら、次はモーターです。
 モーターはエンジンから外して回るかどうか確認しましょう。
 モーターが回ればエンジン内(クラッチ周り)の故障
 モーターが回らなければモーター交換となります。

 確実にチェック出来る計測機器を用意してください
 工具、テスター等が無いのなら、詳しい友人に頼むのが良いでしょう
 どれもないのなら素直にバイク屋に行かれるのをお勧めします

QA列にB列の空白セル以外のセルの数だけ1から番号をふりたい。

A列にB列の空白セル以外のセルの数だけ1から番号をふりたい。

WIN7 Excel2007でマクロ作成中です。A列にB列の番号の入っているセル(空白セル以外の)の数だけ番号を入力したいのですが、下記コードで、うまく出来ません。どうしたらよろしいでしょうか。

Sub 行番号を入れる2()
Dim i As Integer
Dim fCnt As Long

'シートが保護されていたら保護を解除
If ActiveSheet.ProtectContents = True Then
ActiveSheet.Unprotect
End If
fCnt = WorksheetFunction.CountA(Sheets("一覧").Columns(2)) 'COUNTA関数でB列の入力セル数を求める。
For i = 1 To fCnt
Worksheets("一覧").Cells(i + 3, 1).Value = i
Next i
End Sub

Aベストアンサー

見出し:1行目
データ:2行目~~

'-------------------------------------
Sub test()
 Dim R As Long
 Dim No As Long

 ActiveSheet.Unprotect

 For R = 2 To Cells(Rows.Count, "B").End(xlUp).Row
   If Cells(R, "B").Value <> "" Then
     No = No + 1
     Cells(R, "A").Value = No
   End If
 Next R

 ActiveSheet.Protect
End Sub
'---------------------------------------------

Protectの引数は省略。
以上です。
 

Qセルが回らない

ybr125に乗っているのですが、セルが回らないため始動できません。

セルスイッチを押すと「カチっ」と音を立てるだけです。
夏頃から回りづらいと思ってはいたのですが、冬になると完璧に回らなくなりました。

最初はバッテリーを疑って2~3年物のバッテリーを新品に交換
現在、電圧はテスターで測ったところ12~13Vあります。

セルモーター自体はブースターケーブルを使って車から回すと快調に回ります。
押しがけではかかります。

今日はスターターリレーを交換してみましたが変わりませんでした。
ヒューズも交換済みです。

どこら辺が怪しいと思いますか?
キャブまで分解清掃したほうがいいでしょうか?

Aベストアンサー

>セルモーター自体はブースターケーブルを使って車から回すと快調に回ります。

↑この意味が理解出来ませんか?

車のバッテリーからブースターケーブル繋いで回るなら「バイクのバッテリーが弱ってる」のです。

バッテリーの電圧をテスターなどで測る場合は電流負荷を掛けないと弱っていても12Vから13Vの電圧は出ますから「セルモーターを回した時の電圧」を測ってください。

恐らく、8V以下の電圧に下がってしまうはずです。

だから、セルを回すだけのパワー(電流)がバッテリーから供給されずに回らないのです。

バッテリーを新品に換えても「バッテリーに充電されなければ直ぐに容量不足」になってしまいますから、充電系統が故障してる疑いもありますから、エンジン始動後にヘッドライトやウインカーを点けてエンジン回転数を上げたり下げたりして明るさが大きく変化するか確認してください。

また、その時のバッテリー電圧を測ってください。

エンジン回転数に応じてバッテリー電圧が変動するはずですが、バッテリーが正常に充電されて満充電状態になれば電圧変動は少なくなります。

結論は、バイクのバッテリーが充電不足で弱ってるからなので、充電器で充電するか長距離を走行してバイクの発電機で自力充電を行ってください。

バッテリーが元気に回復すれば、車からブースターケーブルを繋がなくてもセルが回るようになります。

>セルモーター自体はブースターケーブルを使って車から回すと快調に回ります。

↑この意味が理解出来ませんか?

車のバッテリーからブースターケーブル繋いで回るなら「バイクのバッテリーが弱ってる」のです。

バッテリーの電圧をテスターなどで測る場合は電流負荷を掛けないと弱っていても12Vから13Vの電圧は出ますから「セルモーターを回した時の電圧」を測ってください。

恐らく、8V以下の電圧に下がってしまうはずです。

だから、セルを回すだけのパワー(電流)がバッテリーから供給されずに回...続きを読む

Qマクロ 空白セルへの文字入力

A列が空白となるまでB列のとこどころに数字が入力されていて空白のセルへ0を入力する。
というマクロがどうしてもできないのですが、ご教示お願いします。

Aベストアンサー

A1セルから対象データが入っているとして、
簡単に書くとこんな感じでしょうか。

Dim i As Long

 i = 1

Do Until Cells(i, 1).Value = ""

If Cells(i, 2).Value = "" Then
Cells(i, 2).Value = "0"
End If

i = i + 1

Loop

他にもパターンはいくつかありますが、これが一番シンプルだと思いましたので。

Qライトはつくのに、セルが回らない!!

お世話になります。

先日、HIDの片方が点灯しなくなった為、新しい商品を購入、今日取り替えました。
けっこう時間はかかったものの、なんとか無事に終わりまして、車を車庫から移動させました。

その後、2時間くらい経ってから、車に乗ってエンジンをかけようとしたら、セルが全く回らなくなってしまいました。

ヘッドライトも付きますし、ルームランプもナビも正常に動きます。

とりあえず、アクセサリ→オンまではいつも通りですし、カチカチと言う音もします。
しかし、そこからどんなに回しても、ウンともスンとも。。。

違う車で何度かバッテリーを上げた事もありますが、、セルが回らないと言ってもキュルキュルぐらいは音が鳴って、エンジンがかからないと言った症状ではあったのですが、今回は本当に何の音も鳴りませんし、何の反応もありません(汗

HID(バルブではなくキットごと)を交換した際に、バッテリーを外しましたので、締め方が緩かっただろうか?と思ったのですが、そうでもないようです。

試しに、他の車のバッテリーとケーブルで繋いでセルを回してみましたが、同じ結果でした。。。(泣

これは何が原因と考えられるでしょうか?
ライトやナビ自体は正常に付くので、バッテリーではないと言うことでしょうか?
セルモーターですか?
今まで不具合らしい不具合は無かったのですが、それともやはりHID交換時に何かしてしまったのでしょうか。。。

車屋にも連絡して見ましたが、今日明日はどうしてもレッカーを使えないそうで。。。

どなたか、詳しい方がおられましたら、どうか想像の出来る範囲でも構いませんのでお知恵をお貸し頂きたく思います。
助けてください(泣
よろしくお願い致します!!

お世話になります。

先日、HIDの片方が点灯しなくなった為、新しい商品を購入、今日取り替えました。
けっこう時間はかかったものの、なんとか無事に終わりまして、車を車庫から移動させました。

その後、2時間くらい経ってから、車に乗ってエンジンをかけようとしたら、セルが全く回らなくなってしまいました。

ヘッドライトも付きますし、ルームランプもナビも正常に動きます。

とりあえず、アクセサリ→オンまではいつも通りですし、カチカチと言う音もします。
しかし、そこからどんなに回しても、ウン...続きを読む

Aベストアンサー

>カチカチ
どういう状況での音?、(1)キーをひねった時、(2)セル始動しようとした時、(3)その他。
真っ先に、セルモーターに十分な電気が行っていない(確実な状況)。
何故?、バッテリーに十分な電力がない(セルはライトの十倍以上必要と思うべし)(2)の時。
バッテリーOKだが(2)、バッテリ、セル直結する(ソレノイドスイッチ接触不良)ただし(1)の時で(2)で音がしない時はソレノイドスイッチの駆動回路に問題。
セルモーターの異常。
電気系をいじった後であり、2時間後の状況から、配線ミスでショートの可能性も否定できません。

QExcel マクロ VBA 別シートのセルを検索し、該当するセルの右にあるセルを入力させる方法 s

Excel マクロ VBA 別シートのセルを検索し、該当するセルの右にあるセルを入力させる方法

sheet『品名マスタ』にはA列に№、B列に商品名があります。sheet『一覧』のB列7行目以降に№が入っています。
※この№が重複することはありません。

『一覧』B列7行目以降にある№で『品名マスタ』A列の№を検索し、該当する『品名マスタ』B列の商品名を『一覧』のC列7行目に反映する。
『一覧』B列の№が空欄の場合は何も入れない。

という処理のボタンをつけたいのですが、どなたか詳しい方ご教授いただけないでしょうか?
(OS:Windows7 Excel:2010を使用しております。)

Aベストアンサー

こんにちは。
以下を試してみてください。

>処理のボタンをつけたい
マクロ名は任意です。Match関数を利用しています。

'//
Sub Button1_Click()  '←ここは任意
Dim c, i
Dim Sh1 As Worksheet: Set Sh1 = Worksheets("一覧")
Dim Sh2 As Worksheet: Set Sh2 = Worksheets("品名マスタ")
With Sh1
 For Each c In .Range("B7", .Cells(Rows.Count, 2).End(xlUp))
  If IsNumeric(c.Value) Then
   i = Application.Match(c.Value, Sh2.Columns(1), 0)
   If IsNumeric(i) Then
    c.Offset(, 1).Value = Sh2.Cells(i, 2).Value
   End If
  End If
 Next c
End With
End Sub

-----------
この種の質問では定番ですが、イベント・ドリブン型マクロがありますので、それも加えておきます。一覧のB列に数字を入れると、自動的に商品名が出てきます。Vlook関数とは似ていますが、違うのは、数字を消すと、右隣のセルの内容も消えます。

'//シートモジュール(シートタブを右クリック、コードの表示)

Private Sub Worksheet_Change(ByVal Target As Range)
 Dim i As Variant '数値型ではありません
 Dim buf As String
 Dim Sh1 As Worksheet: Set Sh1 = Worksheets("品名マスタ")
 If Target.Count > 1 Then Exit Sub
 With Target
 If .Column <> 2 Then Exit Sub
 If .Row < 7 Then Exit Sub
 '数字を削除すると、隣の文字が消える
 If .Value = "" Then Target.Offset(, 1).ClearContents: Exit Sub
  If IsNumeric(.Value) Then
   i = Application.Match(.Value, Sh1.Columns(1), 0)
   If IsNumeric(i) Then
    buf = Sh1.Cells(i, 2).Value
    Application.EnableEvents = False
    .Offset(, 1).Value = buf
    Application.EnableEvents = True
    buf = ""
   End If
  End If
 End With
End Sub

こんにちは。
以下を試してみてください。

>処理のボタンをつけたい
マクロ名は任意です。Match関数を利用しています。

'//
Sub Button1_Click()  '←ここは任意
Dim c, i
Dim Sh1 As Worksheet: Set Sh1 = Worksheets("一覧")
Dim Sh2 As Worksheet: Set Sh2 = Worksheets("品名マスタ")
With Sh1
 For Each c In .Range("B7", .Cells(Rows.Count, 2).End(xlUp))
  If IsNumeric(c.Value) Then
   i = Application.Match(c.Value, Sh2.Columns(1), 0)
   If IsNumeric(i) Then
    c.Offset(, 1)...続きを読む

Qセルが回らない CDIの故障はあり得ますか?

こんばんば。
ネットで買ったバイクのレストアをしている者です。(レストア初心者です。)
セルスイッチを押してもモーターが回りません。
※良くある、セルスイッチを押してもカチッと音がするだけでセルが回らないってヤツではありません。
セルスイッチを押してもうんともすんとも言いません。
いろいろ配線をチェックしたのですが、原因が分かりません。
そこで下記のサイトを見ましたところ、ジャンクションボックス内にもスターターリレーのスイッチがあるという事を知りました。
http://motor.geocities.jp/cfsxd043/kawasaki/kawa1.html
(1)このジャンクションボックス内のスターターリレーの部分が壊れてセルが回らないって事はあり得ますか?

それと、スターターリレー直結すると、セルモーターが回り、エンジン始動します。

また、スターターリレーが故障しているかチェックする方法を教えてください。

よろしくお願いします。

Aベストアンサー

>スターターリレー直結すると

この意味が曖昧なので断定できないですし
車種が不明ですが、リレーは大体ヒューズ(15~30A)と
一体になってバッテリー近辺にあるスイッチです。
http://www.geocities.co.jp/MotorCity-Circuit/2519/electrics/relay.html

キル、セルボタン等の接触不良があるとリレーに
12V来ないのでリレーが動作しません。
セルスイッチ等の接触やアースが正常でボタン押すか
バッテリー直でリレーの+側に12V送りリレーが動作しない
カチってならないならリレーの故障です。
リレー自体は、9~10Vあれば動作する部品で
長期放置だと固着したり壊れる場合があります。

その他で多いのは、ターミナルの接触不良
バッテリーのマイナス端子からボディやシリンダーに
いく配線の腐食や接触不良などもあります。
キーONで電装やランプが点灯しても、接触が
不十分だと大電流を必要とするためセルモーターは回らない
リレーがカカカカってしか動作しない例も
ありました。

中には特殊な車種、構造のものもあるので
本気でレストアするなら車種くらいは提示するか
サービスマニュアル購入たほうがいいですよ。
そこにリレー以外の電装のチェック方法や始動不能の場合の
フローチャート、配線図も詳しく書いてあるので。
http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1248608007

>スターターリレー直結すると

この意味が曖昧なので断定できないですし
車種が不明ですが、リレーは大体ヒューズ(15~30A)と
一体になってバッテリー近辺にあるスイッチです。
http://www.geocities.co.jp/MotorCity-Circuit/2519/electrics/relay.html

キル、セルボタン等の接触不良があるとリレーに
12V来ないのでリレーが動作しません。
セルスイッチ等の接触やアースが正常でボタン押すか
バッテリー直でリレーの+側に12V送りリレーが動作しない
カチってならないならリレーの故障です。
リレー自体は、9...続きを読む

Q空白と空白じゃないセルを判断するには?

いつもお世話になっております。

条件により別のセルへ文字列を入力するという物を組みたいのですが、あてはめるべき表現の仕方がわからなくて困っております。
例で申しますと、
D列とE列に文字列が入っていたり空白だったりするセルが存在します。
条件は
「D列に何かしらの文字列が入っていて(特に決まった形が無い)、E列は空白の時だけ、F列へ「■」と入力し、G列は空白とする。」
「それ以外の条件はすべて、F列は空白、G列には「□」と入力する」
と、いうようにしたいのですが、空白は
Dim i As Long
For i = 3 To Range("B65536").End(xlUp).Row
If Range("D" & i).Value = "" Then
のように表現すればよいのかと思ったのですが、
「空白ではない」場合の条件をどのようにすればよいのかわかりません。(その為、全文を作る段階へ進めておりません。)
  |D|E|F|G
1|あ| |■|
2|あ|え| |□
3| |か| |□
4| | | |□

「空白ではない」と判断するコードの書き方をお教えいただきたく、よろしくお願いいたします。
環境はWindowsXP、Excel2003です。

いつもお世話になっております。

条件により別のセルへ文字列を入力するという物を組みたいのですが、あてはめるべき表現の仕方がわからなくて困っております。
例で申しますと、
D列とE列に文字列が入っていたり空白だったりするセルが存在します。
条件は
「D列に何かしらの文字列が入っていて(特に決まった形が無い)、E列は空白の時だけ、F列へ「■」と入力し、G列は空白とする。」
「それ以外の条件はすべて、F列は空白、G列には「□」と入力する」
と、いうようにしたいのですが、空白は
D...続きを読む

Aベストアンサー

D列:入力あり、かつ、E列:未入力、→ F列:■
それ以外 → G列:□

'-------------------------------------------
Sub test()
 Dim i As Long
 For i = 3 To Range("B65536").End(xlUp).Row
   If Cells(i, "D").Value <> "" And Cells(i, "E").Value = "" Then
     Cells(i, "F").Value = "■"
     Cells(i, "G").Value = ""
   Else
     Cells(i, "F").Value = ""
     Cells(i, "G").Value = "□"
   End If
 Next i
End Sub
'---------------------------------------------

提示の表ではデータが一行目から始まってますが、
提示のコードでは、データが3行目から始まっているようになってますよ。
で、コードの方を尊重して、3行目からにしました。
以上、ここまで。

 

D列:入力あり、かつ、E列:未入力、→ F列:■
それ以外 → G列:□

'-------------------------------------------
Sub test()
 Dim i As Long
 For i = 3 To Range("B65536").End(xlUp).Row
   If Cells(i, "D").Value <> "" And Cells(i, "E").Value = "" Then
     Cells(i, "F").Value = "■"
     Cells(i, "G").Value = ""
   Else
     Cells(i, "F").Value = ""
     Cells(i, "G").Value = "□"
   End If
 Next i
End Sub
'----------------------...続きを読む

Qセルが回らない(T^T)

バリオスなのですが、バッテリーは、充電をし完璧な状態なのにセルが、回らない セルスイッチを押しても 「カチッ!!」と言う音しかしません。これは、セルが悪いのでしょうか?

Aベストアンサー

下記のURLに同じような症状のバイクがありました。
No.9に私が回答していますが、このときの質問者は
これで直ったようです。
一度、ご確認下さい。

参考URL:http://oshiete1.goo.ne.jp/kotaeru.php3?q=1412669

QExcelで空白セル直前のセルデータ値を取得したい

Excelで空白セル直前のセルデータ値を取得したいです。

   [A]  [B]  [C]  [D]  [E]  [F]  [G]  [H]
[1]   5  8  9

[A1]~[G1]と順番にデータをスキャンし、空白セルが見つ
かったらその直前のセルデータ値を取得し、その値を[H1]に表示す
るには、どのようにしたらいいでしょうか。
上記の場合は[D1]が空白セルなので、その前の[C1]の値 9 を
[H1]に表示したいです。
宜しくお願いします。

Aベストアンサー

条件つきですが次の方法は如何でしょうか。
・入力データは全て数値、途中に空白セルはない
H1に=INDEX(A1:G1,COUNT(A1:G1))で下方向にコピーして下さい。


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング

おすすめ情報