Excel中,如何用VBA来执行以下功能,高手请进,若能完美运行,我将增加100分悬赏

作者&投稿:衷媚 (若有异议请与网页底部的电邮联系)
用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编辑器左上角工程框那里可以选到的,双击对应工作表。
我是根据你的操作顺序来做的,应该是先输重量,有必要再改客户名吧。
首先是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

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

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


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

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

祝你快乐!




如何在xcel中进行拼写检查?
1、在电脑桌面里找到XCEL表格,选中此XCEL表格,右键单击选择打开。2、将文件表格打开了之后,在表格上方的工具栏里面找到审阅,并点击审阅这个工具选项。3、点击了审阅工具选项之后,在审阅的目录下面可以看到有一下拼写检查选项,点击它即可。

EXCEL中如何用函数或其它方式自动处理提取分隔符之前的数据---附图...
1.打开Excel表格,如下图所示。2.打开Excel表格后,点击进入数据页面,如下图所示。3.单击进入数据页面,然后单击列,如下图所示。4.点击分列,检查分隔符,然后点击下一步。5.单击next后,检查其他选项,然后输入逗号并单击next,如下所示。6.最后,单击finish,如下所示。7.点击“finish”后,数据用...

表格乘法怎么操作
第一步,打开Excel表格,选中要输入乘法公式的单元格,然后在工具栏上方找到【公式】选项,并点击。第二步,在公式标签下,找到【插入函数】命令,并点击。第三步,然后在弹出的插入函数提示框中,将函数的【或选择类别】选项,选择为【数学与三角函数】类别,然后再选中【PRODUCT】函数,再点击【确定】...

xceltoday函数用法及实例
Excel中TODAY函数的用法是返回当前日期的序列号。序列号是Excel日期和时间计算使用的日期-时间代码。如果在输入函数前,单元格的格式为“常规”,Excel 会将单元格格式更改为“日期”。如果要查看序列号,则必须将单元格格式更改为“常规”或“数值”。 TODAY函数也可以用于计算时间间隔。TODAY函数是没有参...

如何在excel表格中查看网页数据
如何在excel表格中查看网页数据?使用xcel表查看网页数据 1.首先打开excel表格并选择数据菜单栏。2.在数据菜单栏下,最左边是获取外部数据选项卡。3.选择“从网站”外部数据源。4.点击网站,弹出“新文本查询”对话框。填写网页的地址栏,然后单击“前往”按钮打开相应的网站。5.在“新建网页查询”对话框...

excel中如何给表格设置链接啊?
1、首先点击其中一个单元格并选择工具栏中的“插入”选项。2、然后点击“插入”选项卡中的“链接”图标。3、进入选择需要链接的对象的对话框,根据需要选择超链接的对象并点击确定。4、即可将选中的单元格添加上超链接,此时单元格内的文字变成蓝色带下划线的样式。5、使用相同的方法将另外单元格设置好超...

EXCEL中如何用函数或其它方式自动处理提取分隔符之前的数据---附图...
XCEL中如何用函数或其它方式自动处理提取分隔符之前的数据的方法。如下参考:1.打开Excel表格,如下图所示。2.打开Excel表格后,点击进入数据页面,如下图所示。3.单击进入数据页面,然后单击列,如下图所示。4.点击分列,检查分隔符,然后点击下一步。5.单击next后,检查其他选项,然后输入逗号并单击next...

excel中上下单元格怎么互换位置
xcel在使用的过程中,有各种各样的功能可供大家使用,对于其中的一些应用,很多朋友不是很了解,那么今天就来讲讲如何实现excel表格上下位置整体互换?首先点击你需要换位置的单元格。将光标移至该单元格的边框位置。出现十字型形状时按住shift键,单击鼠标左键。拖动鼠标到你要换的位置上。直到中间出现一道...

excel数据透视表中如何冻结表格窗口
xcel中如何冻结表格窗口\/p>1、在【视图】下,就可以看到【冻结窗格】2、冻结首行:可以将首行冻结 3、然后就可以看到不管滑到多下,第一行始终都看的到 4、冻结首列:5、和冻结首行差不多,始终都能看到第一列 6、如果想行列都进行冻结,先选中行列交叉的那个单元格 7、然后点击【冻结拆分窗格】8...

EXCEL中MID和MIDB函数的使用基础教程
chars是负数,则MID返回错误值#VALUE!。●如果num_bytes是负数,则MIDB返回错误值#VALUE!。示例:=MID(office教程网,2,6):返回从“office教程网”中第2个字符开始的7个字符,即“xcel教程”。=MIDB(office教程网,2,6):返回从“office教程网”中第2个字节开始的7个字节,即“xcel教”。

芙蓉区19868306017: excel中vba怎么用 -
古淑百普: 1 打开 Microsoft Office Excel 2007,点击 “开始” ->“Excel 选项”.2 在弹出的对话框中,选择“常规”选项卡,并在右侧点选“在功能区显示'开发工具'选项卡”,并单击“确定".3 在单元格A1中输入“弧度”,单元格B1中输入“角...

芙蓉区19868306017: excelVBA运行 -
古淑百普: 软件版本:Office2007 方法如下: 1.在Excel中按下快捷键Alt+F11,就会打开VBA编辑界面: 2.输入代码后,按F5或者点击图示三角: 3.如果光标在程序内部,则会立即执行程序,如果是在外部,则会出现如下提示,选择要制定的宏明,在点击”运行“: 4.也会运行程序:

芙蓉区19868306017: excel中的公式如何用VBA代码实现 -
古淑百普: 用VBA的思路如下: 1、首先可以用一个循环遍历C3、E3两列数据 2、按照你选定的公式做计算(数值或逻辑计算) 3、如需要可添加按钮、文本、用户窗体

芙蓉区19868306017: 怎在EXCEL中使用VBA语言编程
古淑百普: )打开新工作簿,确认其他工作簿已经关闭. 2)选择A1单元格.调出“常用”工具栏. 3)选择“工具”—“宏”—vb 编辑器

芙蓉区19868306017: 在excel中怎样使用vba? -
古淑百普: 工具-宏-录制 随便录制几个动作 停止录入 下次在工具-工-运行,找到你录制的宏,就可以运行.

芙蓉区19868306017: 如何用excel里面的vba实现以下功能: -
古淑百普: 函数和VB都可以实现.都不算太复杂的.函数方法:取得各表的行数,然后用indirect或者offset来引用,必要时可以借助辅助区域. VB方法:在工作簿中,写上工作表单元格改变事件,判断是不是四个工作表之一,如果值改变了,则将四表的数据按顺序重新复制.

芙蓉区19868306017: 请教一个关于excel中vba函数使用的问题 -
古淑百普: 1、在excel中的vba里使用内置vba函数的使用方法:调用Application对象的WorksheetFunction属性.示例: 本示例对单元格区域 A1:A10 使用 Min 工作表函数,并显示结果. Set myRange = Worksheets("Sheet1").Range("A1:C10") ...

芙蓉区19868306017: excel中生成的vba代码怎么使用 -
古淑百普: 在excel中可以添加VBA代码,通过打开“开发工具”,点击打开VB编辑器,进入VBA编写代码.1开发工具 2VB编辑器 3选择工作,双击 4在代码窗中输入代码

芙蓉区19868306017: excel怎样调用vba编辑器 -
古淑百普: 看你用的是什么版本的excel,如果是2007,可以先点视图,然后选择宏-查看宏,再在弹出的对话框中选择编辑.

芙蓉区19868306017: 如何用VBA实现打开指定EXCEL文件并执行其中的某个宏 -
古淑百普: 可以用 workbooks.open "d:\d.xls" application.run "d.xls!macro" 来打开某文件并运行宏

本站内容来自于网友发表,不代表本站立场,仅表示其个人看法,不对其真实性、正确性、有效性作任何的担保
相关事宜请发邮件给我们
© 星空见康网