Excel VBA質問箱 IV

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

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


68150 / 76734 ←次へ | 前へ→

【13125】Re:データの変更について
質問  くーさん  - 04/4/23(金) 19:09 -

引用なし
パスワード
   何度も何度もすいません。
感謝の言葉もないくらいです。

現在の記述はこうなっております。
Private Sub CommandButton1_Click()
Dim LastRow As Long, i As Long
LastRow = Worksheets("解析").Range("A65536").End(xlUp).Row

For i = 2 To LastRow
 Dim KaiinNo As Long, CellGyo As Variant
 KaiinNo = Worksheets("解析").Cells(i, 3).Value
 CellGyo = Application.Match(KaiinNo, Worksheets("データ").Columns(1), 0)
 If Not IsError(CellGyo) And Worksheets("解析").Cells(i, "B").Value = 0 Then
  Worksheets("データ").Cells(CellGyo, "AC").Value = Worksheets("データ").Cells(CellGyo, "AC") + 1
 End If
Next i
End Sub

以上で実行した所、
>KaiinNo = Worksheets("JIHARAI").Cells(i, 3).Value
で、『実行エラー'13':/型が一致しません』とエラーが出ます。
まぁ、 i が引っ掛かってると思いますが、ここで i を外すと動かないですよね?
i = *** の何かを書かないとダメなんでしょうか?

完全に「教えて君」になっておりますが、宜しくお願い致します。m(_ _)m

0 hits

【13097】データの変更について くーさん 04/4/23(金) 12:46 質問
【13099】追記です… くーさん 04/4/23(金) 12:57 質問
【13100】Re:データの変更について Asaki 04/4/23(金) 13:00 回答
【13101】Re:データの変更について Asaki 04/4/23(金) 13:06 回答
【13102】Re:データの変更について くーさん 04/4/23(金) 13:44 質問
【13103】Re:データの変更について Asaki 04/4/23(金) 13:56 回答
【13115】Re:データの変更について くーさん 04/4/23(金) 17:52 質問
【13118】Re:データの変更について Asaki 04/4/23(金) 18:01 回答
【13119】Re:データの変更について Asaki 04/4/23(金) 18:03 回答
【13125】Re:データの変更について くーさん 04/4/23(金) 19:09 質問
【13128】Re:データの変更について Asaki 04/4/23(金) 20:44 回答
【13130】Re:データの変更について くーさん 04/4/23(金) 21:13 質問
【13131】Re:データの変更について Asaki 04/4/23(金) 21:23 回答
【13132】Re:データの変更について くーさん 04/4/23(金) 22:04 質問
【13133】Re:データの変更について Asaki 04/4/23(金) 22:13 回答
【13134】Re:データの変更について Asaki 04/4/23(金) 22:18 回答
【13137】Re:データの変更について くーさん 04/4/23(金) 23:08 質問
【13140】Re:データの変更について くーさん 04/4/23(金) 23:53 お礼

68150 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free