Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

46902 / 76736

←次へ　｜　前へ→


	【34801】Re:IsNumericでエラーがでてしまいます

さちきょん - 06/2/13(月) 13:23 -


	引用なし

	パスワード

▼やっちんさん：
>▼さちきょんさん：
>こんにちは。
>コードの内容は見ていませんが、
>まだ何か問題があるのでしょうか？

▼やっちんさんへ

質問がわかりずらくてすみません。
Hirofumi さんにしたのように直していただいたのですが、
S2.Cells(2, 5)を選択し、その後E列の最後行まで同じ処理を
（sheet2)
したいのですが、(vntData(v, 1))でいいのですか？
ここのところがよくわかりません。
よろしくお願いいたします。

Set rngList = S2.Cells(2, 5)
　
　　With rngList
　　　　'データ行数を取得
　　　　lngRows = .Offset(65536 - .Row).End(xlUp).Row - .Row + 1
　　　　'データが無い場合
　　　　If lngRows <= 1 And .Value = "" Then
　　　　　　GoTo Wayout
　　　　End If
　　　　'データを配列に取得
　　　　vntData = .Resize(lngRows + 1).Value
　　End With
　
'　　For v = 2 To lngRows
　　　　For v = 1 To lngRows
'　　　　　　If IsNumeric(vntData(v, 5)) = True Then
　　　　　　If IsNumeric(vntData(v, 1)) = True Then
'　　　　　　　　If Len(vntData(v, 5)) = 3 Then
　　　　　　　　If Len(vntData(v, 1)) = 3 Then
'　　　　　　　　　　vntData(v, 5) = Left(vntData(v, 5), 2) _
'　　　　　　　　　　　　　　　　　　　　& "." & Right(vntData(v, 5), 1)
　　　　　　　　　　vntData(v, 1) = Left(vntData(v, 1), 2) _
　　　　　　　　　　　　　　　　　　　　& "." & Right(vntData(v, 1), 1)
　　　　　　　　End If
　　　　　　End If
　　　　Next v

0 hits

▼

【34775】IsNumericでエラーがでてしまいます さちきょん 06/2/12(日) 10:55