[已解决]求帮忙改代码，并给予详细说明。这些代码我是山寨来的

weishikey

Dim Int_R As Integer
Dim sh As Object
Private Sub CommandButton1_Click()
Int_R = ActiveCell.Row
sh.Cells(Int_R, 2) = ComboBox2.Text
sh.Cells(Int_R, 3) = TextBox4.Text
sh.Cells(Int_R, 4) = TextBox5.Text
sh.Cells(Int_R, 5) = TextBox6.Text
sh.Cells(Int_R, 6) = ComboBox6.Text
sh.Cells(Int_R, 7) = ComboBox7.Text
sh.Cells(Int_R, 8) = ComboBox4.Text
sh.Cells(Int_R, 9) = DTPicker1.Value
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub CommandButton3_Click()
Int_R = sh.Range("i65536").End(xlUp).Row + 1
sh.Cells(Int_R, 2) = ComboBox2.Text
sh.Cells(Int_R, 3) = TextBox4.Text
sh.Cells(Int_R, 4) = TextBox5.Text
sh.Cells(Int_R, 5) = TextBox6.Text
sh.Cells(Int_R, 6) = ComboBox6.Text
sh.Cells(Int_R, 7) = ComboBox7.Text
sh.Cells(Int_R, 8) = ComboBox4.Text
sh.Cells(Int_R, 9) = DTPicker1.Value
End Sub
Private Sub UserForm2_Initialize()
Set sh = Sheets("信息录入")
Set sh1 = Sheets("信息录入")
For i = 8 To sh1.Range("l65536").End(xlUp).Row
   ComboBox2.AddItem sh1.Cells(i, 12)
Next
Set sh = Sheets("信息录入")
Set sh1 = Sheets("信息录入")
For i = 7 To sh1.Range("m65536").End(xlUp).Row
   ComboBox6.AddItem sh1.Cells(i, 13)
Next
ComboBox7.AddItem "已传达"
ComboBox4.AddItem "已回复"
ComboBox4.AddItem "未回复"
Int_R = ActiveCell.Row
ComboBox2.Text = sh.Cells(Int_R, 2)
TextBox4.Text = sh.Cells(Int_R, 3)
TextBox5.Text = sh.Cells(Int_R, 4)
TextBox6.Text = sh.Cells(Int_R, 5)
ComboBox6.Text = sh.Cells(Int_R, 6)
ComboBox7.Text = sh.Cells(Int_R, 7)
ComboBox4.Text = sh.Cells(Int_R, 8)
DTPicker1.Value = Format(Now, "yyyy-MM-dd")
End Sub

上面的代码是山寨来的，我运行时代码出错：对象变量或with块变量未设置。求帮改改。先谢谢了！金币太少，没奖励，我留着报班。

最佳答案

月排行榜 / 总排行榜

mxg825

2012-8-5 13:43

窗体帮你改进好了

跳转到最佳答案楼层

weishikey

为啥就没高手们伸出友谊之手，帮新人一下{:041:}，要雷锋精神呀！发扬能帮则帮，不管是否是老乡，也不管是小伙或姑娘。{:011:}

mxg825

窗体帮你改进好了

weishikey

mxg825 发表于 2012-8-5 13:43
窗体帮你改进好了

谢谢！高手下了笔就不同，我山寨后看了几天都没弄明白。还得加倍努力啊。

weishikey

mxg825 发表于 2012-8-5 13:43
窗体帮你改进好了

还有三个问题麻烦帮看看：1、我想每次只能点第七行（黄色区域）任一单元格输入数据（第七行永远是空行），2、所输入的数据自动从第八行填起。3、数据按日期降序排序（当然，B列——I 列的所有信息也跟着日期变动）。