VBA中,用按钮将指定单元格的值依次赋值到另外的单元格里。如图,右侧生成订单按钮需要将白酒五吨和啤酒十吨,是否加急,所需车辆,总费用依次赋值到左侧的大表格里。要求每次点击生成订单,都能生成一个新的订单号,并记录信息。
点按钮【生成订单】的时候把订单区域的内容添加到左边A列的最后区域,并且订单号+1,可以用下面的代码:
Dim i,j,no,v图片看不清楚,假设订单号在A列,如果不是你可以自行修改。
如果需要编写完整的代码,请在百度云上把你现在的文件分享给我。
VBA中,用按钮将指定单元格的值依次赋值到另外的单元格里。
点按钮【生成订单】的时候把订单区域的内容添加到左边A列的最后区域,并且订单号+1,可以用下面的代码:Dim i,j,no,vi=cells(rows.count,1).end(xlup).row() 'A列最后一行no=cells(i,1)+1 '订单号+1i=i+1'输出新订单到下一行cells(i,1)=noj=2'保存结果列for each v in range("J10...
如何用VBA将批注中的数值赋到另一个单元格中
Sub pz2rng()Dim Rng As RangeFor Each Rng In Range("A1:A100") If Not Rng.Comment Is Nothing Then Rng.Offset(0, 1) = Rng.Comment.TextNextEnd Sub
使用excel VBA将一个单元格内输入的数据赋给另一个单元格
Range("b1").Value = Range("a1").Value End If End Sub
vba怎样把一个单元格中的值赋给另一个单元格
1、首先点击EXCEL打开EXCEL工作薄,工作簿的名称为“给单元格赋值.xls”。2、进入EXCEL界面后点击开发工具选项卡,点击上面的VIUAL BASIC按钮打开VBA编辑器。3、进入VBA编辑器后再代码输入窗口输入如下代码。Sub 给单元格赋值()Workbooks("给单元格赋值.xls").Worksheets("数据").Range("A1").Value = ...
...中用VBA实现在下拉列表中选中一个值,然后为其他单元格赋值的...
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$G$13" Then Select Case Target.Value Case "上海": [G38] = 1: [G51] = 1: [G55] = 1 Case "北京": [G38] = 2: [G51] = 2: [G55] = 2 Case "天津": [G38] = 3: [G...
用VBA实现点击指定单元格跳转的问题?
详解 Excel选当前表单元格数据跳转另表相同单元格
VBA中excel把某单元格依次赋值给所有的sheet的语句
问题还是有点问题,是否sheet179的b1-b100依次赋值给sheet1至sheet100的b3?要么b2-b101依次赋给sheet1至sheet100的b3,以下代码按后者编写:for i=1 to 100 sheets(i).[b3]=sheets(179).cells(i+1,2)next 如果是sheet179的b1-b100依次赋值给sheet1至sheet100的b3,代码中i+1改为i即可。
怎样用VBA实现提取字符并分别输入到其他单元格中
亲,VBA提取字符的函数也是LEFT、MID、RIGHT这几个,要不也可以高端大气上档次点儿——用正则。输入到其他单元格,这个直接给单元格赋值就可以了。例如:Range("B1").Value = Mid(Range("A1").Value, 2, 1)这句话就是取A1单元格第2位开始取1个字符,并且输入到B1单元格。
如何用VBA实现"如果单元格A1等于1,那么将单元格C1的值复制到B1…依次...
ActiveCell.FormulaR1C1 = "=IF(RC[-1]=1,RC[1],""")"Range("b1").AutoFill Destination:=Range("b1:b200")
Excel,如何用vba把sheet1的a2的单元格内容赋值给sheet2的b2单元格...
sheets("sheet2").Range("B2")=sheets("sheet1").Range("A2")