EXCEL，VB，IF

Question

EXCEL，VB，IF如图。
1.
我想实现在A1中输入一个数，在B1中就出现对应的数，如#输入壹，出现你好。#即在Ax中输入一个数，会在Bx中出现对应的数。
2.
当点击一个单元格后，本列与本行都会变色，当仅限本//工作表//变色，其它工作表不变色。

Answer 1

excel 中VB关于if的用法如下：
if语句的含义
if语句字面意思就是如果的意思，如果条件为真，那么就执行if语句里面的程序，这个程序，一般指then后面的，一个if语句可以没有end if ，但绝对不能没有then，这一点是要注意的，

if……then……结构
该结构一般用于比较简单的判断语句执行，下面以一段实例程序来讲解
实例：如果第一个单元格不为空，那么就弹出一个提示框”单元格不为空“
程序：
Sub 判断语句()
If Cells(1, 1) <> "" Then MsgBox "单元格不为空"
End Sub

if……then……end if结构
该结构用于单选择判断语句执行，具体用法看下面实例
实例：对于第一列的第一行到第十行单元格，作如下判断，如果单元格为空值了那么在相应的第二列单元格输出”VBA教研室“
程序：
Sub 判断语句()
Dim i As Integer
For i = 1 To 100
If Cells(i, 1) = "" Then
Cells(i, 2) = "VBA教研室"
Exit For
End If
Next
End Sub

if ……then……else……end if结构
该结构用于事件只有两个可能的情况先选择的判断语句，具体见下面实例分析
实例：对于第一列的第1,2行两个单元格做判断，如果单元格值为空，则在相应的第二列单元格输出false，否则输出Ture
程序：
Sub 判断语句()
Dim i As Integer
For i = 1 To 2
If Cells(i, 1) = "" Then
Cells(i, 2) = "false"
Else
Cells(i, 2) = "True"
End If
Next
End Sub

Answer 2

是不是这个意思哦？

追问

对，非常感谢！我试试看先

追答

把代码抄写下来，哎。。。。！

追问

能不能再麻烦您一下。我想A1选择“壹”后，B1变成“你好”。然后如果把A1改成“贰”，B1的值也不变了，即使把B1的值改成“谢天谢地您来了”，值也不会变。
～～～～～～～～～这就是想实现一次性赋值。

谢谢！🙏

追答

没看懂你意思？
意思： A1 只有输入 壹 ，B1才会 变为 你好
输入其他任何数据,B1都是 你好？

追问

A1第一次输入的时候，B1变成你好，再更改也不会变，但是直接改B1的时候，可以改成任意值

谢谢

追答

不好实现

本回答被提问者采纳