|    | 
     ▼ちん さん: 
 
Private Sub SpinButton1_Change() 
   
  TextBox11.Value = SpinButton1.Value 
   
  SpinButton1.Min = 1000 
  SpinButton1.Max = 1000000 
  SpinButton1.SmallChange = 1000 
          
End Sub 
 
Private Sub SpinButton2_Change() 
   
  TextBox12.Value = SpinButton2.Value 
   
  SpinButton2.Min = 1000 
  SpinButton2.Max = 1000000 
  SpinButton2.SmallChange = 1000 
          
End Sub 
 
↓ 
Private Sub SpinButton2_Change() 
   
  TextBox22.Value = SpinButton12.Value 
   
  SpinButton12.Min = 1000 
  SpinButton12.Max = 1000000 
  SpinButton12.SmallChange = 1000 
          
End Sub 
 
 
昨日は大変失礼いたしました 
風邪引いて寝込んでしまいまして・・・・ 
 
記述まで間違っておりました 
上記のような感じです 
 
回答してくださった方々大変申し訳ございません 
宜しくお願いいたします 
 
 | 
     
    
   |