フォームとテキストボックスを使用したVBA

Question

テキストボックスのコードを実装する方法について少し混乱します。テキストボックスを表示するフォームを設定しようとしています。このフォームでは、値（パラメータ）を入力するオプションがあり、別のサブプログラムに入力してそのサブプログラムを実行します。たとえば、次のコードで：

Option Explicit 

Sub FillSampleTable() 

'This will fill an x by y grid of numbers incrementing to use for testing purposes 

Dim x As Double 
Dim y As Double 
Dim z As Double 
Dim OffsetColumn As Integer 
Dim offsetrows As Integer 
Dim a As Long 

Application.ScreenUpdating = False 

a = 10 
OffsetColumn = 1 
offsetrows = 1 
z = 0 

For x = 1 To a 

    For y = 1 To a 

     z = z + 1 
     Cells(x + offsetrows, y + OffsetColumn).Select 
     Cells(x + offsetrows, y + OffsetColumn).Value = z 

    Next y 

Next x 

Application.ScreenUpdating = True 

End Sub 

私は「A」の値をユーザーに促すテキストボックスを持っているしたいと思うし、その値がロードされると、このサブプログラムが実行されます。値が入力されていない場合は、エラーmsgboxが表示され、入力画面に戻ります。 私は私が得るのボックスをクリックすると：

Private Sub GridSize_Change() 
    'I renamed text box GridSize 

    End Sub 

をこれで何をすべきかわかりません。 MS Excel v 2016.

Answer 1

必要なものはinputboxです。

あなたは、簡単な操作を行うことができます：

a = InputBox("Enter number a") 

あなたは正の整数である必要があるので、あなたは、少なくとも1（数）にInputBox関数によって受け入れられたデータ型を指定する必要があります。しかし、おそらく正の整数であることを確認する必要もあります。