|
ichinose さん
回答有難うございました。
今回お教えいただいたプログラムにて試してみたところ
先ほどのような 型が一致しません と言うエラーはなくなったのですが
ボタンをクリックすると(このプログラムを起動すると)
A1〜A100に(テスト値?)値が上書きされてしまいます。
このプログラムを元にカスタマイズしろということ?かとは思いますが
どのコードでどのような処理をしているのかちょっとわからないため
大変申し訳ありませんが 本番モードのプログラムを教えていただけると助かります。
何度も申し訳ございませんが宜しくお願いします。
▼ichinose さん:
>もう出かけてしまうので以下のコードでうまくいかないと
>投稿は夜になってしまいますが、
>コードは今、優哉さんが抱えている問題のブックにではなく、
>新規ブックの標準モジュールに記述してください。
>
>'======================================
>Sub test()
> Dim rng As Range
> Dim add As String
> 'サンプル1
> With Range("a1:a100")
> .NumberFormatLocal = "G/標準"
> .Formula = "=row()"
> .Value = .Value
> End With
> Set rng = Range("a1", Cells(Rows.Count, 1).End(xlUp))
> add = rng.Address & "," & rng.Address
> If Evaluate("=ROUND(SUM(1/IF(COUNTIF(" & add & ")=0,1,COUNTIF(" & add & "))),0)") = rng.Count Then
> MsgBox rng.Address & " 中に重複なし"
> Else
> MsgBox rng.Address & " 中に重複あり"
> End If
>
> 'サンプル2
>
> With Range("a1:a100")
> .Formula = "=row()"
> .Value = .Value
>
> End With
> Range("a1:a5").Value = 1
> Set rng = Range("a1", Cells(Rows.Count, 1).End(xlUp))
> add = rng.Address & "," & rng.Address
> If Evaluate("=ROUND(SUM(1/IF(COUNTIF(" & add & ")=0,1,COUNTIF(" & add & "))),0)") = rng.Count Then
> MsgBox rng.Address & " 中に重複なし"
> Else
> MsgBox rng.Address & " 中に重複あり"
> End If
>End Sub
>
>
>数式に変更がありますが、基本的には前回と同じです。
|
|