excel中怎样用VBA根据填写的数量打印相对的区域?

可以使用VBA中的If语句和For Each循环来实现。首先，在VBA中定义符合条件的数据，可以使用类似下面的代码：Dim targetSheet As Worksheet Dim sourceSheet As Worksheet Dim lastRow As Long Dim i As Long Set sourceSheet = Worksheets("Sheet1") ' 指定源数据所在工作表 Set targetSheet = Worksheet...

例如设置D8:E13为打印区域的VBA语句为：ActiveSheet.PageSetup.PrintArea = "$D$8:$E$13"

Private Sub CommandButton1_Click()Dim row_last As IntegerDim temp1 As IntegerSelection.SpecialCells(xlCellTypeLastCell).Selectflag = FalseDo While flag = False If ActiveCell.Row = 1 Then Exit Do End If Selection.End(xlToLeft).Select temp1 = IsEmpty(ActiveCell.Value) ...

=IF(COLUMN(A:A)<=COUNTIF($A:$A,$G2),INDEX($B:$B,MATCH($G2,$A:$A,)+COLUMN(A:A)-1),"")下拉填充，右拉填充 当第1行出现第二和第三时，分别将上面公式中的 B:$B分别修改为$C:$C和$D:$D。

a = Len(Trim(TextBox1.Text))Dim s As String s = Trim(TextBox1.Text)Dim s1 As String Dim s2 As String Dim s3 As String Dim fzs As String If a = 0 Then Exit Sub Dim i As Long Dim sum As Single sum = 0 Dim b As Long For i = 1 To a s1 = Me.getstr(s, ...

ActiveSheet.PageSetup.PrintArea = Range("a1").resize(x,11)

wb.Close True '如果无需保存,本参数用falseEnd Sub shihoumacili | 发布于2016-01-30 举报| 评论 0 14 你都用VBA了,怎么还问这么种问题啊。。。thisworkbook.path就是A文件夹的路径。B文件夹的路径就用文本函数把A截取掉连上B或者把thisworkbook.path中的A替换成B都可以。。。 本回答被提问者采纳...

Sub myPrintTest()Const strCol = "E" '此处设置打印的列数 Dim i, j As String i = InputBox("请输入起始打印行")j = InputBox("请输入终止打印行")ActiveSheet.PageSetup.PrintArea = "$A$" + i + ":$" + strCol + "$" + j ExecuteExcel4Macro "PRINT(1,,,1,,,2,,,TRUE,...

1、首先在excel表格中设置好公式，将鼠标光标点击到公式单元格右下角的绿色圆点位置。2、双击鼠标左键，即可快速将公式向下复制填充，得到批量的计算结果。3、或者选中包含公式单元格在内的需要计算的单元格区域。4、然后按下键盘上的“Ctrl+D”组合按键，即可快速将公式填充到所选中的单元格区域了。

代码如下：Sub aa()Dim i, k As Integer Dim s As String k = 0 s = "李红"For i = 3 To Cells(Rows.Count, 1).End(xlUp).Row If WorksheetFunction.IsNumber(WorksheetFunction.Find(s, Cells(i, 1))) Then k = k + 1 End If Next i MsgBox "“李红”出现：" & k & "次。