-1

我刚刚学习了基础知识VB，我想知道是否有人可以帮助我对 Excel 工作表进行编码，以使用行和列值定位单元格，并将定位单元格的“值”（定位单元格中包含的数字）增加一个特定的值单击按钮时的整数（例如，+1）。我查看了常见问题解答无济于事。如果您觉得我错过了它，请提供链接，以便我可以访问它。我已经学习了编码的基础知识，VBA但如果您能详细说明高级代码，将不胜感激。

为了进一步解释，1 将范围指定为5x5 cells（5 个单元格长，5 个单元格宽，从单元格 A1 开始）。行号将在单元格中输入A7为“4”，列号将输入A8为“3”。单击按钮后，将定位单元格，并将值添加到cell = + 1. 作为输出，单元格“C4”应该有数字“1”，因为它是相交的列号和行号。

此外，column# 单元格中的值将被传输到 row# 单元格，这意味着单元格的值A7将为“3”并且A8将为“空白”。这是因为我将使用 column# 单元格中的值作为我的 row# 单元格值用于下一个输入。

任何反应、评论、答案或建议将不胜感激。感谢您花时间阅读。:) （如果我不能提供粗略的图片示例，我很抱歉，因为该网站还不允许我发布图片。）

4

2 回答 2

0

我有这个给你..在你的按钮中执行此操作

Sub SetAddr()
Dim x, y As Integer
Dim sCell As String    

x = ActiveSheet.Range("A8").Value
y = ActiveSheet.Range("A7").Value
sCell = StrRange(y, x)

'assumed the cell is blank
If IsEmpty(ActiveSheet.Range(sCell)) Then
    ActiveSheet.Range(sCell).Value = ActiveSheet.Range(sCell).Value + 1   
End If

End Sub

Function StrRange(ByVal nRow As Single, ByVal nCol As Single) As String
Dim sC As String
Dim nC, nRest, nDivRes As Integer

sC = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
nC = Len(sC)

nRest = nCol Mod nC
nDivRes = (nCol - nRest) / nC

If nDivRes > 0 Then StrRange = Mid(sC, nDivRes, 1)
StrRange = StrRange & Mid(sC, nRest, 1) & Format(nRow)
End Function

我相信你可以做剩下的......

于 2013-06-15T08:14:02.290 回答
0 
Worksheets("wksht").Range("$a$n").Value = Worksheets("wksht").Range("$a$n").Value + m

其中 wksht 是工作表，a 是所需的行，n 是所需的列，m 是所需的增量因子。我应该注意，您将要检查该值以确保它是一个数字，您永远不能相信最终用户会做出正确的输入。

在这里找到：http ://www.access-programmers.co.uk/forums/showthread.php?t=165438

于 2013-06-15T05:22:20.577 回答