こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

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を使用して色々な書込を試してみましたが
うまく作動いたしません。
根本的に間違っているかと思いますがどの様に
修正すれば宜しいでしょうか?

投稿日時 - 2009-09-28 15:18:24

QNo.5325731

困ってます

質問者が選んだベストアンサー

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

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

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

投稿日時 - 2009-09-28 15:42:00

ANo.1

このQ&Aは役に立ちましたか?

1人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問