Excel VBA質問箱 IV

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

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


11652 / 13645 ツリー ←次へ | 前へ→

【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 回答[未読]

【14936】大文字と小文字チェック
質問  ikke  - 04/6/10(木) 18:47 -

引用なし
パスワード
   またまた質問です。
コードの頭にアルファベットが一文字入っています。
半角大文字で入力して欲しいのですが間違える人が
多いと思うので,小文字で入力されていたらチェック
したいのですが。
何かいい方法はありませんか?
コードの重複チェックのボタンがあるのでそこに
埋め込めればいいなあと思っています。
小文字半角があったら大文字半角に変換してしまえれば
一番いいのですが。
教えてください。お願いします。

【14937】Re:大文字と小文字チェック
回答  ぴかる  - 04/6/10(木) 19:13 -

引用なし
パスワード
   ikkeさん、こんにちは。

チェックせずに1ヶずつ大文字変換してみてはどうですか?。
コード = StrConv(コード, vbUpperCase)

本日も、もう帰宅致しますんで、これでおしまいです。

【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

確認して下さい。

【14942】Re:大文字と小文字チェック
回答  ちゃっぴ  - 04/6/10(木) 22:56 -

引用なし
パスワード
   >チェックせずに1ヶずつ大文字変換してみてはどうですか?。
>コード = StrConv(コード, vbUpperCase)

コード = Ucase(コード)

でもいいですね☆

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