[已解决]窗体改动了一下，代码怎么改

9910343

窗体改动了一下，代码怎么改 快速导入.zip (26.61 KB, 下载次数: 7)

2012-9-2 13:48 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

柳如烟

2012-9-2 20:39

通过论坛高手“无聊的疯子”的提示我才明白你的意思，还不知道理解得对不对。如果正确，就把最佳给他吧。不然我不理解你的意思，就没法做下去了。

跳转到最佳答案楼层

柳如烟

1. 
   
2. 
   
3. Private Sub UserForm_Initialize()
   
4.     Dim i%
   
5.     With Me.ComboBox1
   
6.         For i = 1 To 12
   
7.             .AddItem i & "月"
   
8.         Next
   
9.     End With
   
10. End Sub
    

复制代码

9910343

柳如烟 发表于 2012-9-2 16:01

Private Sub CommandButton1_Click()
    Dim arr, i%, d As Object
    Set d = CreateObject("scripting.dictionary")
    arr = Sheets("客户资料").Range("a1:c" & Sheets("客户资料").Range("a65536").End(3).Row)
    For i = 2 To UBound(arr)
        d.Add arr(i, 1) & arr(i, 2), i
    Next
    For i = 1 To 12
        If Me.Controls("OptionButton" & i).Value = True Then
            Cells(d(TextBox1.Value & TextBox2.Value), i + 4) = TextBox3.Value
            Exit For
        End If
    Next
    TextBox1.Value = TextBox1.Value + 1
    TextBox3 = ""
    TextBox3.SetFocus
    Set d = Nothing
End Sub
Private Sub TextBox1_Change()
    Dim arr, i%
    arr = Sheets("客户资料").Range("a2:b" & Sheets("客户资料").Range("a65536").End(3).Row)
    For i = 1 To UBound(arr)
        If TextBox1.Value * 1 = arr(i, 1) Then
            TextBox2.Value = arr(i, 2)
        End If
    Next
End Sub
那要把你的这段代码放到上面的代码中呢，谢谢

柳如烟

不明白你的意思。
你想做怎样的操作完成什么样的结果？
重新开贴吧

9910343

柳如烟 发表于 2012-9-2 16:57
不明白你的意思。
你想做怎样的操作完成什么样的结果？
重新开贴吧

我想把窗体1换成窗体2，但是窗体2的功能和窗体1的功能是一样的，谢谢你了

柳如烟

看不懂你的窗体是做啥的

9910343

柳如烟 发表于 2012-9-2 18:10
看不懂你的窗体是做啥的

你点击窗体1，在客户代码里输入1001，在客户姓名里就会出现客户代码1001所对应的客户姓名李1，在数据旁边里输入数据，在勾选右边的月份，输入的数据就会导入到对应的位置，比喻勾选1月，数据就会导入到客户代码1001所在行的1月这列，也就是1001所在行和1月所在列的交汇处E2
谢谢

柳如烟

通过论坛高手“无聊的疯子”的提示我才明白你的意思，还不知道理解得对不对。如果正确，就把最佳给他吧。不然我不理解你的意思，就没法做下去了。

9910343

柳如烟 发表于 2012-9-2 20:39
通过论坛高手“无聊的疯子”的提示我才明白你的意思，还不知道理解得对不对。如果正确，就把最佳给他吧。不 ...

不知道怎么给他，谢谢了

9910343

柳如烟 发表于 2012-9-2 20:39
通过论坛高手“无聊的疯子”的提示我才明白你的意思，还不知道理解得对不对。如果正确，就把最佳给他吧。不 ...

还有一个问题想问你一下，我把窗体在sheet2中打开，数据就录入到sheet2中了，怎么样该一下代码，窗体在sheet2中打开，数据还是录入到sheet1中，谢谢