ランダムな数値の中から数値を抜き出す 削除

Message#3 2014年12月16日(火)07時30分
From: VBAマスター
アップ画像のセッティングにて。

Sub Sample()
Dim MyVal As Integer, MyFlg As Boolean
Dim j As Long, k As Long
With ActiveSheet
For j = 1 To .Cells(Rows.Count, 1).End(xlUp).Row
If Len(Cells(j, 1)) > 1 And IsNumeric(.Cells(j, 1)) = True Then
MyVal = Mid(.Cells(j, 1), 1, 1)
For k = 2 To Len(.Cells(j, 1))
If Mid(.Cells(j, 1), k, 1) <> MyVal Then
MyFlg = False
Exit For
Else
MyFlg = True
End If
Next
If MyFlg = True Then .Cells(j, 2) = "True"
End If
Next
End With
End Sub
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。

パスワード：

ExcelのVBAについてのQ&A掲示板

↑ExcelのVBA全般について分からない事があればこちらの掲示板よりご質問ください＾＾

VBAのInternetExplorer操作入門

↑ExcelのVBAをマスターできたら、エクセルVBAのIE（InternetExplorer）操作にも挑戦してみてください＾＾

VBAのIE制御入門RSS

RSSフィードを登録すると最新記事を受け取ることができます。

VBAIE操作のスカイプレッスン

ExcelのVBA入門

オブジェクトの構造

プログラムの基本

エクセルVBAのプログラム制御構文

エクセルVBAのデバッグについて

エクセルVBAの基本操作

エクセルVBAのステートメント

こちらでは、エクセルVBAの事例で利用したステートメントをまとめたものです。ExcelのVBAには様々な機能が用意されていますので一度ご確認ください。

エクセルVBAのオブジェクト

こちらでは、エクセルVBAの事例で利用したオブジェクトをまとめたものです。ExcelのVBAには様々な機能が用意されていますので一度ご確認ください。

エクセルVBAのプロパティ

こちらでは、エクセルVBAの事例で利用したオブジェクトのプロパティをまとめたものです。ExcelのVBAには様々な機能が用意されていますので一度ご確認ください。

エクセルVBAのメソッド

こちらでは、エクセルVBAの事例で利用したオブジェクトのメソッドをまとめたものです。ExcelのVBAには様々な機能が用意されていますので一度ご確認ください。

エクセルVBAのイベント

こちらでは、エクセルVBAの事例で利用したオブジェクトのイベントをまとめたものです。ExcelのVBAには様々な機能が用意されていますので一度ご確認ください。

ExcelのVBA関数

Excelのワークシート関数

エクセルVBAでIE制御の応用編

dmb.cgi Ver. 1.068
Copyright(C) 1997-2014, hidekik.com