Excel VBA質問箱 IV

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

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


46920 / 76732 ←次へ | 前へ→

【34779】Re:IsNumericでエラーがでてしまいます
回答  Hirofumi  - 06/2/12(日) 11:39 -

引用なし
パスワード
   >以前教えていただいたコードを自分で変えて
>本などをみながら作りましたが、
>If IsNumeric(vntData(v, 5)) = True Then のところで、
>「インデックスが有効範囲にありません」のエラーがでてしまい、
>理由がわかりません。
>どこが間違えているのか教えてください。

配列に1列しか取得していないのに、5列目(配列に無い列)を見ているから
当然、インデクスエラーが出るでしょう

>
>また、画面更新を再開と停止は必要なのでしょうか?

必須では有りませんので、削除してもOK

>処理完了のメッセージは出さなくてもよいです。

各「strProm = "・・・"」と「MsgBox strProm, vbInformation」を削除すれば善いのでは

後、何故、「For v = 2 To lngRows」が2から始まっているのですか?

Public Sub Sample()

  Dim vntData As Variant

  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

  With rngList.Offset(, 1).Resize(lngRows)
    .NumberFormatLocal = "@"
    .Value = vntData
  End With
 
Wayout:
   
  Set rngList = Nothing
 
End Sub
0 hits

【34775】IsNumericでエラーがでてしまいます さちきょん 06/2/12(日) 10:55 質問
【34777】Re:IsNumericでエラーがでてしまいます やっちん 06/2/12(日) 11:14 発言
【34778】Re:IsNumericでエラーがでてしまいます かみちゃん 06/2/12(日) 11:16 発言
【34779】Re:IsNumericでエラーがでてしまいます Hirofumi 06/2/12(日) 11:39 回答
【34798】Re:IsNumericでエラーがでてしまいます さちきょん 06/2/13(月) 12:48 発言
【34799】Re:IsNumericでエラーがでてしまいます やっちん 06/2/13(月) 13:00 発言
【34801】Re:IsNumericでエラーがでてしまいます さちきょん 06/2/13(月) 13:23 発言
【34802】Re:IsNumericでエラーがでてしまいます やっちん 06/2/13(月) 13:43 発言
【34807】Re:IsNumericでエラーがでてしまいます さちきょん 06/2/13(月) 14:54 お礼

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