Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

6474 / 76734

←次へ　｜　前へ→


	【75860】Range object をFunctionに引渡す処理について

Aoba - 14/7/19(土) 11:37 -


	引用なし

	パスワード

Range object(変数　Rng) をFunctionに引渡す場合以下のようにしましたが
引渡されていません。原因がわかりません
宜しくお願いします

Sub Comb入力()
　 Dim LastRow As Long
　 Dim Retu As Integer
　 Dim Rng As Range
　
　 Set sht = Workbooks("Bookname.xls").Worksheets("Sheet1")
　 Set Rng = Range("E4", Range("E65536").End(xlUp))
　 sht.Activate
　　 Retu = 5
　　 LastRow = Cells(65536, Retu).End(xlUp).Row
　　 sht.Cells(LastRow + 1, Retu) ="2020
　　 Comb sht, Rng, Retu

End Sub

Function Comb(sht As Worksheet, Rng As Range, Retu As Integer)
　　　Dim jyufuku As Integer
　　　Dim i As Integer
　　　
　　　For i = Cells(65536, Retu).End(xlUp).Row To 4 Step -1
　　　　　　jyufuku = WorksheetFunction.CountIf(Rng, Cells(i, Retu).Value)
　　　　　　If jyufuku > 1 Then
　　　　　　　 sht.Cells(i, Retu).Select
　　　　　　　　Selection.Delete Shift:=xlUp
　　　　　　End If
　　 Next i
End Function

Functionで
jyufuku = WorksheetFunction.CountIf(Rng, Cells(i, Retu).Value)
を以下のようにしますと上手く処理できます
jyufuku = WorksheetFunction.CountIf(Range("E4", Range("E65536").End(xlUp)), Cells(i, Retu).Value)

4 hits

▼

【75860】Range object をFunctionに引渡す処理について Aoba 14/7/19(土) 11:37

≪