有一个负数的问题要请教大家

cut

c4shT7Oe.rar (13.4 KB, 下载次数: 3)

2005-12-17 16:49 上传

点击文件名下载附件
有一个负数的问题要请教大家

发表过几次都没得到想要的结果，请高手帮忙帮忙

qee用

以下是引用[I]cut[/I]在2005-12-17 16:50:36的发言：[BR] 发表过几次都没得到想要的结果，请高手帮忙帮忙

给个以前的连接，看看都是怎么解决的？

liusjie

qee用大师

消失了这多天，终于又见到了

cut

谢谢，我的textbox有五行，每行有7个，不一定每行都有数据的，

有时候有一行，有时候有两行，只要我选项是“负数"，它都将

数量、重量和金额的textbox变为负数，可以做个例子给我吗？

谢谢各位

青山依旧

以下是引用[I]liusjie[/I]在2005-12-17 17:07:39的发言：[BR]

qee用大师

消失了这多天，终于又见到了

用哥,你回来了,大家很高兴哟.

qee用

呵呵，liusjie兄好，我也很想念你，还有青依MM。
女儿出生后，我围着她天天晕头转向的。
抽空上来看看。

[此贴子已经被作者于2005-12-17 17:13:58编辑过]

cut

我哪么幸运呀？

plxmm

以下是引用[I]qee用[/I]在2005-12-17 17:11:27的发言：[BR]呵呵，liusjie兄好，我也很想念你，还有青依MM。
女儿出生后，我围着她天天晕头转向的。
抽空上来看看。

人生的有一个里程碑。恭喜....

liusjie

呵，占地盘了，还是到休闲吧去

qee用

看楼主原代码的意图没有楼主表述的清楚，简单地改改，供参考。
Private Sub CommandButton7_Click()
Dim i%, j%, irow%
Dim v As Range, m%
With Sheet2
For Each v In Sheet2.Range("a5:G8")
v = Me.Controls("TextBox" & m + 3).Value
m = m + 1
Next
Sheet2.Cells(2, 8) = TextBox1.Text '单号
Sheet2.Cells(3, 2) = TextBox2.Text
Sheet2.Cells(3, 8) = DTPicker1.Value
End With

With Sheet4
irow = .Cells(65535, 1).End(xlUp).Row + 1
For i = 0 To 3
If Me.Controls("TextBox" & i * 7 + 3).Text = "" Then
Exit For
End If
.Cells(irow, 1) = Me.DTPicker1.Value
.Cells(irow, 2) = Me.TextBox1.Value
.Cells(irow, 10) = Me.TextBox2.Value
For j = 1 To 7
.Cells(irow, 2 + j) = Me.Controls("TextBox" & i * 7 + 2 + j).Text
Next j
If Me.OptionButton2 Then
.Cells(irow, 6) = -.Cells(irow, 6)
.Cells(irow, 7) = -.Cells(irow, 7)
.Cells(irow, 9) = -.Cells(irow, 9)
End If
irow = irow + 1
Next i
End With
Unload Me
End Sub