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

cut · 发表于 2005-12-17 16:50

c4shT7Oe.rar (13.4 KB, 下载次数: 3) 发表过几次都没得到想要的结果，请高手帮忙帮忙

qee用 · 发表于 2005-12-17 16:59

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

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

liusjie · 发表于 2005-12-17 17:07

qee用大师

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

cut · 发表于 2005-12-17 17:09

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

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

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

谢谢各位

青山依旧 · 发表于 2005-12-17 17:10

以下是引用[I]liusjie[/I]在2005-12-17 17:07:39的发言：[BR]
qee用大师
消失了这多天，终于又见到了

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

qee用 · 发表于 2005-12-17 17:11

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

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

cut · 发表于 2005-12-17 17:16

我哪么幸运呀？

plxmm · 发表于 2005-12-17 17:29

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

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

liusjie · 发表于 2005-12-17 18:15

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

qee用 · 发表于 2005-12-17 18:28

看楼主原代码的意图没有楼主表述的清楚，简单地改改，供参考。
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

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