| |
▼優哉 さん：
こんばんは。
>
>回答有難うございました。
>今回お教えいただいたプログラムにて試してみたところ
>先ほどのような 型が一致しません と言うエラーはなくなったのですが
>ボタンをクリックすると（このプログラムを起動すると）
>A1〜A100に（テスト値？）値が上書きされてしまいます。
では、
重複チェックを関数化してみました。
'===================================================
Sub test()
If repeat_chk(worksheets(1).Range("a1:a100")) Then
MsgBox "重複しているデータがあります"
Else
MsgBox "セルa1:a100は、正常なデータです"
End If
End Sub
'==========================================================
Function repeat_chk(rng As Range) As Boolean
' repeat_chk True -----重複あり
' False----重複なし
Dim add1 As String
repeat_chk = True
add1 = rng.Address & "," & rng.Address
If Evaluate("=ROUND(SUM(1/IF(COUNTIF(" & add1 & ")=0,1,COUNTIF(" & add1 & "))),0)") = rng.Count Then
repeat_chk = False
End If
End Function
>このプログラムを元にカスタマイズしろということ？かとは思いますが
本当は、そうです。
>どのコードでどのような処理をしているのかちょっとわからないため
>本番モードのプログラムを教えていただけると助かります。
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=30302;id=excel
ここで、「まさ7251さん」が
>出来る方法は提示されているのですから、ご自分で試行錯誤してみて、
>具体的にどこで躓いているのかを書き込んでみてください。
>そうすれば、もっと有意義に掲示板を活用することが
>出来るかと思います。
とおっしゃっています。
私も半分は同じ思いです。
（少なくとも私が質問者ならそうします）。
残りの半分は、この掲示板の投稿内容を
どのように使うかなんて事は、優哉 さんが決めればよい事で
私がとやかく言うことではないなあ！！
という思いと半々です。
|
|
ichinose
- 05/10/24(月) 22:35 -
