| |
▼ichinose さん：
いつも有り難うございます
もう少し甘えさせて下さい
このような際、既にＡ列に入っている数字の最大値以下の数字で欠番をmsgboxに書きたい場合はどうなるのでしょうか？つまり A1からA100に入っている数字の最大値がiの場合、1からiの数字で欠番を探したいのです
”少しは自分で考えろ”と叱られそうですが、配列が余り解りませんので宜しくお願い致します
>▼hisao さん：
>こんばんは。
>
>>A1からA100に１から１００の数字が入っています。
>>欠番を見つけて、userform1のtextbox1に連記する事が出来ないでしょうか
>>例えば 12,15,18が欠番ならtextboxに12,15,18と表示させたいのです
>>宜しくお願い致します
>セルが100個程度なら、配列数式で
>'==============================================
>Sub main()
> Dim add As String
> add = "a1:a100"
> With Range(add)
> .Formula = "=int(rand()*100)+1"
> .Value = .Value
> End With
> '↑A1:A100にサンプル作成
> MsgBox Join(Filter(Application.Transpose( _
> Evaluate( _
> "IF(ISERROR(MATCH(ROW(" & _
> add & ")," & _
> add & ",0)),ROW(" & _
> add & "),""×"")" _
> )), "×", False), ",")
>End Sub
|
|
hisao
- 07/9/2(日) 19:39 -
