小女请会做窗口的帮忙做一个简单窗口输入

blueskyll · 发表于 2011-4-20 19:46

请帮我看一下附件的工作簿里面的要求，帮我做一下简单的窗口！

[ 本帖最后由 blueskyll 于 2011-4-20 22:07 编辑 ]

blueskyll · 发表于 2011-4-20 21:10

朋友在哪里？高手在哪里？

落子无声 · 发表于 2011-4-20 21:16

这个比较简单。你在坛子里找一个例子，把代码改一下就OK了。

blueskyll · 发表于 2011-4-20 21:19

能请你帮忙做一下吧

blueskyll · 发表于 2011-4-20 21:51

等啊等

xtanuihazfh · 发表于 2011-4-20 21:57

dim r as integer
with sheet1
  r=.range("B65536").end(xlup).row
  .cells(r,1)=textbox1.text
  .cells(r,1)=textbox2.text

.....................................
end with

blueskyll · 发表于 2011-4-20 22:00

近了一步，就是看怎么样让提交后的文字加到对应的单元格！救啊

yamizak · 发表于 2011-4-20 22:12

我也是新手，不知道我做的对不对呢？呵呵！

落子无声 · 发表于 2011-4-20 22:16

Private Sub CommandButton1_Click()
Dim i As Long
With Sheets("报价记录")
      i = .[a1].CurrentRegion.Rows.Count + 1
      .Cells(i, 1) = TextBox1.Text
      .Cells(i, 2) = TextBox2.Text
      .Cells(i, 3) = TextBox3.Text

      .Cells(i, 4) = ComboBox1.Text
      .Cells(i, 6) = ComboBox2.Text
      .Cells(i, 7) = ComboBox3.Text
      .Cells(i, 8) = ComboBox4.Text
      .Cells(i, 9) = ComboBox5.Text
      .Cells(i, 10) = ComboBox6.Text

End With
End Sub

Private Sub UserForm_Initialize()
ComboBox1.AddItem "刘备"
ComboBox1.AddItem "张飞"
ComboBox1.AddItem "关羽"
ComboBox1.AddItem "吕布"
ComboBox1.AddItem "典韦"
ComboBox2.AddItem "曹操"
ComboBox2.AddItem "孙权"
ComboBox2.AddItem "黄盖"
ComboBox2.AddItem "甘宁"
ComboBox2.AddItem "大乔"
ComboBox2.AddItem "小乔"

End Sub

重复的量太大，你照着这样把其余的　combobox 的初始代码写进去就好了。

xtanuihazfh · 发表于 2011-4-20 22:31

汗,太多的话用循环吧

		自动登录	找回密码
密码			免费注册

[求助] 小女请会做窗口的帮忙做一个简单窗口输入

回复 3楼落子无声的帖子

[求助] 小女请会做窗口的帮忙做一个简单窗口输入

回复 3楼 落子无声 的帖子

回复 3楼落子无声的帖子