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

xunanming

vexce 发表于 2023-3-26 15:48
谢谢！测试了，效果是我期望的！
您的问题有点绕。我那句描述，意思是，需要在多个sheet中设置”系数“ ...

忘记写了,你自己改成arr(i, 1) = Round(arr(i, 2) * 系数 / 100, 1)

准提部林

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

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

Private Sub 确定_Click()
If IsNumeric(系數) Then Pcnt = 系數: xMode = 2: Call 系數更改
End Sub
'----------------------------------
模組區//
Public Pcnt, xMode%

Sub 系數表單()
UserForm1.Show 0
End Sub

Sub 系數更改()
Pcnt = Pcnt / 100
If xMode = 1 And 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

工作表名稱自行調適~~

vexce

准提部林 发表于 2023-3-26 15:56
百分比固定在sheet17
計算結果為任意表???

Sheet17 的百分比，是用于 Sheet7 。
其他多个 Sheet 需要查询 Sheet7 的数据，但不是同时使用。
每个Sheet 查询 Sheet7 的数据前，我都会重置 Sheet17 的百分比，并视具体需要看是否要更改系数。
所以您的代码应该没问题。

vexce

准提部林 发表于 2023-3-26 15:57
表單區//
Private Sub UserForm_Initialize()
系數 = Sheet17.[f1] * 100

请问，您这新版的代码与旧的在功能上有什么区别？

我测试了一下午，您旧版效果很好了。

请问这句如何理解？主要不明白『：』的意思。
『系數 = 100: Pcnt = 100: xMode = 1: Call 系數更改』

准提部林

vexce 发表于 2023-3-26 17:09
请问，您这新版的代码与旧的在功能上有什么区别？

我测试了一下午，您旧版效果很好了。

if 條件=成立 than
   a=1
   b=2
   c=3
end if
可寫成///
if 條件=成立 than a=1:  b=2: c=3
.---------------------
xMode = 1 ... 表示執行的是"重置", 這是共用變數, 須在模組區頂端宣告

vexce

准提部林 发表于 2023-3-26 17:19
if 條件=成立 than
   a=1
   b=2

谢谢啊，我消化一下。