|
▼hisao さん:
こんばんは。
>A1からA100に1から100の数字が入っています。
>欠番を見つけて、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
|
|