VBA フォーム テキストBOX数値除算

質問

エクセル　VBAのフォーム内数値の除算を行い
整数部分のみActiveSheetの指定セルに入力したいため
下記のように書き込みました。
Dim K As Integer
Dim G As Integer
Dim IRI As Integer
G = 5
IRI = 50
For K = 3 To 47
If Controls("Textbox" & K) <> "" Then
With ActiveSheet
.Cells(G, 4) = Controls("textbox" & K).Value
.Cells(G, 6) = "×"
For IRI = 50 To 72
.Cells(G, 7) = Application.WorksheetFunction. _
QUOTIENT(Controls("textbox" & K).Value, Controls("textbox" & IRI).Value)
Exit For
Next IRI
End With
End If
K = K + 1
Next K
上記内の
.Cells(G, 7) = Application.WorksheetFunction. _
QUOTIENT(Controls("textbox" & K).Value, Controls("textbox" & IRI).Value)
部分で実行時エラーになってしまいます。
QUOTIENTを使用して色々な書込を試してみましたが
うまく作動いたしません。
根本的に間違っているかと思いますがどの様に
修正すれば宜しいでしょうか？

回答No.1

kybo · ベストアンサー

ご使用のExcelのバージョンは2003でしょうか？
2007では最初から組込されているので使用出来ますが、2003では分析ツールアドインのQUOTIENT関数を使うことは出来ません。

以下の様にしてみて下さい。

Controls("textbox" & K).Value \ Controls("textbox" & IRI).Value