|
▼ウッシ さん:
ご回答ありがとうございます。
引数について確認いたしましたが、いづれも1回目のコメント書き込みと同様のデータ型を使用しているので、問題ないように思われるのですが。
xlSheetにはWorksheet、WMon,WItemには数値
Sub Standard(mon As String, item() As Object, i As Long)
Dim xlSheet As Worksheet
Dim objx As Object
Dim objy As Object
Dim WMon As Long
Dim WItem As Long
'エクセルをすでに開いているかの確認。
If IsBookOpen("主要な製品在庫.xlsx") = False Then
Workbooks.Open Filename:="C:\Users\User\Dropbox\主要な製品在庫.xlsx"
End If
'ここでxlSheetにセットしています。
Set xlSheet = Workbooks("主要な製品在庫.xlsx").Worksheets("標準品在庫")
'objxにコメントを書き込むX軸(売上月)の位置を検索します。
Set objx = xlSheet.Cells.Find(mon & "月", SearchOrder:=xlByRows, LookAt:=xlWhole)
'objyにコメントを書き込むY軸(製品)の位置を検索します。
Set objy = xlSheet.Cells.Find(item(i), SearchOrder:=xlByColumns, LookAt:=xlWhole)
’主要な製品ではければ、Subを抜けます。
If objy Is Nothing Then
Exit Sub
End If
'WMonにコメントの書き込み列を、WItemに行をいれます。
WMon = objx.Column + 1
WItem = objy.Row
'コメント書き込みのプロージャーを呼び出します。
Call WComment(xlSheet, WItem, WMon, item(), i)
End Sub
>こんにちは
>
>WCommentを呼び出す際の引数が間違っているのでは?
>
>xlSheetの内容、WItem、 WMonの値を確認して下さい。
|
|