Ｐａｇｅ 439 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼セル内の判定について あみやき 02/12/3(火) 15:30 ┣Re:セル内の判定について Nakamura 02/12/3(火) 23:41 ┃ ┗Re:セル内の判定について Nakamura 02/12/4(水) 8:56 ┗Re:セル内の判定について Jaka 02/12/4(水) 11:16 ┣訂正。 Jaka 02/12/4(水) 11:24 ┗Re:セル内の判定について あみやき 02/12/9(月) 10:18 ─────────────────────────────────────── ■題名 ： セル内の判定について ■名前 ： あみやき ■日付 ： 02/12/3(火) 15:30 -------------------------------------------------------------------------
| いつもお世話になっております。 質問なのですが、セル内の文字を判定をしたいのですが、 どなたかご指導くださいm(__)m あるワークシートのある列（例えばＬ列）の９行目から、行の最後までの中で半角アラビア数字以外のものは別のワークシートに抜き出すと言った処理ですが、どなたかご存じの方いらっしゃいましたら、ご指導ねがいます。 |
| ▼あみやき さん： >いつもお世話になっております。 >質問なのですが、セル内の文字を判定をしたいのですが、 >どなたかご指導くださいm(__)m > >あるワークシートのある列（例えばＬ列）の９行目から、行の最後までの中で半角アラビア数字以外のものは別のワークシートに抜き出すと言った処理ですが、どなたかご存じの方いらっしゃいましたら、ご指導ねがいます。 こんばんは >半角アラビア数字 とありますが、セルには半角アルファベット＋半角アラビア数字などの組み合わせ られた物もあるのですか？ 例えば ”123a” とか ”abc10” などです。 単純に”1000” などの半角アラビア数字とその他の文字列というなら 対象シートを”Sheet1"として、コピー先のシートを”Sheet2"とし、 ”Sheet2"のセル”A１”から抜き出した文字列を入れていくとして こんな感じでどうでしょう。 Sub test() Dim i As Long, rg As Range For i = Sheets("Sheet1").Range("F65536").End(xlUp).Row To 9 Step -1 Set rg = Sheets("Sheet1").Range("F" & i) If Asc(rg.Text) < 48 Or Asc(rg.Text) > 57 Then With Sheets("Sheet2") .Range("A1").Insert (xlDown) .Range("A1").Value = rg.Text End With rg.Delete (xlUp) End If Next End Sub 実行後”Sheet1"のF列には半角アラビア数字のみとなります。 外していたらご容赦下さい。 それでは |
| お早うございます。 追加です。 End Sub の前に Set rg = Nothing を追加して下さい。 それでは |
| ▼あみやき さん： >いつもお世話になっております。 >質問なのですが、セル内の文字を判定をしたいのですが、 >どなたかご指導くださいm(__)m > >あるワークシートのある列（例えばＬ列）の９行目から、行の最後までの中で半角アラビア数字以外のものは別のワークシートに抜き出すと言った処理ですが、どなたかご存じの方いらっしゃいましたら、ご指導ねがいます。 こんにちは。 半角カナは、半角英数字として扱われます。 参考になれば良いけど。 Sub sji() Dim a1 As String, a2 As String, セル As String セル = "A1" a1 = Range(セル).Text a2 = Val(Range(セル).Text) If a1 = a2 Then MsgBox セル & "は、半角数字" Else MsgBox セル & "は、全角混じりか、数字じゃない。" End If End Sub |
| 半角カナは、半角英数字として扱われます。 ↓ 半角カナの数字は、半角英数字として扱われます。 |
| Jaka さん,nakamura さん お礼が遅れて申し訳ございません。 これから試させていただきます。 ご指導ありがとうございました。 結果については後ほど報告いたします。 |