質問掲示板
岡三RSS
集いの広場

FNEWORDER(マクロで呼び出し)

はじめて投稿します。よろしくお願いいたします。

早速ですが、表題の件で質問があります。
質問①：下記のコードを実行しますと、コード中のNorder = FNEWORDER(TK(1),・・・・・のうち「TK」の部分が選択されて 「ｺﾝﾊﾟｲﾙｴﾗｰ　ByRef　引数の型が一致しません。」とエラーが出ます。配列に格納するときはString型にしないといけないのでしょうか？　セルにマクロで呼び出しではなく直接＝FNEWORDER($Q$4,$R$4,$S$4,$T$4,$U$4,$V$4,$W$4,$X$4,$Y$4,$Z$4,$AA$4,$AB$4,$AC$4,$AD$4,$AE$4,$AF$4,$AG$4,$AH$4)と入力すると実行は出来ました。

質問②：FNEWORDER関数をマクロで呼び出す時にMsgBoxを使用したくない場合、「Call　FNEWORDER」とすれば実行出来ますか？

Public Sub Ordermini()
Call SetParts'ｼｰﾄ名等を格納します
Dim OrderSheet As Worksheet
Dim Norder As String
Dim TK(1 To 16) As Variant
Set OrderSheet = Worksheets(WsName(1))
With OrderSheet
Dim i As Integer
For i = 1 To 16
TK(i) = .Cells(4, 16 + i)
Next i
End With
Norder = FNEWORDER(TK(1), TK(2), TK(3), TK(4), TK(5), TK(6), TK(7), TK(8), TK(9), TK(10), TK(11), TK(12), TK(13), TK(14), TK(15), TK(16))’発注単価、発注条件はブランクです。
Call MsgBox(Norder)
End Sub

以上です。

2017年09月19日