Excel VBA質問箱 IV

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

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


46898 / 76732 ←次へ | 前へ→

【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 質問
【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 お礼

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