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

最近の書き込み件数: 今日 0件、昨日 0件
未読分:3件

最新20件 最新50件 最新100件 最新200件 200件以前
昨日以降(0) 2日前以降(0) 3日前以降(0) 4日前以降(0) 5日前以降(0)


Excel VBAでIEを思いのままに操作できるプログラミング術 Excel 2013/2010/2007/2003対応

近田 伸矢, 植木 悠二, 上田 寛

IEのデータ収集&自動操作のプログラミング本はこの1冊だけ!IEの起動やポップアップウィンドウ、表示を制御する基本的なコードはもちろん、テキストボックスやラジオボタン、表、ハイパーリンクなどのHTML部品を制御する方法など、自動操作に欠かせないノウハウを丁寧に解説。

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

Message#2 2014年12月16日(火)07時29分
From: サイボウズ
返事 削除 変更
B1=IF(AND(COUNT(FIND({1,2,3,4,5,6,7,8,9},A1))=1,LEN(A1)>1),TRUE,"")
★下にコピー

C1=AND(COUNT(FIND({1,2,3,4,5,6,7,8,9},A1))=1,LEN(A1)>1)
★下にコピー

Message#1 2014年12月16日(火)07時29分
From: ランダム
返事 削除 変更
Excelの質問です。
ランダムな数値の中から777777のような各桁が同じ数字で構成されている数値を抜き出す方法はないでしょうか?
桁数は1桁〜10桁程度でこれもランダムで何桁と決まっているものではありません。VBAを使用する方法などでも無理でしょうか?
A列に数値、B列に上記条件に該当するものはTRUEと表示する等の方法でもOKです。
ご回答よろしくお願い致します。

最新20件 最新50件 最新100件 最新200件 200件以前
昨日以降 2日前以降 3日前以降 4日前以降 5日前以降

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

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

VBAのInternetExplorer操作入門

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

VBAのIE制御入門RSS

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

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

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

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

スポンサー リンク

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

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

スポンサー リンク

エクセルVBAのプロパティ

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

エクセルVBAのメソッド

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

エクセルVBAのイベント

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

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