Question

EXCEL VBA 的题 求解···

1.对单元格内容进行求和，就是EXCEL里任意选中单元格都能求和。

要求：用循环实现 步骤越简单越好。

2.在EXCEL中，任意单元格输入1，相邻单元格出现A（ASCII码转换），输入2则出现B....超出1-26则弹出提示框

要求：用循环实现，步骤越简单越好。
只能用EXCEL VBA···而且是循环

相邻单元格就是采用该单元格的右边的单元格
任意在工作表的一个地方输入1,然后右边的单元格就显示A....26就显示Z （就是数字换字母）
别想太复杂了，其实就是随意输入一个数，然后在右边显示字母，就这样。

Answer 1

用循环不会，好像不实际。等高手，不用循环的话，也简单。

第一种：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.WorksheetFunction.Sum(Selection) = 0 Then
[A1] = ""
Else
[A1] = Application.WorksheetFunction.Sum(Selection)
End If
End Sub

以上代码针对选中区域求和，并将结果返回A1单元格中。零时，返回空值

第二种：
首先ASCII码转换不是1便转换成A，实际上是65才是A。。。所以，得采用Select case 语句，稍麻烦一些。
Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target
Case 1
Cells(Target.Row, Target.Column + 1) = "A"
Case 2
Cells(Target.Row, Target.Column + 1) = "B"
'以下一直到26，代码参照上面即可
case else
msgbox "超出范围"
End Select
End Sub

以上代码，比如在A1输入1，则在B1返回A。。。

Answer 2

1、第1个问题中，所谓选中的单元格是在宏运行之前选中，还是在运行中去选择？如果之前选定，求和就可以一次搞定，那你的循环是关于什么内容的循环呢？
2、第2个问题中，所谓相邻单元格，对于不在边行边列的单元格来说，都有4个相邻的，你要求这4个都要显示字母还是只要有一个方向的即可？
3、第2个问题中，“任意单元格”输入1……输入2……问题是，在输入2时，是在输入1的那个固定单元格重新输入还是可以在另外的任意单元格中输入呢还是一定要在与前一个不同的单元格输入呢？如果是，那么第二单元格是向列方向或者行方向连续变化还是彼此独立地任意变化呢？
4、第二个问题用公式搞定非常容易，一定用VBA吗？

Answer 3

看见这题目就知道，出题的老师一定让驴踢坏了
这么简单的问题用个屁的循环啊，把简单问题给整复杂了还要求越简单越好。

Answer 4

非常同意，出题的人脑子一定是坏了。
虽然很简单，但是害怕脑子跟着他一起坏掉。
这种程序要是用循环写出来，简直是对自己编程能力的否定。