[已解决]一个窗体求助

wingotoo

我有个需求，当我单击按钮1 时候，


弹出这样一个窗体（有textbox1和textbox2可供输入，texbox1和2输入时候显示的字体调大点，默认显示太小了）


输入完 按commonbutton1时将textbox1和textbox2分别输入到图1的内容和备注中，并关闭窗口
            按commonbutton2则退出程序


a.rar (16.8 KB, 下载次数: 2)

2015-9-19 15:43 上传

点击文件名下载附件
请教各位老师

最佳答案

月排行榜 / 总排行榜

七彩屋

2015-9-19 17:23

1. Private Sub CommandButton1_Click()
   
2.   If TextBox1 = "" Or TextBox2 = "" Then
   
3.     MsgBox "资料不全": Exit Sub
   
4.   End If
   
5. Dim i As Integer
   
6. With Sheet1
   
7.   i = .Range("C65536").End(xlUp).Row + 1
   
8.      .Cells(i, 3) = TextBox1.Value
   
9.      .Cells(i, 4) = TextBox2.Value
   
10. End With
    
11. Unload Me
    
12. End Sub
    
13. 
    
14. Private Sub CommandButton2_Click()
    
15. Unload Me
    
16. End Sub
    

复制代码

跳转到最佳答案楼层

七彩屋

1. Private Sub CommandButton1_Click()
   
2.   If TextBox1 = "" Or TextBox2 = "" Then
   
3.     MsgBox "资料不全": Exit Sub
   
4.   End If
   
5. Dim i As Integer
   
6. With Sheet1
   
7.   i = .Range("C65536").End(xlUp).Row + 1
   
8.      .Cells(i, 3) = TextBox1.Value
   
9.      .Cells(i, 4) = TextBox2.Value
   
10. End With
    
11. Unload Me
    
12. End Sub
    
13. 
    
14. Private Sub CommandButton2_Click()
    
15. Unload Me
    
16. End Sub
    

复制代码

七彩屋

a0919.rar (16.19 KB, 下载次数: 3)

2015-9-19 17:23 上传

点击文件名下载附件