Excel VBA-用户表单复选框复制行

我有一个带有复选框的userform，它需要在工作表中返回一个值“1”或“-1”，而不是“TRUE”或“FALSE”。（我的电子表格将1转换为是，-1转换为否）

代码可以正常工作，但在我的数据行中使用true/false，在下一行中使用1/-1（参见屏幕截图）。屏幕截图中的灰线是重复的行。你知道我做错了什么吗

以下是复选框的代码：

If ConstRel.Value Then
ws.Range("A65535").End(xlUp).Offset(1, 10).Value = "1"
Else
ws.Range("A65535").End(xlUp).Offset(1, 10).Value = "-1"
End If

---

FALSE（又名No）为零，任何非FALSE的都是TRUE。当工作表的真数值为1时，VBA的真数值为-1。为什么选择更改？在执行

.End（xlUp）

时，您应该检查选择了哪一行，但在偏移量之前（因为偏移量向下移动了一行，向右移动了10列）。Jeeped-我已经以这种方式设置了电子表格。条件格式/单元格格式使用1表示“是”（TRUE），使用-1表示“否”（FALSE）。我可以看看我是否可以很容易地改变它，但它在多个地方。米斯特拉-我该怎么做？每次在表单中按下save按钮时，userform都会在填充的行的末尾添加一行。谢谢你们俩的帮助！我擅长Excel，但对VBA完全陌生。