excel窗体怎么录入单元格

1.Excel 如何实现用窗体录入数据到指定的单元格

1、在自己的电脑上打开EXCEL表格

2、首先创立了所需的数据表格，输入自己的数据

3、将电脑下方EXCEL的sheet修改名字

4、将第一个表格中的数据建立在如图所示的sheet里，如第一周，第二周，第三周

5、建立好几个表格，举例对这个问题进行辅助说明，内容大概如下。

6、在一个sheet5中表格里，选择要进行统计的单元格输入“=”和函数，如此处则是=sum

7、然后点击“第一周”，工作标签和相应单元格。

8、选中第一周中的数据，如图所示

9、输入“，”后再点击“第二周”工作表和相应单元格。

10、对数据进行函数公式。对“第三周”，“第四周”工作表进行相同操作。

11、输入完成后加上"）"点击回车即可算出4个周的总计结果，可以向下拉动这个汇总表在单元格中做相对引用，完成所有单元格的计算。

2.excel 怎样能将各个单元格内混合文字及数字的内容用公式标记出需要

这个用公式很难解决，但用VBA（即宏）可以很轻松的解决，具体做法：

1、在菜单栏空白处右键——选择“窗体”；

2、在弹出的对话框中选择“按钮”；

3，、在excel表格的任意位置新建一个按钮，新建宏；

4、Sub 按钮2_单击（）

Dim c

For Each c In [B1:C10]

If c.Text Like Range("D1") & "*" And Range("D1") <> "" Then

c.Characters(Start:=1, Length:=1).Font.ColorIndex = 3

End If

Next

End Sub

5、退出，关掉窗体对话框，单击按钮，就能达到您需要的效果了。

不知道能不能让您满意

或者将宏代码写为：

Sub 按钮2_单击（）

Dim i As Long

Dim c

y = Sheet1.Range("b200").End(xlUp).Row 'B列最后可见单元的行号

For a = 1 To y

For i = 1 To Len(Range("b" & a)） '遍历单元字符

If Mid(Range("b" & a), i, 1） = "香" Then '指定设置颜色的字符数量内容

Range("b" & a).Characters(i, 1).Font.ColorIndex = 3 '设置指定数量的字体，3-红色

End If

Next

Next

y = Sheet1.Range("c200").End(xlUp).Row 'C列最后可见单元的行号

For a = 1 To y

For i = 1 To Len(Range("c" & a)） '遍历单元字符

If Mid(Range("c" & a), i, 1） = "香" Then '指定设置颜色的字符数量内容

Range("c" & a).Characters(i, 1).Font.ColorIndex = 3 '设置指定数量的字体，3-红色

End If

Next

Next

End Sub

还有一种方法：

Sub 按钮2_单击（）

Dim rng As Range, matches, match

With CreateObject("VBScript.regexp")

For Each rng In Range("b1:c" & Cells(Rows.Count).End(xlUp).Row)

.Pattern = [d1].Text & "+?"

.Global = True

.IgnoreCase = True

If .Test(rng.Text) Then

Set matches = .Execute(rng.Text)

For Each match In matches

rng.Characters(Start:=InStr(rng.Text, match.Value), _

Length:=Len(match.Value)).Font.ColorIndex = 3

Next

End If

Next rng

End With

End Sub