バイクのセルスタートがいきなりきかなくなりました。セルを押すと『カチッ』と音がするだけです。キーを回すとライト類はつきます。
バッテリーがあがったのかと思いましたが、バッテリーはGSユアサの物を使って一年未満で、毎日約30キロは走っています。こんな感じでバッテリーが上がるのもおかしいかなと思ってバイク屋に持っていっても『バッテリーでしょ』とか言って見ようともしよらんし・・・。またバッテリー交換してすぐだめになるのも嫌なので・・
何か考えられる原因・対策がお分かりの方あれば教えて下さい。お願いします。

このQ&Aに関連する最新のQ&A

A 回答 (10件)

バッテリーは たぶん 大丈夫と 思います。



他の理由は たぶんレギュレターの 故障だと 思います。

バッテリーの点検
http://www.geocities.co.jp/MotorCity-Circuit/251 …

車種は違いますが レギュレターの点検
http://www.geocities.co.jp/MotorCity-Race/1159/r …

です。

バイク屋さんに テスターで 点検してもらえば良いと 思う

もし キックで エンジンかかったら

セルモーターだと思う

1万5千円 ぐらいかな?
    • good
    • 15

私の場合と全く一緒ですね(今年還暦を迎えたオヤジです)。



今年の4月の頭に病院からの帰りに200m程先のスーパーにより、かみさんに頼まれた食材を買っていざ帰ろうとセルを回したら「カチッ」と音がするだけでエンジンが掛かりませでした。キックでも掛からず。ほんの15分前には一発で掛かったのに。

親戚のバイク屋さんに来てもらって見てもらったのですが、セルモータかブラシが悪いのだろうと言うことで持ち帰って貰いました。
後日連絡が有りセルモータが駄目で¥2万~2.5万掛かるとのこと。

リード100で10年3ヶ月で18000km余り乗っていたので廃車にし(4月1日までなら税金¥1600払わなくて良かったのに)、7月の初旬にリ-ド110を購入しました。申し込んで3週間掛かりました(希望色があえばもっと早かったのですが)。
 
参考になれば幸いです。
    • good
    • 23

接触不良か断線かセルモーターに問題があるかでしょう。


そんなバイク屋とは縁を切ってください。
    • good
    • 46

セルモーターのブラシの接触不良老化・スターターリレー接点の接触不良・バッテリーターミナルの接触不良・バーテリーからのコードの接続部(+スターターモーター側・-ボディー側)の接触不足、上記のどれかが原因です。

    • good
    • 17

私も似たような経験がありますので体験談を・・・



市街地を走行中休憩のためコンビニによったとき、エンジンを切りトイレを済ませ
飲物を買って飲み(ここまで10分程)、再始動しようとしたら「カチッ」「カチッ」
と、セルが回らない・・・・
その場は、押しがけでしのぎました。

家に帰ってから簡単なチェックをしました。
1 バッテリー?  車にブースターケーブルをつないでセルを押しても「カチッ」と
  言うだけ。

2 セルモーターにつながるケーブルをチェック。 多少接点に錆はあるが表面だけで
  問題なしと判断。

3 とするとセルモーター自体の故障か? セルを押しながらプラハンでセルモータを
  コンコンとたたくとセルが回りました!原因はモーターのブラシのすり減りでした。
  
すぐにパーツを注文し(3000円程度だったと思う)パーツが来るまではプラハンを携帯して
しのぎました。修理は1時間程度で、自分で直せました。
修理後1年ぐらい毎日乗っていますが快調に始動してます。
    • good
    • 29

自分のバイクも良くなりました。

経験上この音にも2種類あります。
スターターサーキットリレーだけの作動音の場合音は小さいです。
セルを押して離す動きと連動している場合は、スタータリレーの作動音で、スターターサーキットリレーと同時に作動し比較的はっきりと聞こえます。

バッテリー上がりならば・・・
セルモーターが回す力は大体13Vくらいですが、放電によって7V程度に下がってもライトやメーターは点灯してしまいます。

1日30km走行というのは片道15kmということでしょうか?
だとすればそれは充電不足です。15kmだと30分程度だと思うのでバッテリー的には足りていません。
またアイドリングでも十分な充電もできません。
又、アンダーネオンやLED、シガー増設、特にセキュリティーは電力を大幅に消費します。

バッテリー上がりの場合、新品に交換後はバッテリーのために2~3000RPMで断続的に1時間以上回すようにするのが長持ちのコツです。

接点不良の場合・・・。
自分のバイクもこの接点不良に悩まされています。自分の場合はスタータリレーからセルモーターまでの太い線をゴニョゴニョ動かすとかかります。
スタータリレーは故障の多い箇所でもあるので注意が必要です。

まず今後同じことが起きても対応できるように安物でもいいのでテスターを買って下さい。
バッテリーに異常が無い場合は、導通確認やさまざまな原因究明ができます。

どうしても無理というなら、バッテリー端子、セルモーター、スターターリレーの接点を600番台のペーパーで磨くか、接点回復スプレーを吹いてみてください。

原因はたくさん考えられます。最終的にテスターが一番の近道だと思いますが。
    • good
    • 14

セルモーターは瞬間的には数十アンペアの電流が流れます、そのため手元のスイッチではそれだけの電流をコントロールするのは適当でないため、手元スイッチで別のリレーを作動させて大電流を、オン・オフします。


カチッと音がするのは、そのリレーの作動音です。
ところで、そのリレーの接点は点接触ではなく面接触になっています(大電流のため)が繰り返し使用する間にオフ時のスパークで接点が荒れて点接触になる時があります、そうなると大電流が流れず、音はすれどもセル回らずになります。
リレースイッチ交換がベスト、素人が接点すり合わせで、面接触回復は至難の業です。
【何回かトライして、偶然かかることもあります、そんなことを繰り返している間に、荒れたままでも点接触の場所が複数ケ所になって回復する時もあります
    • good
    • 11

カチッ と音がするなら、ヒューズは問題なし。


灯火類が点灯してもバッテリーに問題ないというわけではありません。
簡易でもいいのですがテスターがあれば電圧測定できるのですが・・・
GSユアサで使用1年未満で毎日走行していてもバッテリーに問題は発生します。
規格が同じでも、少々の型番違いで寿命が大幅に違ったりします。
一度、検電後に充電してみてください。
バイクのライトが常灯式に変わってから始動時のバッテリーの負担が大きいです。
    • good
    • 7

使い始めて1年も経っていない新品バッテリーであっても、ダイナモの発電能力が落ちて、あるいは壊れていればあがってしまいます。

    • good
    • 13

とりあえず自動車のバッテリーとブースターで繋いで始動してみることですね、それで始動すればバッテリーが悪いのです。

    • good
    • 6

このQ&Aに関連する人気のQ&A

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

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

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

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

QEXCEL VBA セルからファイル名を読み込む

EXCEL VBAについての質問です
同じ処理を名前の違う複数のファイルで行いたいと思っています
そこで、セルA2へファイル名の『○○.xls』○○部分だけをそれぞれのファイルに書き込んでおき、マクロは共通にしてファイル名をそれぞれのファイルから読み込んで実行したいと思っています。
良い方法を教えてください。


Workbooks("200809.csv").Activate
Sheets("200809").Select
Range("C3:C33").Copy
Windows("○○.xls").Activate'←ここをファイルにあわせて変更できる形にしたい
Sheets("報告書").Select
Range("G5:G35").Select
ActiveSheet.Paste
Windows("200809.csv").Activate
Range("K3:K33").Copy
Windows("○○.xls").Activate’←ここ
Sheets("報告書").Select
Range("I5:I35").Select
ActiveSheet.Paste
Workbooks("200809.csv").Close SaveChanges:=False

よろしくお願いします。

EXCEL VBAについての質問です
同じ処理を名前の違う複数のファイルで行いたいと思っています
そこで、セルA2へファイル名の『○○.xls』○○部分だけをそれぞれのファイルに書き込んでおき、マクロは共通にしてファイル名をそれぞれのファイルから読み込んで実行したいと思っています。
良い方法を教えてください。


Workbooks("200809.csv").Activate
Sheets("200809").Select
Range("C3:C33").Copy
Windows("○○.xls").Activate'←ここをファイルにあわせて変更できる形にしたい
Sheets("報告書").Se...続きを読む

Aベストアンサー

No.1です。
追加質問の件ですが、もともとのソースの
Sheets("報告書").Select
の"報告書"を、セルから取得したいという様な意味でしょうか?
それならまったく同様に↓と、なります(Sheet1のA3にある場合)
Sheets(ThisWorkbook.Sheets(1).Range("A3")).Select

ThisWorkbook.Sheets(1).Range("A3") これが、
ThisWorkbook:このマクロがあるブックの、
Sheets(1):1枚目のシートの、
Range("A3"):A3セルの値
を、指しています。

QVBA セル入力された日付データから年月のみを取り出してファイル名につけたい

セル入力された日付データから年月のみを取り出してファイル名につけたい、のですが・・・

下記のようなイメージです。
 A列    B列
1 日付   商品名  
2 2009/9/1 みかん   
3 2009/9/2 とまと   
4 2009/9/15 きゅうり

という明細データがある場合、
このファイルのファイル名を明細行の1番上(A2セル)に日付の年月だけにして保存したいのですが、可能でしょうか。
(上の例だと200909.xlsになるようしたいのですが)
ちなみに今は↓こんなコードでコピーしたファイルに名前をつけようとしていますが、エラーになってしまいます・・・
Sheets(1).Copy
ファイル名 = "\" & Sheets(1).Range("B13").Value & ".xls"
ActiveWorkbook.Close SaveChanges:=True, _
Filename:=ThisWorkbook.Path & ファイル名

宜しくお願い致します!

セル入力された日付データから年月のみを取り出してファイル名につけたい、のですが・・・

下記のようなイメージです。
 A列    B列
1 日付   商品名  
2 2009/9/1 みかん   
3 2009/9/2 とまと   
4 2009/9/15 きゅうり

という明細データがある場合、
このファイルのファイル名を明細行の1番上(A2セル)に日付の年月だけにして保存したいのですが、可能でしょうか。
(上の例だと200909.xlsになるようしたいのですが)
ちなみに今は↓こんなコードでコピーしたファイルに名...続きを読む

Aベストアンサー

こんにちは

それぞれのデータは、面倒かもしれませんが、メソッドに直接入れないで、一旦、変数などに取ったほうがよいです。

'-------------------------------------------

Sub MacroTest1()
  Dim fName As String
  Dim fPath As String
  '日付データを取る
  fName = Worksheets("Sheet1").Range("A2").Value
 
  If IsDate(fName) Then
    fName = Format$(fName, "yyyyMM")
    fPath = ThisWorkbook.Path & "\"
    'すでに保存している場合は、保存できません。
    If Dir(fPath & fName & ".xls") = "" Then
      Worksheets("Sheet1").Copy
      ActiveWorkbook.SaveAs fPath & fName & ".xls"
      ActiveWorkbook.Close False
    Else
      MsgBox fName & ": 同名ファイルがすでにあります。", vbInformation
    End If
  Else
    MsgBox "日付データがありません。", vbCritical
  End If
End Sub

こんにちは

それぞれのデータは、面倒かもしれませんが、メソッドに直接入れないで、一旦、変数などに取ったほうがよいです。

'-------------------------------------------

Sub MacroTest1()
  Dim fName As String
  Dim fPath As String
  '日付データを取る
  fName = Worksheets("Sheet1").Range("A2").Value
 
  If IsDate(fName) Then
    fName = Format$(fName, "yyyyMM")
    fPath = ThisWorkbook.Path & "\"
    'すでに保存している場合は、保存できませ...続きを読む

QエクセルVBAでセルにあるファイル名のファイルを同じくセルにあるフォルダ名のフォルダにコピー

お世話になります。
絶対パスがあり、コピー元、コピー先(格納先)としてシート上の操作で
ファイルをフォルダにコピーしたいのですが、VBAでできるでしょうか?

・B列B6以下にコピー元のファイル名(絶対パス)
・D6に格納先のフォルダ名(絶対パス)
があります。
この条件だけでコピー→格納するコードを教えていただけたら助かります。よろしくお願いします。

Aベストアンサー

またまた#1です。 (^o^)丿

同名ファイルがあるときは xxxx_01.jpg の形式の連番を付加して別名で保存する
のを考えてみました。(連番は Max10 まで)

ファイル名とコピー先のフォルダパス名にアンダースコア( _ )が付いていない
ことが条件です。

Sub Test2()
 Dim i, OldFile, OldName, FileExt, NewFile, NewName, n, Pos
 i = 6
 Do While Cells(i, 2) <> ""
  On Error Resume Next
  MkDir Cells(6, 4).Value  'コピー先に指定したフォルダがない場合は作成。
  OldFile = Cells(i, 2)
  OldName = Right(OldFile, Len(OldFile) - InStrRev(Cells(i, 2), "\") + 1)
  OldName = Left(OldName, InStrRev(OldName, ".") - 1)
  FileExt = Right(Cells(i, 2), Len(Cells(i, 2)) - InStrRev(Cells(i, 2), ".") + 1)
  NewFile = Cells(6, 4) & OldName & FileExt
  NewName = Left(NewFile, InStrRev(NewFile, ".") - 1)
  If Dir(NewFile) <> "" Then
   For n = 1 To 10
    Pos = InStrRev(NewName, "_")
    If Pos = 0 Then Pos = Len(NewName)
    NewFile = Left(NewName, Pos) & "_" & Format(n, "00") & FileExt
    If Dir(NewFile) = "" Then Exit For
   Next
  End If
  FileCopy OldFile, NewFile
  'Kill OldFile
  i = i + 1
 Loop
End Sub

またまた#1です。 (^o^)丿

同名ファイルがあるときは xxxx_01.jpg の形式の連番を付加して別名で保存する
のを考えてみました。(連番は Max10 まで)

ファイル名とコピー先のフォルダパス名にアンダースコア( _ )が付いていない
ことが条件です。

Sub Test2()
 Dim i, OldFile, OldName, FileExt, NewFile, NewName, n, Pos
 i = 6
 Do While Cells(i, 2) <> ""
  On Error Resume Next
  MkDir Cells(6, 4).Value  'コピー先に指定したフォルダがない場合は作成。
  OldFile =...続きを読む

QVBA マクロ セルと同じファイル名を選びたい

Excelでマクロを組んでいます。
以下のような場合にどのように組めばいいのか、悩んでいます。
是非、ヒントを下さい。

Excelファイル「book1」でマクロを組んでいるとします。
1)book1のセルA1に入力されている文字列と同じファイル名のbookを選択できないか
2)セルA1から順にA2、A3、A4と文字列の入力がないセルまで自動的にセル番地を横へおくり、1)の操作を繰り返すことができないか

ちなみに検索対象となるbookはすべて同じフォルダの中に格納されています。

よろしくお願いします。

Aベストアンサー

merlionXXです。

> セル番地はA1、B1、C1と横へ順におくれればと考えています。

要は書き間違いということですね。対応しました。

> セル内と同じ文字列のbookを開かず、そのbookの中のsheet1の特定の範囲を指定、コピーし、book1の指定の欄にに貼り付けたいと考えています。

開かずにデータを取得できません。ただ開いたのを気づかせないことはできます。これも対処しました。
でも、「指定範囲」がどうなっているのかお書きいただけないので、指定範囲のデータを取得し指定範囲に貼り付けるというコードは書けません。

Sub TEST03()
Dim myFn As String
Dim myRng As Range
Dim tb As Workbook, wb As Workbook
Set tb = ThisWorkbook
Set myRng = tb.Sheets("Sheet1").Range("A1")
Application.ScreenUpdating = False
Do While myRng <> ""
myFn = myRng.Value
Set wb = Workbooks.Open(ThisWorkbook.Path & "\" & myFn & ".xls")

'wbの指定範囲のデータ取得&tbの指定範囲に貼り付けるマクロ

wb.Close (False)
Set myRng = myRng.Offset(0, 1)
Loop
Application.ScreenUpdating = True
End Sub

merlionXXです。

> セル番地はA1、B1、C1と横へ順におくれればと考えています。

要は書き間違いということですね。対応しました。

> セル内と同じ文字列のbookを開かず、そのbookの中のsheet1の特定の範囲を指定、コピーし、book1の指定の欄にに貼り付けたいと考えています。

開かずにデータを取得できません。ただ開いたのを気づかせないことはできます。これも対処しました。
でも、「指定範囲」がどうなっているのかお書きいただけないので、指定範囲のデータを取得し指定範囲に貼り付けるという...続きを読む

QVBA  PDF ファイル名をセルからつける

ExcelでPDFを出力するときに、たとえばB1のセルに入力されているものを、ファイル名の一部として出力する方法がわかりません。

例えばB1に「資料1」と入力されていた場合で、PDFのファイル名を[TEST資料1.pdf]にしたい場合、下記に何かを足すだけでできますでしょうか?

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"I:\補TEST\TEST.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
End Sub

できれば、解説もいただけると助かります。よろしくお願いします。

Aベストアンサー

一例です。
文字列の結合ですから解説は不要ですよね。

"I:\補TEST\TEST" & Range("B1") & ".pdf", Quality:=xlQualityStandard, _


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

人気Q&Aランキング

おすすめ情報