内部条件循环(VBA)

时间:2019-01-12 20:43:16

标签: vba

我为Excel VBA编写了这个简单的子过程。我故意使用冒号(:)分隔语句。为什么不起作用?

public JFrameGamePlay() {
initComponents();
JPanel leftpanel = new JPanel();
JPanel rightpanel = new JPanel();
JSplitPane pane = new JSplitPane(JSplitPane.HORIZONTAL_SPLIT, leftpanel, rightpanel);

JLabel lblPlayer = new JLabel(new ImageIcon("/resources/__Image1.png"));
leftpanel.add(lblPlayer);
leftpanel.validate();
leftpanel.repaint();

问题主要是理论上的。但这可能是实际的。例如,当我们使用即时窗口时,需要在简单循环中使用简单条件。

1 个答案:

答案 0 :(得分:1)

这是语法问题。您可以重写以删除令人困惑的If语句。

Public Sub ConditionInsideLoop()
    Dim cb As Long, cd As Long, ca As Long
    cb = 0: cd = 1: For ca = 1 To 5: cb = IIf(cd = 1, cb + 1, cb): Next
    Debug.Print cb
End Sub