Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2521|回复: 16

[已解决]帮我改一下,谢谢!!!

[复制链接]
发表于 2012-10-8 20:54 | 显示全部楼层 |阅读模式
帮我改一下,谢谢!!!
最佳答案
2012-10-9 15:12
(, 下载次数: 8)

tt.rar

229.34 KB, 下载次数: 22

发表于 2012-10-8 21:13 | 显示全部楼层
tt.rar (235.24 KB, 下载次数: 3)
回复

使用道具 举报

发表于 2012-10-8 21:14 | 显示全部楼层
楼主啊,控件名字要么就按序号排列吧,乱七八糟的,
回复

使用道具 举报

发表于 2012-10-8 21:14 | 显示全部楼层
arr2 = Array(TextBox6.Value, TextBox1.Value, TextBox2.Value, TextBox3.Value, ComboBox5.Value, _
        ComboBox1.Value, ComboBox2.Value, ComboBox3.Value, ComboBox4.Value, TextBox7.Value, TextBox8.Value, _
        TextBox9.Value, TextBox10.Value, TextBox11.Value, TextBox12.Value, TextBox13.Value)
        .Cells(myR, 1).Resize(1, UBound(arr2) + 1) = arr2
        .Cells(myR, 1).Resize(1, UBound(arr2) + 1).Borders.LineStyle = 1
Array是常量数组,里面只能用常数
像你这个,你就按个单元格填写窗体的内容就好了,没必要整这么复杂
回复

使用道具 举报

发表于 2012-10-8 21:24 | 显示全部楼层
tt.rar (236.18 KB, 下载次数: 9)
回复

使用道具 举报

 楼主| 发表于 2012-10-8 21:40 | 显示全部楼层
hwc2ycy 发表于 2012-10-8 21:24
控件序号试着改了下。


Private Sub ComboBox4_Enter()
    Dim X
    Dim d As New Dictionary
    For X = 1 To UBound(arr)
       If Not d.Exists(arr(X, 5)) Then
            d.Add arr(X, 5), ""
        End If
    Next X
    ComboBox4.List = d.Keys
End Sub
回复

使用道具 举报

发表于 2012-10-8 21:42 | 显示全部楼层
上次好像你也传过一个类似的,这样的写法,看着真叫人头疼啊。
回复

使用道具 举报

 楼主| 发表于 2012-10-8 21:45 | 显示全部楼层
hwc2ycy 发表于 2012-10-8 21:42
上次好像你也传过一个类似的,这样的写法,看着真叫人头疼啊。

帮我一下,谢谢!!!
回复

使用道具 举报

发表于 2012-10-8 21:48 | 显示全部楼层
我帮你改的已经可以运行了啊。
后面几个单元格你要怎么运算法,我都不得而知啊。
回复

使用道具 举报

 楼主| 发表于 2012-10-8 21:51 | 显示全部楼层
hwc2ycy 发表于 2012-10-8 21:48
我帮你改的已经可以运行了啊。
后面几个单元格你要怎么运算法,我都不得而知啊。

点工作内容时,有问题
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 18:38 , Processed in 5.053801 second(s), 12 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表