怎么在EXCEL中使用代码？

excel中代码是通过vba编辑器编辑和运行的，以excel2007为例介绍操作步骤：

　　1、单击excel2007窗口左上角的“office

按钮”图标，在弹出的菜单中，单击“excel选项”按钮；

　　2、在“excel选项”对话框中,单击左侧“常用”分类，勾选“在功能区显示"开发工具"选项卡”项，单击“确定”按钮返回excel2007主窗口，即可添加开发工具选项卡；

　　3、单击“开发工具”菜单-“visual

basic”图标；

　　4、excel2007打开代码编辑器窗口，单击“插入”菜单-“模块”菜单项，即可插入默认的模块“模块1”，即可在右侧的vba代码编辑器窗口输入vba代码；

　　5、代码编辑完成后，点击工具栏运行按钮即可运行。

Private Sub Worksheet_Change(ByVal Target As Range)'当前表格改变触发事件

h = TargetRow（发生改变的单元格行）: L = TargetColumn（发生改变的单元格列）

Hs = 3: He = Cells(60000, 3)End(xlUp)Row + 1（从C6000单元格往上查找第一个非空单元格的行数+1）

Lb = 11

Columns("D:D")NumberFormatLocal = "yyyy/m/d h:mm;@"(D列日期格式）

Columns("B:B")NumberFormatLocal = "@"（B列数字格式）

If Hs <= h And h <= He And L = Lb Then（条件发生改变的单元格在K3：K(He)间时触发）

If h = Hs Then（条件，当发生改变的单元格是K3时触发）

If Range("A" & h) = "" Then Range("A" & h) = 1（条件，当A3为空时触发，A3=1）

If Range("B" & h) = "" Then Range("B" & h) = "00001"（条件，当b3为空时触发，b3=字符串00001）

If Range("C" & h) = "" Then Range("C" & h) = InputBox("请输入客户名称:")（条件，当c3为空时触发，弹出输入框）

If Range("D" & h) = "" Then Range("D" & h) = Now（条件，当d3为空时触发，d3=当前时间） Else（当发生改变单元格未除K3外其他单元格（在条件内）时触发）

If Range("A" & h) = "" Then Range("A" & h) = Range("A" & h - 1) + 1（条件，当Ah(h为行数)为空时触发，A（h）=A(h-1)+1）

If Range("C" & h) = "" Then Range("C" & h) = Range("C" & h - 1)（条件，当Ch(h为行数)为空时触发，C（h）=C(h-1)）

If Range("B" & h) = "" Then（条件，当Bh(h为行数)为空时触发）

If Range("C" & h) = Range("C" & h - 1) Then（条件，当Ch=C(h-1)(h为行数)为空时触发）

Range("B" & h) = Range("B" & h - 1)

Else（条件，当Ch≠C(h-1)(h为行数)为空时触发）

编号 = Val(Range("B" & h - 1))

For I = 1 To 5 - Len(LTrim(Str$(编号)))（循环，从1到删除左侧空格后字符串长度）

订单编号 = 订单编号 + "0"

Next

订单编号 = 订单编号 + LTrim(Str$(编号 + 1))

Range("B" & h) = 订单编号

End If

End If

If Range("D" & h) = "" Then（条件，当Dh为空时触发）

If Range("C" & h) = Range("C" & h - 1) Then（条件，当Ch=C(h-1)时触发）

Range("D" & h) = Range("D" & h - 1)

Else（条件，当Ch≠C(h-1)时触发）

Range("D" & h) = Now（Dh=当前时间）

End If

End If

End If

End If

End Sub

Option Explicit '变量必须声明

Dim S$ '声明变量S为文本类型变量，即String类型，存放文本

Private Sub Worksheet_Activate() '当前工作表格打开时，激活的事件

S = ActiveCellText '文本类型 变量S的值=活动单元格的内容

End Sub

Private Sub Worksheet_Change(ByVal Target As Range) '单元格数据变化时，激发的事件

Dim I% '声明变量I为整形变量，即Integer

'下面一句：如果改变的单元格，与[k4:k65536] 没有交集，或者改变的单元格的数量〉1个，事件结束（注：Target为当前改变的单元格，下同）

If Intersect(Target, [k4:k65536]) Is Nothing Or TargetCount > 1 Then Exit Sub

If S = "" Then '如果文本变量S的值为空

'下面一句，如果Target前面第8列单元格的值 与 后者的前一行的值

If TargetOffset(0, -8) = TargetOffset(-1, -8) Then

For I = -7 To -2 'I 从-7到-2，即-7，-6，-5，-4，-3，-2，循环6次

'下面1句，如果Target前I列的值为空，则后者的值= 后者前一行的值

If IsEmpty(TargetOffset(0, I)) Then TargetOffset(0, I) = TargetOffset(-1, I)

Next 'I值+1，进入下次循环

End If

End If

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range) '当选中其它单元格时，引发的事件

S = ActiveCellText 'S 的值为当前单元格的内容

End Sub

纯手打，何其累！

工具/原材料

excel2018版、电脑。

1、打开电脑找到并点击excel2018新建工作表；

2、打开excel新建工作表以后，选中A列有颜色的单元格以后，点击上方公式下的“名称管理器”；

3、点击名称管理器以后，在弹出的界面框中点击“新建”的命令；

4、点击以后，在名称栏里输入“颜色”，在引用位置栏里输入“=GETCELL(38,Sheet1!A1)”；

5、输入好并确定关闭后，在A列的编辑栏里输入“=颜色”的命令，并按“ctrl+回车键”填充；

6、此时在B列输入公式“=IF(COUNTIF($A$1:A1,A1)=1,COUNTIF($A$1:$A$11,A1),"")即可。

1甜点表白

史上最浪漫的表白方式怎么能少的了用甜点来俘获恋人的心呢，你可以提前让主厨把钻戒放在甜点里，当女友吃出来时单膝跪地，说出你的求婚告白。

如果怕女友误吞钻戒，可以提前点一道女友最喜欢吃的甜点，然后让侍者故意拖延上餐的时间，当女主角失去耐心时，侍者端着上面刻有“做我女朋友好吗”的甜点上来。

这样就会让女友在感情上有个很大的起伏，收到意想不到的戏剧效果!

2现金表白

可以用面值二十或者是五十的钱，折成花，外面包上鲜花纸。这样浪漫有创意的表白方式，女生应该会喜欢的。

3传统式情书表白

时代变化下，网络已经取代了一切，曾经传统时代里对爱人的表白会以书信的方式进行，用上最具有代表性的信纸，再附上一些感人的文字，成为爱的信息传递和表达。

而现在，联络感情，多用电话，短信，微信或邮件方式互动，但对于表白若只是通过微信说句“做我女朋友吧”不免有些随性，有些不当一回事的轻浮感。

若能准备一封精致的告白书，既显得与众不同，还可以让她看到你的才华，一定会给你们的感情留下美好的记忆。

4直接式表白

你们两个人一起的时候，你可以突然的牵住她的手，慢慢的靠近她的耳朵，很暧昧的对她小声说：“我已经喜欢上你了，你已经没有逃跑的机会了。”

在路上碰巧遇到了喜欢的女生，你可以追上她，拍一下她的肩膀，在她转身的时候，靠近她的脸说：“我喜欢你，做我的女朋友吧!”

5办公室软件表白

很多人都会用办公室软件，但是你知道如何巧妙的用办公室软件求婚吗一个向女生表白的小方法，用它可以制作一段代码。

如果你喜欢的女生会用Office办公软件里的Excel，把代码发给她，该代码可以快速在Excel里生成你设置的图形，像Love心形我爱你一句话等。

Excel精彩课程推荐·Excel表格零基础入门到快速精通·Excel-工作表办公自动化操作技巧·Excel-电子表格函数实战教程·Excel-电子表格透视表篇·Excel-电子表格图表绘制教程

办公软件的使用是一项非常基础的技能，可以帮助人们快速进行文字处理，表格制作，数据处理，制作演讲稿等。办公软件的应用范围很广，大到统计，小到记录，数字化办公等等都离不开办公软件的鼎力协助。为帮助用户快速掌握办公软件的使用，有Word、Excel、PPT、思维导图等办公软件的精品教学课程，都可以免费试学，还没有掌握办公软件的小伙伴们一定不要错过哦。

excel代码VBA的使用教程：

1、首先打开电脑上的excel，在建立的新工作表中的Sheet1上点击右键。

2、下一步，在弹出的选择列表中选择查看代码这一项。

3、接着，点击右侧的倒三角，在下拉列表中选择Worksheet一项。

4、然后，点击右边倒三角，选择触发方式，如BeforeDoubleClick表示在双击鼠标左键时触发。

5、点击后会出现如下这样的代码框架。

6、接着，输入以下语句：Sheet1Cells(1,3)=Sheet1Cells(1,1)+Sheet1Cells(1,2)意为将A1、B1单元格求和并放在C1单元格。

7、下一步，点击保存的按钮，然后关闭VBA窗口。

8、由于A1,B1没有数据，所以C1为0。

9、输入数据后，会发现即使按了回车键，C1也不变；这是因为因为设置的是双击鼠标左键触发。

10、而只需要双击鼠标左键后就变了。

以上就是Excel代码VBA的使用演示过程了，Excel是目前流行的个人计算机数据处理软件，具有表格、图表、函数、数据库等功能，想自学Excel的一定要到羽兔来看看哦。

亲，“基于各自的值”就是根据该单元格本身的值。例如：某一单元格的值大于1，则该单元格背景设为红色。

如果A1单元格，要根据B1是否大于1来设置A1的背景色，那么就不是“基于各自的值”了。