[求助]：问题多多 请高手解答 谢谢

统计师

问题多多 请高手解答 谢谢

有问题才有进步



问题一：现在有 "我 很 爱 你" 四个汉字
如何在a1输入上面的任意一个汉字后，使得b1到e1区域里出现其他的三个汉字
比如
a1    b1 c1 d1
爱 -- 我 很 你
你 -- 我 很 爱





问题二：比较a1,b1两个单元格中的数字与c1到h1区域中的数字，如果a1,b1两个单元格中的数字同时等于区域中的两个数字  在i1中显示 "对"
如果不等于，就显示"错"  例如：
如果a1=01 b1=14  并且在c1到h1区域中有出现01和14 （01与14同时存在）则在i1中显示 "对"，如果不等于，就显示"错"  
解答：
i1填入公式：=IF(AND(ISNA(MATCH(A1,C1:H1,0))=FALSE,ISNA(MATCH(B1,C1:H1,0))=FALSE),"对","错")



问题三：查寻同韵尾的汉字 只用函数
a1 输入中国汉字的韵尾 如 an ang 等
找出区域b列中所有汉字的 同韵尾的汉字  
如a1中输入an 在c列中显示 按 暗 等汉字（b列有这样的汉字）



问题四：请解答 谢谢
在任意一个单元格中输入汉字 红 使得 该单元格所在的行与列 全是红色
同样的 在任意一个单元格中输入汉字 绿 使得 该单元格所在的行与列 全是绿色



有高手这样解：



Sub Macro1()
'
' Macro1 Macro
' 宏由 lt_zzy 录制，时间: 2005-2-24
'



'
   x = ActiveCell.Row
   y = ActiveCell.Column
   ActiveCell.Worksheet.Range(Cells(1, y), Cells(65536, y)).Select
    With Selection.Interior
        .ColorIndex = 10
        .Pattern = xlSolid
    End With
   ActiveCell.Worksheet.Range(Cells(x, 1), Cells(x, 256)).Select
    With Selection.Interior
        .ColorIndex = 10
        .Pattern = xlSolid
    End With
End Sub



----------------------------------



问题五：请解答 谢谢
改一下 要求将区域没无序数字 转化为有序数字
比如在a1--f2区域中的数字为
a1 b1 c1 d1 f1
03 08 09 01 05
a2 b2 c2 d2 e2
07 19 48 53 15 数字无序
变为
a3 b3 c3 d3 f3
01 03 05 07 08
a4 b4 c4 d4 f4
09 15 19 48 53  数字有顺序排列



有高手解答



问题五：
Sheet5.Range("A:Z").Sort _
    Key1:=Sheet5.Columns("A")



-----------------------------------------




问题六：
要求在a1中输入数字n 然后在b1单词的的第n个字母出现红色 比如
a1  b1
2   love  使得 love 中的 o 出现红色 如果
在a1中输入3 则 lone 中的 v 出现红色



问题八：比如电子表格中  a列为期数01 02 03 。。。
b列为特码 c列为生肖 每期都要输入特码的
01期开04 为马
02期开15 为羊
03期为18 为龙
现在要求列出羊未出期数 实际上样未出期数为两期 但04期为03时 （03 15 27 39为同肖） 则羊未出的次数为0次
然后在d列中由上到下分别写 鼠 牛 虎 兔 龙 蛇 马 羊 猴 鸡 狗 猪 而在e列中要写出未出的次数  （函数公式应写在e列中）