excel按钮代码怎么写

1. excel登录代码怎么写(EXCEL用户登录窗体代码修改,详细如下)

2. excel时间控件代码怎么写(excel按钮控件怎么写代码)

3. excel添加代码怎么写

4. excel数字大小代码怎么写

excel登录代码怎么写(EXCEL用户登录窗体代码修改,详细如下)

1.EXCEL用户登录窗体代码修改,详细如下

Private Sub CommandButton1_Click()

Application.Visible = True

For i = 1 To Sheets.Count

Sheets(i).Visible = -1

If TextBox1 = "123" And TextBox2 = "123" Then

ElseIf TextBox1 = "456" And TextBox2 = "456" Then

Sheets(1).Visible = 0

Sheets(3).Visible = 0

ElseIf TextBox1 = "789" And TextBox2 = "789" Then

Sheets(1).Visible = 0

Sheets(2).Visible = 0

Else

Application.Visible = False

For i = 1 To Sheets.Count

Sheets(i).Visible = 0

MsgBox "用户名或密码不正确，请重新输入！"， 64

Exit Sub

End If

Unload Me

End Sub

2.ASP+EXCEL查询系统如何增加密码登录,代码怎么写

给你个大概思路，你自己做吧。

from action="?action=login"input name="user"input name="password"dim t:t=request("action")dim n:n=request("name")dim p:p=request("password")if t="login" thenif n="用户名" and p="密码" then'这里的密码，你可以设置固定，或者从数据库取出，数据库取出，同理，只是做一个取得的值跟数据库值比对一下而已。session("user")=nend ifend if在需要登录才可以看到的页面上加上这句：if session("user")="" then response.write"你没有登录请登录else显示正常内容end if。

3.怎么做在Excel中制作用户登录窗口

为了保护Excel工作表，有时需要对工作表的打开设置权限，这就需要创建用户登录界面。

在Excel中，制作用户登录窗口的方式很多，使用控件是其中的一种重要方法。本文介绍使用VBA窗体控件、文本框控件和按钮控件等来制作用户登录窗口的方法。

1、启动Excel并打开工作表，打开Visual Basic编辑器，在工程资源管理器中鼠标右击，选择关联菜单中的“插入”|“用户窗体”命令插入一个用户窗体。按F4键打开“属性”对话框，在"Caption"文本框中输入文字“用户登录”更改窗体标题，如图1所示。

创建用户窗体并设置其属性2、从“工具箱”对话框中分别选择“文本框”控件、“标签”控件和“命令按钮”控件，在窗体中绘制这些控件，如图2所示。在“属性”对话框中将两个“标签”控件的"Caption"属性分别设置为“登录名”和“登录密码”，将“命令按钮”控件的"Caption"属性分别设置为“确定”和“取消”，向窗体中添加控件修改控件的3、在窗体中选择第二个“文本框”控件，在“属性”对话框中将"PasswordChar"属性设置为字符“*”，如图4所示。

这样，在该文本框中输入的字符将被“*”替代。更改“文本框”控件的4、鼠标右击窗体中的“确定”按钮，选择关联菜单中的“查看代码”命令打开“代码”窗口，此时Visual Basic编辑器将自动在“代码”窗口中为控件添加Click事件。

为该按钮添加的Click事件程序如下：Private Sub CommandButton1_Click() If TextBox1.Text<>"郭轶凡"Then '判断用户名是否正确 MsgBox"用户登录名错误，您无权登录！" '不正确给出提示 With TextBox1.SelStart=0 '设置选择文字的开始字符.SelLength=Len(TextBox1.Text) '设置选择文本的长度.SetFocus '文本框获得焦点 End With ElseIf TextBox2.Text<>"abcdef "Then '如果密码错误 MsgBox"密码输入错误，请重新输入！" '给出提示 With TextBox2.SelStart=0 '设置选择文本的开始字符.SelLength=Len(TextBox2.Text) '设置选择文本的长度.SetFocus '获得焦点 End With Else MsgBox"登录成功，欢迎你的到来！" '登录成功提示 Unload Me '卸载窗体 End If End Sub 提示在这里，程序首先判断第一个文本框的Text属性值是否为设定的用户名，如果不是则给出提示，同时使用With结构设置非常关键的SelStart属性和SelLength属性，使文本框中的文字能够高亮显示。同时，使用SetFocus方法使文本框获得焦点以方便用户更改用户名。

如果输入的是设定的用户名，程序接着判断第二个文本框中的Text属性值是否是设定的密码，如果不是则执行与用户名错误相同的操作。如果用户名和密码均正确，程序给出提示并卸载窗体。

5、接着在“代码”窗口中输入程序代码，为“取消”按钮添加Click事件代码，具体程序如下所示：Private Sub CommandButton2_Click() Unload Me '卸载窗体 ThisWorkbook.Close '关闭工作簿 End Sub6、按F5键运行程序出现“用户登录”窗口，在“登录名”文本框中输入人名，如果非授权用户，程序给出提示，如图4所示。单击“确定”按钮关闭提示对话框后，“登录名”文本框获得焦点，在其中输入正确登录名。

在“登录密码”文本框中输入密码，如果密码错误，程序给出提示，如图5所示。如果输入正确的用户名和登录密码，程序提示登录成功，如图6所示。

单击“确定”按钮关闭对话框，“用户登录”窗体将关闭。登录名输入错误提示密码输入错误提示登录成功提示7、在工程资源管理器中双击"ThisWorkbook"选项打开“代码”窗口，在其中输入如下程序代码使工作簿打开时用户窗体可见。

切换到Excel，保存文档，完成本实例的制作。Private Sub Workbook_Open() UserForm1.Show End Sub。

4.有关登录窗口的vba代码

Private Sub Workbook_Open()

Application.Visible = False

End Sub

在窗体代码中做了

Private Sub CommandButton1_Click()

If UserName.Text = "123" And Pwd.Text = "123" Then

Me.Hide

Application.Visible = True

Else

ThisWorkbook.Application.Quit

End If

End Sub

Private Sub CommandButton2_Click()

End

End Sub

再拿去运行下，肯定没有问题。

5.EXCEL如何编辑登录窗口

首先建立一个用户窗体UserForm1做为登录窗，设置两个文本框TextBox1和TextBox2，一个确定按钮，CommandButton1。代码如下

Private Sub CommandButton1_Click()

If TextBox1.Value = "管理员" And TextBox2.Value = "123" Then

Me.Hide

Sheets("sheet1").Select

Else

ThisWorkbook.Application.Quit

End If

End Sub

在thisworkbook项输入如下代码，就在打开文档时弹出登录窗。

Private Sub Workbook_Open()

UserForm1.Show 0

End Sub

excel登录代码怎么写

excel时间控件代码怎么写(excel按钮控件怎么写代码)

1.excel按钮控件怎么写代码

通过VBA，添加组合框控件，然后通过事件更新，完全可以做到不过LZ为什么不换个思路啊，为什么一定要用VBA呢，要知道你EXCEL使用VBA，别人用的时候，需要修改宏的安全级别，同时，利用数据有效性，就可以完全可以做到啊。

在某一个单元格（假定为A2）设置数据有效性，下拉菜单中设置op1和op2，供你选择。然后，在H2输入公式： =IF(A2="op1",H3,IF(A2="op2",H4,"")) ListBox属于ActiveX 控件，看你的EXCEL版本，如果03版的话，自行找一下，具体路径忘了，07 10版的话，在EXCEL选项中，找到自定义工具，然后勾选“开发工具”，然后插入这个控件就可以了。

需要说明的是，ListBox是一个显示可选项的控件，就像EXCEL一样，它会显示你属于的值，1个或很多个，然后，你选择就可以了。我简单给你做了个样品，你自己修改吧第一步，是给控件赋值，也就是将op1和op2显示在ListBox控件中，我通过命令完成的 Private Sub CommandButton1_Click() With ListBox1 .Clear .AddItem "op1" .AddItem "op2" End With End Sub 这样，ListBox中就有了这2个选项，不是我们一般的单选或者复选框那种的。

下面就是选op1时，H2=H3 选op2时，H2=H4 插入代码： Private Sub ListBox1_Click() If ListBox1.Value = "op1" Then Range("H2") = Range("H3") If ListBox1.Value = "op2" Then Range("H2") = Range("H4") End Sub 至于ListBox选项前，是否需要单选框，请在ListBox属性中设置~。

excel时间控件代码怎么写

excel添加代码怎么写

1.excel 批量插入图片代码更改

一、前提：

假设图片名称在A2:A15，不带扩展名，图片格式为jpg格式，图片保存在“D：\图片\”文件夹下

二、操作方法：

1、A2:A15输入图片名称（不带扩展名）

2、B2输入

3、下拉公式到B15

说明：公式中Width 和height是装入后的图片宽和高，可自行调整。

4、选中B2:B10，复制

5、返回桌面，新建一个文本文件，并打开，粘贴

6、调整Excel行距，以确保图片能装下

7、选中文本文件中的全部内容，复制

8、转到Excel中，选中B2，选择性粘贴——Ubicode文本

9、所有图片立即以相同大小插入到了B2:B10

注意：如果粘贴后，图片大小觉得不合适，这时不要急于点选其他单元格，在全部图片选中状态，任意一张图片上鼠标右键——图片属性，设置其宽和高即可统一调整图片尺寸了。

2.excel中单元格插入图片

1.例如，在下面的表格中，我们要在照片栏中插入每个员工的照片。

2.单击选中要插入图片的单元格，如图中单元格E3。

3.依次点击菜单“插入”——“图片”——“来自文件”。

4.在“插入图片”窗口，选择要插入的图片，点击“插入”按钮插入图片。

5.在excel表格中，拖动图片控制点，调整图片大小以与单元格边框对齐。

6.在图片上双击鼠标，打开“设置图片格式”窗口，在“属性”页面，选择“大小，位置随单元格而变”。

7.设置好后，调整单元格大小，照片随之调整。

8.其它单元格要插入图片：如何是excel2003，则必须重复以上步骤进行插入。

而如果是EXCEL2007,2010的话，可以先复制设置好的图片，然后进行粘贴，全部复制好后，在图片上右键鼠标，弹出菜单中选择“更改图片”，然后把图片更改成你需要的图片就可以了。

3.Excel 如何在插入的图片上写文字

菜单栏——视图——工具栏——绘图——在状态栏上出现“绘图工具栏”；点图片——点“绘图工具栏”上的“矩形”——在图片画矩形框——右键——添加文字；点矩形框——右键——设置自选图形格式——颜色与线条：选“无填充颜色”和“无线条颜色”——字体——颜色：根据需要选择——确定；按Shift——点选矩形框和图片——右键——组合——组合。

你补充我也补充： “横竖文本框和矩形图案时怎么去除白框”： Excel里面没有文本框，我的是2003版，不知道“月大虾”和“yuanjieliankai”是什么版本？Word里面才有文本框。去除矩形边框——上面讲过：点矩形框——右键——设置自选图形格式——颜色与线条：“填充”下拉窗选“无填充颜色”，“线条”下拉窗选“无线条颜色”——确定。

“怎样移动文字的位置”：移动矩形框就等于移动文字了（文字在矩形框里面）。 “如果使用Word，还有那些方法可以添加文字”： Word里面就多了：插入矩形框、文本框、表格、艺术字等。

4.excel导入图片宏代码

将图片和本工作簿放在同一个文件夹中。在sheet1表中插入一个命令按钮，双击这个按钮将此代码复制进去。这里代码的格式为jpg格式，可以根据实际替换为你的格式。

Sub 图片导入（）

Dim rng As Range, pah$, rng1 As Range, sp As Shape

pah = ThisWorkbook.Path & "\"

For Each sp In Sheet1.Shapes

If sp.Type = 11 Then

sp.Delete

End If

For Each rng In Range("a2", [a2].End(xlDown))

Set rng1 = rng(1, 2)

Sheet1.Shapes.AddPicture pah & rng & ".jpg", 1, 1, rng1.Left, rng1.Top, rng1.Width, rng1.Height

End Sub

然后用以下代码来自动导入图片。

excel添加代码怎么写

excel数字大小代码怎么写

1.请高手写一段EXCEL代码：数字大小的对比

Sub 自动计算（）

Dim n, x As Integer '定义数字变量

Columns("E:H").Select: Selection.ClearContents

Range("B5").Select

For x = 4 To 10000

If Cells(x, 2) = "" And Cells(x, 4) = "" Then Exit For

If Cells(x, 2) > Cells(x, 4) Then Cells(x, 5) = 1

If Cells(x, 2)

2.excel中数字大小写转换

我正在写，写好发给你。

QQ394901158 写好了，是大写转小写的，以下是代码 Public b(1 To 12) As Integer Const dx = "壹贰叁肆伍陆柒捌玖" Sub 转换（） Dim strtemp As String, yi As String, wang As String, jie As String Dim 第一个不为零 As Boolean, i As Integer, j As Integer, m As Integer Const fj = "亿万元" For i = 1 To 12 b(i) = 0 Next i Sheets("sheet1").Range("K7:V7").ClearContents strtemp = Sheets("sheet1").Cells(6, 2) For i = 1 To Len(fj) If InStr(1, strtemp, Mid(fj, i, 1)) <> 0 Then a = InStr(1, strtemp, Mid(fj, i, 1)) Call 分解（Left(strtemp, a - 1), i) strtemp = Right(strtemp, Len(strtemp) - a) End If Next i Const fjj = "角分" For j = 1 To Len(fjj) If InStr(1, strtemp, Mid(fjj, j, 1)) <> 0 Then a = InStr(1, strtemp, Mid(fjj, j, 1)) b(10 + j) = InStr(1, dx, Left(strtemp, 1)) strtemp = Right(strtemp, Len(strtemp) - a) End If Next j For m = 1 To 12 If 第一个不为零 = False And b(m) >= 1 Then 第一个不为零 = True Sheets("sheet1").Cells(7, 9 + m) = "￥" Sheets("sheet1").Cells(7, 10 + m) = b(m) ElseIf 第一个不为零 Then Sheets("sheet1").Cells(7, 10 + m) = b(m) End If Next m End Sub Function 分解（strtemp As String, jie As Integer） Const fj = "千百拾" Dim se As String '数额 Dim s_Num As Integer For i = 1 To Len(fj) If InStr(1, strtemp, Mid(fj, i, 1)) <> 0 Then a = InStr(1, strtemp, Mid(fj, i, 1)) se = Left(strtemp, a - 1) If se = "" Then se = "壹" If Len(se) > 1 Then s_Num = InStr(1, dx, Right(se, 1)) Else s_Num = InStr(1, dx, se) End If If jie = 1 Then b(i - 2) = s_Num ElseIf jie = 2 Then b(i + 2) = s_Num ElseIf jie = 3 Then b(i + 6) = s_Num End If strtemp = Right(strtemp, Len(strtemp) - a) If strtemp = "" Then Exit Function End If Next i If Len(strtemp) = 2 Then If jie = 1 Then b(2) = InStr(1, dx, Right(strtemp, 1)) ElseIf jie = 2 Then b(6) = InStr(1, dx, Right(strtemp, 1)) Else b(10) = InStr(1, dx, Right(strtemp, 1)) End If ElseIf Len(strtemp) = 1 Then If jie = 1 Then b(2) = InStr(1, dx, strtemp) ElseIf jie = 2 Then b(6) = InStr(1, dx, strtemp) Else b(10) = InStr(1, dx, strtemp) End If End If End Function 在B7单元格输入大写的金额，回车后，在小写框中会自动转换过来。注意大写的数字必须是“壹贰叁肆伍陆柒捌玖”中的文字，比如：伍拾，不能写成五拾。

“亿万千百拾”不能是“亿万仟佰拾”。

3.2012Excel怎么使用数字转大写代码

你是要设置单元格小写自动转换成大写的的吗？不用代码也可以呀

假如在A1输入数值，想在B1自动转换成大写的，可以这样设置：

第一步：在B1那里右键“数字”“特殊”选择“中文大写数字”

第二步：在B1右键“数字”“自定义”选择“[DBNum2][$-804]G/通用格式”，假如你想在前面加“人民币（大写）”之类的就在“[DBNU。.]”前面直接输入就可以了，同理，后面的就直接在后面输入就可以。

第三步：在B1输入公式"=SUM(A1)” 这样就可以全部自动更换了

4.Excel数字怎么转换为中文大写

一、单元格格式法

选中那些数字所在的单元格，点击右键，在弹出菜单中选择“设置单元格格式”命令，打开“设置单元格格式”对话框。点击“数字”选项卡，在左侧的“分类”列表中选择“特殊”，然后在右侧的“类型”列表中点击“中文大写数字”，如图1所示。确定后就可以了。若点击上方的那个“中文小写数字”，可以得到“一十二亿三千四百五十六万七千八百九十”。很简单吧？

图1：选择“中文大写数字”

二、函数更正法

在Excel中还有一个隐含的函数可以解决这个问题。比如A1单元格中是数字“1234567890”，那么我们只要在其它单元格中输入公式“=NUMBERSTRING(A1,2)”。回车后就可以得到“壹拾贰亿叁仟肆佰伍拾陆万柒仟捌佰玖拾”了。如果我们将第二个参数“2”改成“1”或者“3”，那么我们就会得到“一十二亿三千四百五十六万七千八百九十”和“一二三四五六七八九○”。

再假如这个问题不是发生在Excel中，而是在Word表格中，那又该如何处理呢？当然，一种选择是将表格数据复制到Excel中，转换好了之后再复制到Word表格中。不过，我们还可以选择直接在Word中完成此项任务的。

选中表格中的数字“1234567890”，点击功能区“插入”选项卡“符号”功能组“编号”按钮，打开“编号”对话框。在“编号类型”列表中选择“壹，贰，叁”项目，如图2所示，确定后就可以得到“壹拾贰亿叁仟肆佰伍拾陆万柒仟捌佰玖拾”了。如果在列表中选中“一，二，三”项目，那么可以得到“一十二亿三千四百五十六万七千八百九十”。

图2：选择“壹，贰，叁”项目

当然，如果您有域的编辑感兴趣的话，还可以在域符号中直接输入域代码“= 1234567890 * CHINESENUM3”，或“= 1234567890 * CHINESENUM2”，然后按下“Alt+F9”快捷键，就可以分别得到“一十二亿三千四百五十六万七千八百九十”或“壹拾贰亿叁仟肆佰伍拾陆万柒仟捌佰玖拾”了。要是输入域代码“= 1234567890 * CHINESENUM3”，按下““Alt+F9”快捷键”就可以得到“一二三四五六七八九○”了。也挺简单的。

5.excel数字大小写转换

大写的话如果是角后面不是要带整字吗？好像分才不用。你先确定一下，如果角要带整的话公式里有两个地方有“角”，改第一个就可以，以下默认单元格A1为数字金额栏，具休位置有变把A1改一下就好：

=IF(INT(A1)*100=A1*100，"人民币"&TEXT(INT(A1),"[DBNum2]")&；"元整"，IF(INT(A1*10)=A1*10，"人民币"&TEXT(INT(A1),"[DBNum2]")&；"元"&TEXT(A1*10-INT(A1)*10,"[DBNum2]")&；"角"，"人民币"&TEXT(INT(A1),"[DBNum2]")&；"元"&IF(INT(A1*10)=INT(A1)*10，"零"，TEXT(RIGHT(INT(A1*10)),"[DBNum2]")&；"角"）&TEXT(RIGHT(A1*100),"[DBNum2]")&；"分"）

)

6.excel表格中的大写数字后面带小数点怎么转换中文大写

比如说在表格中输入12.326然后转换成中文大写"壹拾贰点叁贰陆.回答列表在同一单元格中，再次输入不同的数字，中文大写也跟着变化。

特别说明，此单元格的数字不是金额，只是普通带小数点的数字，小数点后有一至四位小数.晕，没见过。问题：在Excel表格中，怎样将带小数点的小写数字转换成中文大写？比如说在表格中输入12.326然后转换成中文大写"壹拾贰点叁贰陆. 在同一单元格中，再次输入不同的数字，中文大写也跟着变一、在输入的当前单元格直接转换，没有现成的格式函数。

但通过VBA代码还是能够实现的。（VBA代码我在后面讲）如果想简单一点的话，通过相玲单元格转换大写还是方便一点。

如果在 A1 输入小写，就在 B1 输入如下公式：=IF(A1>0,SUBSTITUTE((TEXT(A1,"[DBnum2]")），"."，"点"），IF(A1<0，"负"&SUBSTITUTE((TEXT(ABS(A1),"[DBnum2]"）），"."，"点"），""））上面的公式中考虑了输入负数和零的问题，如不考虑负数和零，公式可以简化如下：=IF(A1>0,SUBSTITUTE((TEXT(A1,"[DBnum2]")），"."，"点"），""）二、如果你坚持要在输入数据的单元格中直接转换中文大写，只好用VBA程序代码了，只是比较烦。代码如下：Private Sub Worksheet_Change(ByVal aa As Range) On Error GoTo error If aa.Column = 1 Then Select Case aa Case Is > 0 aa = Replace(Application.Text(aa, "[DBnum2]")， "."， "点"） Case Is < 0 aa = "负" & Replace(Application.Text(Abs(aa), "[DBnum2]"）， "."， "点"） Case Is = 0 aa = "" End Select End If error: Exit Sub End Sub 说明：1。

我说的代码实际上是用Execl自带的VBA编程语言编制的一个小程序。这个程序在你打开工作表的时候已在后台准备运行，当工作表中某个单元格内容发生变化时马上运行。

在程序运行中程序会自动判别，还在第一列的单元格中输入的小写数字都转换成中文大写，在其他单元格中输入的数字不转换大写。程序是在后台运行的，在工作表窗口是看不见的，只能看见程序运行后的结果。

在工作表的单元格中不能设置这些程序代码。程序代码只能在VBA编码窗口中编制。

打开VBA编程窗口的方法有好几种，这里只说一种。在已打开的工作表中，右击您要转换中文大写的工作表标签，在弹出的菜单中选择查看代码，这时VBA编码窗口已打开。

把上面的代码输入到代码窗口中。当然可以用复制的方法把代码复制过去，这样不容易错。

最后关闭代码窗口，自动回到工作表窗口。这时你在A1中输入数字试试看，是否得到中文大写的效果。

2。在上面程序代码中，已设置为在工作表的第一列任何单元格中输入小写的数字都会马上转换成大写。

其它单元格中输入的数据不会转换。如想在其它列的单元格中转换数据，请修改第三行代码------Column = 1---- 中的数字。

数字1代表第一列，数字2代表第二列，依次类推。3。

如果不考虑负数、零等情况的话，代码可以简化如下：Private Sub Worksheet_Change(ByVal aa As Range) If aa.Column = 1 Then aa = Replace(Application.Text(aa, "[DBnum2]")， "."， "点"） End If End Sub 采用简化代码的情况下，输入的数字必须 >0 ，如果输入 <=0 的数字会有意想不到结果。因为代码中没有处理0和<0数字的语句。

请凉解。五、上面的公式和程序代码只解决特定问题的，不要直接用于人民币大小写的转换。

请多提意见！问题己解决你用替换功能呀。这个适合大批量的转换。

没有这样的功能吧.这很容易呀，在Excel中就有这样的转换。选择要转换的数据，或者先在单元格中进行设置，右键/设置单元格格式，选择数字选项卡，选择左边的分类为特殊，然后选择右边的类型为中文大写数字，确定即可。

如此设置小数点的"."不能转换成"点". 在maya123215的回答的基础上，再“查找-替换”嘛，把“.”换成“点”。maya123215老师用的方法：右键->设置单元格格式->数字->特殊->数字中文大写是最简单及常用的方法由于单元格的内容仍然是数字 12.326，并非文本格式“壹拾贰点叁贰陆”，故miaowu老师提议用“查找-替换”嘛，把“.”换成“点”是不可行的故我提议用以下的公式：假设A1是 12.326 在任何一格输入公式：=SUBSTITUTE(TEXT($A$1,"[DBNum2][$-804]G/通用格式")，"."，"点"）便会出现壹拾贰点叁贰陆由于中文大写主要是作金额，单位是元/角/分公式变成：=TEXT(INT(A1),"[DBNum2][$-804]G/通用格式"）&"元"&IF((INT(A1*10)-INT(A1)*10)=0,"",TEXT(INT(A1*10)-INT(A1)*10,"[DBNum2][$-804]G/通用格式"）&"角"）&IF(INT(A1*100)-INT(A1*10)*10=0,"",TEXT(INT(A1*100)-INT(A1*10)*10,"[DBNum2][$-804]G/通用格式"）&"分"）便会出现壹拾贰元叁角贰分注意：此公式会将小数后第三个位舍去，如公式要求四舍五入进位，公式内所有 A1 要改成ROUND(A1,2)，公式便要长很多呵呵，很好用，但有一个问题，假如小数点后面出现零，就不正确了，如6968.05，就变成了：陆仟玖佰陆拾捌元伍分，但实际需要的是：陆仟玖佰陆拾捌元零伍分，如何实现。