EXCEL宏代码编写
发布网友
发布时间：2022-05-01 17:55
共3个回答
热心网友
时间：2022-06-20 16:12
Sub Macro7()
'
' Macro7 Macro
' 宏由 qx 录制，时间: 2007-4-2
'
'
Charts.Add '增加EXCEL图表
ActiveChart.ChartType = xlLineMarkers '指定刚刚新加的EXCEL图表类型
ActiveChart.SetSourceData Source:=Sheets("Sheet7").Range("G5:G34"), PlotBy _
:=xlColumns '指定刚刚新加的EXCEL图表数据源，如果数据源发生变化，修改("Sheet7")为相应工作表名，("G5:G34")为相应区域即可
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet7"
With ActiveChart
.HasAxis(xlCategory, xlPrimary) = True
.HasAxis(xlValue, xlPrimary) = True
End With '指定刚刚新加的EXCEL图表的坐标
ActiveChart.Axes(xlCategory, xlPrimary).CategoryType = xlAutomatic '指定刚刚新加的EXCEL图表的坐标格式
ActiveWindow.Visible = False '把当前窗口隐藏，这句挺奇怪的
Windows("Instry_by_province.xls").Activate '激活指定EXCEL文件
Sheets("Sheet7").Select '激活指定的工作表，此处也就是数据源表
End Sub
---------------------------------------------------------
我给你做最最简单的修改吧，在开始由你指定数据源和图表所在工作表的名称。有什么问题可以再问，关键是你想怎么做。
Sub Macro7()
'
' Macro7 Macro
' 宏由 qx 录制，时间: 2007-4-2
'
'
strSheetName=InputBox("请输入数据源Sheet名")
Charts.Add '增加EXCEL图表
ActiveChart.ChartType = xlLineMarkers '指定刚刚新加的EXCEL图表类型
ActiveChart.SetSourceData Source:=Sheets(strSheetName).Range("G5:G34"), PlotBy _
:=xlColumns '指定刚刚新加的EXCEL图表数据源，如果数据源发生变化
ActiveChart.Location Where:=xlLocationAsObject, Name:=strSheetName
With ActiveChart
.HasAxis(xlCategory, xlPrimary) = True
.HasAxis(xlValue, xlPrimary) = True
End With '指定刚刚新加的EXCEL图表的坐标
ActiveChart.Axes(xlCategory, xlPrimary).CategoryType = xlAutomatic '指定刚刚新加的EXCEL图表的坐标格式
ActiveWindow.Visible = False '把当前窗口隐藏，这句挺奇怪的
Windows("Instry_by_province.xls").Activate '激活指定EXCEL文件
Sheets(strSheetName).Select '激活指定的工作表，此处也就是数据源表
End Sub
热心网友
时间：2022-06-20 16:12
2、在sheet1中插入一个艺术字（艺术字将成为按钮）。
3、右击艺术字→指定宏→新建。
4、复制以下代码，就会在sheet1的A列中出现结果。（若要随机可插入Rnd函数）。
Sub 艺术字1_单击()
step_a:
a = InputBox("A的比例（请输入数字）：")
If Not (IsNumeric(a)) Then
MsgBox "输入不是数字，程序终止。"
Exit Sub
End If
a1 = a / 100 * 350
If a1 <> Int(a1) Then
MsgBox "A的个数=350*" & a & "%=" & a1 & "个，数量不是整数，请重新输入。"
GoTo step_a
End If
step_b:
b = InputBox("B的比例（请输入整数）：")
If Not (IsNumeric(b)) Then
MsgBox "输入不是数字，程序终止。"
Exit Sub
End If
b1 = b / 100 * 350
If b1 <> Int(b1) Then
MsgBox "B的个数=350*" & b & "%=" & b1 & "个，数量不是整数，请重新输入。"
GoTo step_b
End If
MsgBox "C的比例=1-A的比例-B的比例=" & 100 - a - b & "%"
Sheet1.Cells(1, 2) = "A的数量= " & a1 & "个"
Sheet1.Cells(2, 2) = "B的数量= " & b1 & "个"
Sheet1.Cells(3, 2) = "C的数量= " & 350 - a1 - b1 & "个"
For i = 1 To a1
Sheet1.Cells(i, 1) = "A"
Next i
For i = i To a + b1
Sheet1.Cells(i, 1) = "B"
Next i
For i = i To 350
Sheet1.Cells(i, 1) = "C"
Next i
End Sub
热心网友
时间：2022-06-20 16:13
您想要什么公式
提问Sheet2.Range("5:100").Delete
i = 5
If Sheet1.Cells(5, 2) Like "*外单位*" Then
Sheet3.Range(Cells(2, 1), Cells(2, 5)).Copy Sheet2.Range(Cells(i, 1), Cells(i, 5))
i = i + 1
Sheet3.Range(Cells(4, 1), Cells(4, 5)).Copy Sheet2.Range(Cells(i, 1), Cells(i, 5))
i = i + 1
Sheet3.Range(Cells(5, 1), Cells(8, 5)).Copy Sheet2.Range(Cells(i, 1), Cells(i + 3, 5))
i = i + 4
这一段代码，我要整段代码段意思，不要给我去网上找
回答5*2的格式复制每行每列
依次递减
提问还是不懂能不能每一句都标明一下啊
回答这个是一体的呀
一共i为5行
然后一次递减
提问我是每一句都不懂，不会vba的代码！
能有例子吗
回答列子我没有
但是网上有列子
您可以看看
您要学基础的才能看懂
提问你找给我看看
回答这都是里面的函数
提问你网上找个例子我看看
回答Sub aaa()FOR H=起始行 TO 结束行Sheets("sheet2").Cells(H, 7) = Sheets("sheet1").Cells(H, 7)Sheets("sheet2").Cells(H, 8) = Sheets("sheet1").Cells(H, 8)Sheets("sheet2").Cells(H, 10) = Sheets("sheet1").Cells(H, 10)Sheets("sheet2").Cells(H, 11) = Sheets("sheet1").Cells(H, 11)Sheets("sheet2").Cells(H, 12) = Sheets("sheet1").Cells(H, 12)Sheets("sheet2").Cells(H, 13) = Sheets("sheet1").Cells(H, 13)NEXT HEnd Sub
