Başka bir giriş kutusu tarafından izlenen ikinci bir giriş kutusu nasıl açılır Excel VBA

Question

Çok yeni bir soru, ancak işe yaramıyor gibi görünmüyor. Hücre seçiminde ("A501") kullanıcının bir sayı girmesini isterim. Sonra o kullanıcı giriş numarasını hücreye ("Y501") girmek istiyorum. Bu numara verildikten sonra, değeri otomatik olarak hücreye ("Z501") yerleştirilecek olan ikinci bir giriş kutusu ("Enter Cubic:") görünmesini istiyorum. Bu, sayfamda 2 olan şu andaki kod olan2 t

Private Sub CommandButton1_Click() 
    Call RunallMacros 
End Sub 

Option Explicit 

Sub Worksheet_SelectionChange(ByVal target As Range) 

    Dim C As Range 

    For Each C In Sheets("Sheet2").Range("Z501") 
     If Selection.Count = 1 Then 
      If Not Intersect(target, Range("a501")) Is Nothing Then 
       Carton = InputBox("Enter Carton Quantity") 
       Range("Y501").value = Carton 
       If C.value > 0 Then 
        Cubic = InputBox("Enter Cubic") 
        Range("Z501").value = Cubic 
       End If 
      End If 
     End If 
    Next 
End Sub 

Answer 1

sadece (kısıtlama kodlarının listesi için msdn documentation bakınız) numaralara Carton InputBox kısıtlayan deneyin, ardından `userform`` kullanarak inputbox` yerine mümkün değil C.Value

Dim Carton As Integer 
Carton = Application.InputBox("Enter Carton Quantity", Type:=1) 
Range("Y501").Value = Carton 
If Carton > 0 Then 
    Dim Cubic As Integer 
    Cubic = Application.InputBox("Enter Cubic", Type:=1) 
    Range("Z501").Value = Cubic 
End If