Excel VBA質問箱 IV

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

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


68147 / 76738 ←次へ | 前へ→

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

引用なし
パスワード
   いつの間にか、シート名が変わってましたね。(^_^;)

現在の記述はこうなっております。
Private Sub CommandButton1_Click()
Dim LastRow As Long, i As Long
Dim KaiinNo As Long, CellGyo As Variant
KaiinNo = Worksheets("解析").Cells(i, 3).Value
CellGyo = Application.Match(KaiinNo, Worksheets("データ").Columns(1), 0)
LastRow = Worksheets("解析").Range("A65536").End(xlUp).Row

For i = 2 To LastRow
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("解析").Cells(i, 3).Value
でエラーが発生します。

エラーが出たときの右辺とは、どう言う意味でしょうか?

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 お礼

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