ランダムな数値の中から数値を抜き出す
未読分：3件
昨日以降(0) ２日前以降(0) ３日前以降(0) ４日前以降(0) ５日前以降(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です。 ご回答よろしくお願い致します。 |
昨日以降 ２日前以降 ３日前以降 ４日前以降 ５日前以降
