Question

我正在尝试编写一个VB代码，要求用户输入将用户输入附加到列表底部的输入。例如：

PERSON1

PERSON2

Person3可能

我希望输入为“Person4”等，并将该输入附加到列表的底部。

我写的代码说如果范围内的单元格（A1：A10000）为空，则询问用户输入，然后将该输入添加到单元格。如果单元格不为空，它将循环查找下一个空单元格。基本上，如果单元格中没有人名，则会将其添加到列表的底部。

我正在尝试将代码编写为：

对于范围内的单元格（A1：A10000）：

 if cell ISEMPTY():
      InputBox("Enter Person here")
 else:
      End

我没有VB编码经验，所以我想我在这里缺少一些大的东西

Answer 1

请考虑使用以下代码：

- (void)showAlert {
    UIBlurEffect *blurEffect = [UIBlurEffect effectWithStyle:UIBlurEffectStyleLight];

    UIVisualEffectView *visualEffectView = [[UIVisualEffectView alloc] initWithEffect:blurEffect];
    visualEffectView.frame = CGRectMake(0, self.tableView.contentOffset.y, self.view.frame.size.width, self.view.frame.size.height);

    [self.view addSubview:visualEffectView];

    UIAlertController *alert = [UIAlertController alertControllerWithTitle:@"Alert Title" message:@"Alert Message" preferredStyle:UIAlertControllerStyleActionSheet];

    [alert addAction:[UIAlertAction actionWithTitle:@"Action 1" style:UIAlertActionStyleDefault handler:^(UIAlertAction * _Nonnull action) {
        // handle choice...

        [visualEffectView removeFromSuperview];
    }]];

    [alert addAction:[UIAlertAction actionWithTitle:@"Action 2" style:UIAlertActionStyleDefault handler:^(UIAlertAction * _Nonnull action) {
        // handle choice...

        [visualEffectView removeFromSuperview];
    }]];

    [self presentViewController:alert animated:YES completion:nil];
}

您似乎正在使用其他类型的脚本语言格式。正如findwindow所说，Google是研究基本VBA的简单资源。此致

Answer 2

尝试以下代码

Sub test()
    inputtext = InputBox("Enter any Text")
    If inputtext <> "" Then
        Range("A" & Range("A1").End(xlDown).Row + 1).Value = inputtext
    End If
End Sub

使用VisualBasic制作Excel循环单元格

2 个答案: