请教：窗体信息输入、数据运算，重置

vexce

请老师帮助，给这个窗体注入灵魂：


这个窗体要用于附件的多个 Sheet 中，例如： Sheet8, Sheet14, Sheet1, Sheet17 等。

希望实现的功能：
1）希望当窗体出现时，窗体的文本框总是显示 Sheet17 的 F1 单元格的值，该值是百份数，默认为 100%，如附件所示。
2）当用户在窗体文本框输入值，按“确定”键后，把该值输入到 Sheet17 的 F1 单元格。例如，在窗体文本框输入：150 后，Sheet17 的 F1 单元格值由 100% 变为 150%。
3）如果 Sheet17 的 F1 单元格的值发生改变，例如原为 100%， 现改为 150%，
     就把 Sheet7 (请注意不是Sheet17) H 列的数据 （H 列数据的行数变化不定，且中间会有空行）乘以 Sheet17 的 F1 单元格的值，结果四舍五入保留 1 位小数，
      并把运算结果返回到 Sheet7 的 G 列。（附件中该列，我暂时用 IF公式表现模拟效果。）
  （这句说明不知是否多余：如果窗体输入的值是100，即没改变 Sheet17 的 F1 单元格的值，则什么都不用做。）
4）当点击窗体中的“重置”按钮，则把 Sheet17 的 F1 单元格的值设置为 100%，然后，把 Sheet7 的 H 列的数值复制粘贴到 G 列。（最好是只粘贴数据，不改变G列格式。）

为了确保以上描述清晰周密，我花了不少时间梳理，希望表达得足够清楚且避免啰嗦。
请老师指教，谢谢！

窗体输入.rar (61.15 KB, 下载次数: 9)

2023-3-25 21:25 上传

点击文件名下载附件

蓝桥玄霜

窗体的例子：

准提部林

中間有空行//小數一位//
摸著寫

Private Sub UserForm_Initialize()
系數 = Sheet17.[f1] * 100
End Sub

Private Sub 重置_Click()
系數 = 100: Call 系數更改
End Sub

Private Sub 确定_Click()
If IsNumeric(系數) Then Call 系數更改
End Sub

Sub 系數更改()
Pcnt = 系數 / 100
If Sheet17.[f1] = Pcnt Then Exit Sub
Sheet17.[f1] = Pcnt
With range(Sheet7.[g3], Sheet7.[h65536].end(3)(3, 0))
     .formula = "=IF(N(H3)=0,"",ROUND(H3*" & Pcnt & ",1))"
     .Value = .Value
End With
End Sub

vexce

准提部林 发表于 2023-3-26 10:43
中間有空行//小數一位//
摸著寫

谢谢准提部林老师！


测试时，“确定”，和 “重置” 都会出现以下错误，请问如何解决？
代码是按您写的，只是把汉字改为简体，因为如果是繁体，在我的系统会出错。
另，改了系数，例如改为 120， 运行后，sheet7 G 列的值是小数点2位，不是1位。


窗体输入-v1.rar (59.84 KB, 下载次数: 6)

2023-3-26 12:03 上传

点击文件名下载附件

准提部林

vexce 发表于 2023-3-26 12:03
谢谢准提部林老师！

.formula = "=IF(N(H3)=0,"""",ROUND(H3*" & Pcnt & ",1))"

瞎著寫, 沒注意//

vexce

蓝桥玄霜 发表于 2023-3-26 09:59
窗体的例子：

谢谢蓝老师。

运行时出现以下情况：

改了系数，按 “确定”后，Sheet 7 H 列的值和格式都变了，这列的数据是不应该被改动的。同时， Sheet 7 G 列返回的值也不对。如下图 1）所示。

按 “重置” 后，出现错误提示，如下图 2）所示



窗体输入-蓝.rar (57.74 KB, 下载次数: 5)

2023-3-26 12:22 上传

点击文件名下载附件

xunanming

参与一下...................
这个窗体要用于附件的多个 Sheet 中，例如： Sheet8, Sheet14, Sheet1, Sheet17 等。这意思是系数在多个表格变动,还是如sheet7的数据运算在多表变动?

vexce

准提部林 发表于 2023-3-26 12:04
.formula = "=IF(N(H3)=0,"""",ROUND(H3*" & Pcnt & ",1))"

瞎著寫, 沒注意//

效果太棒了，正是我想实现的。谢谢！

想再请教：
希望在其他模块中，通过代码实现此窗体的 "重置" 功能，
（即，如果 Sheet17.[f1] = 1，就 EXIT SUB, 否则就把 Sheet 7 H 列的数据复制粘贴到 G列)
我笨拙地模仿了一段 sub，放在模块10中，运行正常。
能否帮掌掌眼，看这个SUB有无问题？或有无更好的方式？

Sub 重置()
系数 = Sheet17.[f1]
系数 = 100

Pcnt = 系数 / 100
If Sheet17.[f1] = 1 Then Exit Sub
Sheet17.[f1] = Pcnt
With Range(Sheet7.[g3], Sheet7.[h65536].End(3)(3, 0))
     .Formula = "=IF(N(H3)=0,"""",ROUND(H3*" & Pcnt & ",1))"
     .Value = .Value
End With
End Sub

窗体输入-准.rar (61.39 KB, 下载次数: 3)

2023-3-26 15:35 上传

点击文件名下载附件

vexce

xunanming 发表于 2023-3-26 15:29
参与一下...................
这个窗体要用于附件的多个 Sheet 中，例如： Sheet8, Sheet14, Sheet1, Shee ...

谢谢！测试了，效果是我期望的！
您的问题有点绕。我那句描述，意思是，需要在多个sheet中设置”系数“，所以希望在多个sheet中使用此窗体，以免每次要跑到某一sheet才能设置。

另，请问，可否把以下的运算结果四舍五入，保留一位小数？

arr(i, 1) = arr(i, 2) * 系数 / 100

准提部林

百分比固定在sheet17
計算結果為任意表???

那將 sheet7 改成 activesheet 吧!!!
但會容易錯誤執行, 因為無法確認當前表是否是正確的~~