[已解决][公告]请高手看一下问题

自由市场

一个问题搞不懂,请高手指导!

 

o3vHeNPr.rar (73.73 KB, 下载次数: 0)

2009-10-28 14:06 上传

点击文件名下载附件
[公告]请高手看一下问题

最佳答案

月排行榜 / 总排行榜

amulee

2009-10-28 20:44

3JyT8ftd.rar (29.38 KB, 下载次数: 12)

2009-10-28 20:44 上传

点击文件名下载附件
[公告]请高手看一下问题

忘了附件了

跳转到最佳答案楼层

桂林灬迷失

用VBA吧。我不会哦。学习了。

Dj_soo

第一问:用textbox1.text=format(数字,"0.00")

第二问:With Sheets("记录").Range("A1").End(xlDown)改成With Sheets("记录").[A65536].End(xlup)

风彩依然

学习一下

自由市场

谢谢Dj_soo,解决了一个问题,第一个仍没解决,请在VBE中做实例吧,谢谢!

 

LT64d7Jq.rar (73.9 KB, 下载次数: 0)

2009-10-28 20:01 上传

点击文件名下载附件
[公告]请高手看一下问题

amulee

改这个

Private Sub ComboBox1_DropButtonClick()
If ComboBox1.Value <> "" Then
Dim Ir As Integer
Dim rng As Range
Dim 信息 As String
    On Error Resume Next
   

    With Sheets("信息")
        Label15 = .Cells(.Range("A2:A100").Find(ComboBox1, , , xlWhole).Row, 1)
        Label16 = .Cells(.Range("A2:A100").Find(ComboBox1, , , xlWhole).Row, 2)
        Label17 = .Cells(.Range("A2:A100").Find(ComboBox1, , , xlWhole).Row, 3)
        Label11 = .Cells(.Range("A2:A100").Find(ComboBox1, , , xlWhole).Row, 4)
        TextBox1 = Format(.Cells(.Range("A2:A100").Find(ComboBox1, , , xlWhole).Row, 5), "0.00")
    End With
End If
End Sub

hxqzccct

QUOTE:

以下是引用amulee在2009-10-28 20:42:00的发言：

改这个

Private Sub ComboBox1_DropButtonClick()
If ComboBox1.Value <> "" Then
Dim Ir As Integer
Dim rng As Range
Dim 信息 As String
    On Error Resume Next
   

    With Sheets("信息")
        Label15 = .Cells(.Range("A2:A100").Find(ComboBox1, , , xlWhole).Row, 1)
        Label16 = .Cells(.Range("A2:A100").Find(ComboBox1, , , xlWhole).Row, 2)
        Label17 = .Cells(.Range("A2:A100").Find(ComboBox1, , , xlWhole).Row, 3)
        Label11 = .Cells(.Range("A2:A100").Find(ComboBox1, , , xlWhole).Row, 4)
        TextBox1 = Format(.Cells(.Range("A2:A100").Find(ComboBox1, , , xlWhole).Row, 5), "0.00")
    End With
End If
End Sub

学习   [em04]

amulee

3JyT8ftd.rar (29.38 KB, 下载次数: 12)

2009-10-28 20:44 上传

点击文件名下载附件
[公告]请高手看一下问题

忘了附件了

自由市场

谢谢Dj_soo和amulee两位高手!总算解决问题了.两位都该得最佳答案,但是只有一个最佳答案不能分,请不要见怪呀.

[此贴子已经被作者于2009-10-28 21:35:50编辑过]

zhuxingyu

[已解决][公告]请高手看一下问题

学习一下！