- Excel VBA 質問スレ Part39 [転載禁止]©2ch.net
569 ：デフォルトの名無しさん[sage]：2016/01/23(土) 19:41:11.42 ID:UyBsumDJ - >>565
調べてみましたが、やや難しそうです。(：；）
>>566
Emptyは必要ないですね//
配列をＡ列とＢ列にいったん貼り付けてワークシート関数で調べる方法ですよね。
ひとまず、やってみます！
>>567
使い方教えていただけますでしょうか？
SHL = WoksheetFunction.Countifs(Range( ),">60",Range( ) ,"HL")みたいな形で使えそうです。
| - Excel VBA 質問スレ Part39 [転載禁止]©2ch.net
571 ：デフォルトの名無しさん[sage]：2016/01/23(土) 19:46:50.85 ID:UyBsumDJ - >>568
他のループも合わせてからの推測ですが50msぐらいです。
| - Excel VBA 質問スレ Part39 [転載禁止]©2ch.net
573 ：デフォルトの名無しさん[sage]：2016/01/23(土) 19:55:52.13 ID:UyBsumDJ - >>543
サンプルで作ってみたのですが、思った通りの動作ができません・・・
改善点をお分かりになりますでしょうか？
Sub jikkou()
Dim Keyword As Range
Dim CheckList As Range
Dim Checkcolumn As Long
With ActiveWorkbook.Worksheets("Sheet1")
Set Keyword = .Range("F2:F4") '順に田中、山田、井上
Set CheckList = .Range("A2:C9")
Checkcolumn = 2
Call Test(Keyword, CheckList, Checkcolumn)
End With
End Sub
|
|