Excel中,如何用VBA来执行以下功能,高手请进,若能完美运行,我将增加100分悬赏 请教高手。能否让Excel表格中能否优先运行某段VBA代码。...

作者&投稿:歹伊 (若有异议请与网页底部的电邮联系)
以下代码必须放到Excel对象下的对应工作表中。就是VBA编辑器左上角工程框那里可以选到的,双击对应工作表。
我是根据你的操作顺序来做的,应该是先敏竖输重量,有必要再改客户名吧。
首先是K列值变动就会拷贝上一行数据,当然ID号是递增的。K列一次粘贴多个数据也OK
之后客户名改变即改变C列改变时,这时会自动增加订单号。订单号格式可以任意,我用的是自动增加序列号,其他地方请手动更改。

Private Sub worksheet_change(ByVal Target As Range)

If Target.Column = 11 Then '如果K列的腔型值有变动
Call ValueChangeK(Target)
ElseIf Target.Column = 3 Then '桥圆大如果C列的值有变动
Call ValueChangeC(Target)
End If

End Sub

Sub ValueChangeK(ByVal Target As Range)

Dim i As Long
Dim j As Integer
Dim rng As Range

For Each rng In Target
i = rng.Row
Cells(i, 1) = i - 2
For j = 2 To 9
Cells(i, j) = Cells(i - 1, j)
Next j
Next rng

End Sub

Sub ValueChangeC(ByVal Target As Range)

Dim i As Long
Dim j As Integer

i = Target.Row
If Cells(i, 4) <> "" Then
Cells(i - 1, 2).AutoFill Destination:=Range(Cells(i - 1, 2), Cells(i, 2)), Type:=xlFillDefault
End If

End Sub

根据你的描述 做了一个示例 看看能否符合 你的需求吧!

程序主要是 针对 数量重量 列 以及 客户 列 数据的变化来自动实现你描述需要的变化 客户可以再次修改……返闹伏你可弯锋以 数一下数据 试验一下哦


这里 第三行应该是 预先输入一个漏携数据 从第四行开始 才有你说的那个样子哦……

如果 还有什么问题的话 你再追问吧!

祝你快乐!



用Excel的VBA问题,高手请进,若能实现追加100分。~

这个不需要vba就可以实现。

假设2的概率为70%

在A1输入公式

=1+(RAND()<0.7)


VBA的思路同理,判断随机数的大小决定输出值。

开始时
Application.ScreenUpdating = False '关闭屏幕刷新
Application.Calculation = xlManual '手动计算
结束前
Application.ScreenUpdating = True '打开屏幕刷新
Application.Calculation = xlAutomatic '自动重算

如何一打开Excel就运行VBA?
答:认识Workbook_Open事件 VBA帮助里这么定义:打开工作簿时,将产生本事件。Workbook_Open事件只在工作簿打开的时候产生,在下一次打开之前不再发生此事件。可以写入一些只需执行一次的代码,比如如果您需要在文件每次打开时在表1中A列记录下文件打开的时间,则应该使用此事件.Private Sub Workbook_Open()Sheet1...

EXCEL 如何用VBA检测 某单元格必须被重新编辑一次,才继续执行后面的代码...
答:你可以使用VBA的Application.InputBox函数来实现这个功能。首先,你可以在表格的工作簿的模块中编写以下代码:Private Sub Workbook_Open()'将A1单元格的值存入变量originalValue originalValue = Range("A1").Value End Sub 然后,在你想要执行打印代码之前,添加以下代码来检测A1单元格是否被重新编辑过:'...

在Excel中如何使用VBA根据姓名自动插入照片
答:  另外,每个员工的照片的名称,都是按照员工的姓名来命名的,如下图。  像这样的问题需求,是具备一定规律的,因此,能使用VBA来完成。二、实现方法 打开你的Excel,然后执行菜单操作:“工具”→“宏”→“宏”;弹出如下图对话框。  上图中,宏名那里,输入...

excel里面如何用vba去打开并运行另一个excel的脚本
答:如图。(图片在点大,可能你需要将其下载到本地,才能看到动画)

如何使用VBA调用EXCEL里面的图片和数据生成PPT里面的图片和数据?_百度...
答:第五步:执行VBA代码,生成我们需要的600个Excel文件。执行VBA代码 连贯操作演示:操作演示 二、 图片导出 600个案例文件已经准备好了,接下来就是导出文件中的图片。解决思路:1. 一个个的找出当前目录下的所有Excel文件。2. 打开找到的Excel文件。3. 一个个的找出Excel文件中的工作表。4. 找出工作表...

怎样在VBA指令中调用Excel函数
答:软件版本:Office2013 方法如下:1.利用VBA对C列数据求和:2.Alt+F11,输入代码如下:VBA中引用工作表函数,可以利用Application.worksheetFunction+函数名的方法 3.F5执行代码,结果如下:

excel VBA如何实时自动运行
答:双击你数据所在的表 选择 worksheet selectchange 然后输入 call 代码的工程名称

Excel EXCEL中怎样用VBA来写图表
答:GetChartElement 返回指定的 X 坐标和 Y 坐标上图表元素的信息。本方法稍有与众不同之处:调用时只须指定前两个参数,在本方法执行期间,Microsoft Excel 为其余参数赋值,本方法返回后应检验这些参数的值。Location 将图表移动到新位置。Move 将图表移到工作簿的另一位置。OLEObjects 返回...

如何使用vba遍历excel中的所有单元格?
答:1、在SHEET表内设置好按钮,并指定到宏。2、在VBA编辑器内输入如下的代码。(此代码的含义为遍布区域内的单元格,如果为空格,则隐藏空格所在的整列。3、在运行过程中出现了问题,下标越界,无法运行。4、在代码中的“SHEET1”工作表根本没有,因为SHEET表的标签名称为“图表”,因此代码运行时找不到...

Excel中,使用VBA以某一单元格内容命名工作表
答:2、然后在该界面中,选中要以某一单元格内容命名的工作表,右键点击“查看代码”。3、再者在该界面中,输入VBA代码“Sub 更改名称度() Dim mYn As String mYn = Cells(1, 1) ActiveSheet.Name = mYn End Sub”。4、其次在该界面中,点击“执行”按钮。5、、最后在该界面中,成功以某一单元格...