Excel VBA質問箱 IV

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

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


66360 / 76734 ←次へ | 前へ→

【14938】Re:大文字と小文字チェック
回答  ichinose  - 04/6/10(木) 19:34 -

引用なし
パスワード
   ぴかる さん、ikkeさん、こんばんは。
ikkeさん、重複チェックのコード拝見しました。
>Private Sub CommandButton1_Click()
>  Dim e_row As Long
>  Dim idx As Long
>  Dim jdx As Long
>  Dim r_add As String
>  jdx = 1
>  e_row = Cells(Rows.Count, 1).End(xlUp).Row
>  r_add = Range(Cells(1, 1), Cells(e_row, 1)).Address
  With Range(Cells(1, 1), Cells(e_row, 1))
    .Value = Application.Evaluate("=if(" & .Address & "<>"""",upper(" & .Address & "),"""")")
   
    End With
>  For idx = 1 To e_row
>    With WorksheetFunction
>    If .CountIf(Range("a1:a" & idx), Range("a" & idx)) > 1 Then
>      MsgBox "受験番号が重複しています。" & Range("a" & idx).Value & ""
>
>    End If
>    End With
>  Next
>End Sub

確認して下さい。
4 hits

【14936】大文字と小文字チェック ikke 04/6/10(木) 18:47 質問
【14937】Re:大文字と小文字チェック ぴかる 04/6/10(木) 19:13 回答
【14938】Re:大文字と小文字チェック ichinose 04/6/10(木) 19:34 回答
【14942】Re:大文字と小文字チェック ちゃっぴ 04/6/10(木) 22:56 回答

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