Excel VBA質問箱 IV

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

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


7609 / 76732 ←次へ | 前へ→

【74709】Re:アプリケーション定義またはオブジェクト定義のエラーとでてしまいます
発言  kanabun  - 13/9/1(日) 11:31 -

引用なし
パスワード
   ▼KK さん:

>早速こちらを参考にして組んでみたところ、無事に必要な全ての行に番号を振ることが出来ました。
>投稿後も試行錯誤をしていたのですが、2重のIF文にしておらずうまくいかなかったので、
>とても今後の参考になりました。

If文でのチェックはそれで OK ですが、
あと、Select や ActiveCell を使わないコードを心がけましょう♪

Sub Sample番号ふり()
 Dim k As Long
 Dim m
 Dim c As Range
 
 m = Application.Match("end", [I:I], 0)
 If IsNumeric(m) Then
   For Each c In Range("I2:I" & m - 1)
     If Not IsEmpty(c.Value) Then
       If IsNumeric(c.Value) Then
         k = k + 1
         c.Offset(, 10).Value = k
       End If
     End If
   Next c
 Else
   MsgBox "I列に <end> がありません", vbCritical
 End If
End Sub

7 hits

【74704】アプリケーション定義またはオブジェクト定義のエラーとでてしまいます KK 13/9/1(日) 1:40 質問
【74705】Re:アプリケーション定義またはオブジェク... Yuki 13/9/1(日) 10:10 発言
【74707】Re:アプリケーション定義またはオブジェク... KK 13/9/1(日) 11:07 お礼
【74706】Re:アプリケーション定義またはオブジェク... kanabun 13/9/1(日) 10:19 発言
【74708】Re:アプリケーション定義またはオブジェク... KK 13/9/1(日) 11:20 お礼
【74709】Re:アプリケーション定義またはオブジェク... kanabun 13/9/1(日) 11:31 発言
【74710】Re:アプリケーション定義またはオブジェク... KK 13/9/1(日) 12:56 お礼

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