Question

在下面的代码中，当我选择一个范围内的单元格时，将弹出一个输入框，并将输入内容发送到我单击但在工作表2中相同的单元格。我想进一步迈出这一步。我想完全绕过输入框，只发送值F，我只想在单击单元格b2之后执行此操作。因此单元格b2必须像某种切换一样工作（也许在它上面放一个不可见的形状来充当按钮？）

示例1：工作表1，选择单元格B2打开宏，在范围示例中选择单元格：D10将字母F输入到工作表2的单元格D10中，选择单元格B2关闭宏，所以如果我选择单元格D10或其中的任何单元格这个范围将不再发生。如果在宏打开时再次单击该单元格，则还需要从D10中删除值F。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
     Dim xRtn As Variant
     If Selection.Count = 1 Then
         If Not Intersect(Target, Range("D9:AS20")) Is Nothing Then
             xRtn = Application.InputBox("Insert your value please")
             Sheets("2020").Range(Target.Address).Value = xRtn

         End If
     End If
End Sub

Answer 1

未经测试。我不确定我是否了解您的所有目标。

我认为，如果您在工作表中添加一个复选框（调整大小并将其存储在所需的位置；也许在单元格PROJECT_DIR = os.path.dirname(os.path.dirname(os.path.abspath(__file__))) BASE_DIR = os.path.dirname(PROJECT_DIR) STATICFILES_FINDERS = [ 'django.contrib.staticfiles.finders.FileSystemFinder', 'django.contrib.staticfiles.finders.AppDirectoriesFinder', ] STATIC_URL = '/static/' STATIC_ROOT = os.path.join(BASE_DIR, 'static') STATICFILES_DIRS = [ os.path.join(os.path.join(BASE_DIR, directory_structure_down_to..., 'static'), --- include as many lines like above as necessary here --- ] MEDIA_URL = '/media/' MEDIA_ROOT = os.path.join(BASE_DIR, 'media')中）称为“复选框1”，那么下面的代码应该可以工作。

添加复选框的一种方法可能是：B2（取决于您的Excel版本）。如果Excel > Developer > Insert > Check Box (Form Control)标签不可见，则可能需要先get it to show。

Developer

选择范围内的单元格将值输入到另一张表的单元格中

1 个答案: