- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我希望每次在用户表单中更新列表框时都更新一个文本框值。我有两个用户表单,用户可以在它们之间来回移动值)。我希望每次值在用户窗体之间来回移动时更新文本框值。这是我下面的代码。
Private Sub btnMoveLeft_Click()
Dim iCtr As Long
For iCtr = 0 To Me.lstAssigned.ListCount - 1
If Me.lstAssigned.Selected(iCtr) = True Then
Me.lstUnassigned.AddItem Me.lstAssigned.List(iCtr)
lookValue = WorksheetFunction.VLookup(Me.lstUnassigned(iCtr), Sheets("Pivot").Range("A:J"), 10, False)
txtAC.Value = txtAC.Value - lookValue
End If
Next iCtr
For iCtr = Me.lstAssigned.ListCount - 1 To 0 Step -1
If Me.lstAssigned.Selected(iCtr) = True Then
Me.lstAssigned.RemoveItem iCtr
End If
Next iCtr
End Sub
Private Sub btnMoveRight_Click()
Dim iCtr As Long
For iCtr = 0 To Me.lstUnassigned.ListCount - 1
If Me.lstUnassigned.Selected(iCtr) = True Then
Me.lstAssigned.AddItem Me.lstUnassigned.List(iCtr)
lookValue = WorksheetFunction.VLookup(Me.lstAssigned.List(iCtr), Sheets("Pivot").Range("A:J"), 10, False)
txtAC.Value = txtAC.Value + lookValue
End If
Next iCtr
For iCtr = Me.lstUnassigned.ListCount - 1 To 0 Step -1
If Me.lstUnassigned.Selected(iCtr) = True Then
Me.lstUnassigned.RemoveItem iCtr
End If
Next iCtr
End Sub
我当前收到的错误是当它尝试获取lookValue时,错误显示“无法获取List属性。无效的属性数组索引。”任何帮助将不胜感激,非常感谢。
最佳答案
在很多情况下,最好使用中间变量,而不是重复执行相同的操作。在这种情况下,您的问题是用于检索当前选定的列表项的 Me.lstAssigned.List(iCtr)
操作。通过使用中间变量,我能够让您的代码正常工作并从该列表框中删除该项目,而无需第二个循环。
Private Sub btnMoveLeft_Click()
Dim iCtr As Long
Dim selectedValue As Variant
For iCtr = 0 To Me.lstAssigned.ListCount - 1
If Me.lstAssigned.Selected(iCtr) = True Then
selectedValue = Me.lstAssigned.List(iCtr)
Me.lstUnassigned.AddItem selectedValue
lookValue = WorksheetFunction.VLookup(selectedValue, _
Sheets("Pivot").Range("A:J"), 10, False)
txtAC.Value = txtAC.Value - lookValue
Me.lstAssigned.RemoveItem iCtr
End If
Next iCtr
End Sub
Private Sub btnMoveRight_Click()
Dim iCtr As Long
Dim selectedValue As Variant
For iCtr = 0 To Me.lstUnassigned.ListCount - 1
If Me.lstUnassigned.Selected(iCtr) = True Then
selectedValue = Me.lstUnassigned.List(iCtr)
Me.lstAssigned.AddItem selectedValue
lookValue = WorksheetFunction.VLookup(selectedValue, _
Sheets("Pivot").Range("A:J"), 10, False)
txtAC.Value = txtAC.Value + lookValue
Me.lstUnassigned.RemoveItem iCtr
End If
Next iCtr
End Sub
关于excel - 用户表单:在文本框中继续运行总计,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/57575159/
我正在我的应用程序后台下载视频。如果用户在下载过程中重启了应用/设备,有什么方法可以在他们下次启动应用时从他们中断的地方继续下载? 最佳答案 这主要取决于文件服务器的配置(HTTP、FTP 等)。 现
我正在试验 WPF 动画,但有点卡住了。这是我需要做的: 鼠标悬停: 淡入(2 秒内从 0% 到 100% 不透明度) MouseOut: 暂停 2 秒 淡出(2 秒内从 100% 到 0% 不透明度
我的问题是这个线程的延续: Ant: copy the same fileset to multiple places 我是映射器的新手。有人(carej?)可以分享一个使用映射器来做到这一点的例子吗
继续previous question我希望能够显示一些事件指示器即使主线程被阻塞。(基于this article)。 基于所附代码的问题: 使用 Synchronize(PaintTargetWin
已关闭。此问题不符合Stack Overflow guidelines 。目前不接受答案。 要求提供代码的问题必须表现出对所解决问题的最低限度的了解。包括尝试的解决方案、为什么它们不起作用以及预期结果
我有一个场景,其中有一个线程在等待和执行任务之间循环。但是,我想中断线程的等待(如果愿意,可以跳过其余的等待)并继续执行任务。 有人知道如何做到这一点吗? 最佳答案 我认为你需要的是实现 wait()
这是我的代码架构: while (..) { for (...; ...;...) for(...;...;...) if ( )
import java.util.Scanner; public class InteractiveRectangle { public static void main(String[] args)
如何将 continue 放入具有函数的列表理解中? 下面的示例代码... import pandas as pd l = list(pd.Series([1,3,5,0,6,8])) def inv
关闭。这个问题需要更多focused .它目前不接受答案。 想改进这个问题吗? 更新问题,使其只关注一个问题 editing this post . 关闭 6 年前。 Improve this qu
我正在用 python 开发一个程序,遇到了一个我不知道如何解决的问题。我的意图是使用 with 语句,避免使用 try/except。 到目前为止,我的想法是能够使用 continue 语句,就像在
我对下一段代码的执行感到困惑: label: for (int i = 0; i < 100; i++) { if (i % 2 == 0) c
这很好用: #include int main(){ volatile int abort_counter = 0; volatile int i = 0; while (i
Closed. This question does not meet Stack Overflow guidelines。它当前不接受答案。 想改善这个问题吗?更新问题,以便将其作为on-topic
如果不满足某些条件,我会尝试跳到循环的下一次迭代。问题是循环仍在继续。 我哪里出错了? 根据第一条评论更新了代码示例。 foreach ($this->routes as $route =>
如果不满足某些条件,我会尝试跳到循环的下一次迭代。问题是循环仍在继续。 我哪里出错了? 根据第一条评论更新了代码示例。 foreach ($this->routes as $route =>
Android项目中的一个需求:通过线程读取文件内容,并且可以控制线程的开始、暂停、继续,来控制读文件。在此记录下。 直接在主线程中,通过wait、notify、notifyAll去控制读文件的线
link text 我得到了引用计数的概念 所以当我执行“del astrd”时,引用计数降为零并且 astrd 被 gc 收集? 这是示例代码。这些代码是我在昨天的问题之后开发的:link text
我想首先检查我的 Range 是否有 #NA 错误,然后在退出宏之前显示包含错误的单元格地址。这是我到目前为止所做的。 现在,如果出现错误,我想显示 MsgBox警告用户错误并停止程序的其余部分执行,
while( (c = fgetc(stdin)) != EOF ){ count++; if (count == lineLen - 1){ moreChars =
我是一名优秀的程序员,十分优秀!