主页 / user-23272305

Ramadan Moussa's questions

Martin Hope
Ramadan Moussa
Asked: 2025-01-09 16:02:48 +0800 CST
  • 5

我只需要更改表格最后一行 + 2 行单元格的字体（“A：M”），但我不知道如何在 VBA 代码中写入它...我已经在下面的代码中写了最后一部分，但不幸的是错了

请提出任何建议

Sub Addnewrow()

Dim lo As ListObject
    Dim newRow As ListRow
    Dim cpyRng As Range
    
    Set lo = Range("Data").ListObject
    Set newRow = lo.ListRows.Add
    
With newRow
.Range(12).FillDown

 With Range(LastRow + 2)
 
        .Font.Size = 12
        .Font.Name = "Tahoma"
        .Font.Bold = True
    End With

End Sub
excel
Martin Hope
Ramadan Moussa
Asked: 2025-01-07 16:37:29 +0800 CST
  • 5

我有一张工作表，其中的表格有 400 行以上，我有一个代码，如果单元格中的日期比 TODAY() 早 90 天，则根据单元格值隐藏某些行。并且它运行良好，但不幸的是，它需要很长时间才能应用于所有表格，我可以看到它一行接一行地进行转换。请提出任何建议。

这是我的代码

Sub hideolderdates()

Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Database")

wsLR = ws.Cells(Rows.Count, 9).End(xlUp).Row

For x = 5 To wsLR
    'analyze date, see if its 3 weeks or older
    If ws.Cells(x, 9) <= Date - 90 Then
     'hide
     ws.Range("a" & x).EntireRow.Hidden = True
           
    End If
Next x

End Sub
excel
Martin Hope
Ramadan Moussa
Asked: 2024-12-26 19:47:20 +0800 CST
  • 5

在处理 Excel 工作表时，我需要在同一个文件夹中打印 2 个不同的外部 PDF 文件供我的客户签名。

以下是文件路径“D:\Templates to Print\Acknowledgment.pdf”和“D:\Templates to Print\Works Permit.pdf”

我在网上搜索时找到了这个代码但不幸的是它不起作用

sub print_file()

Print_and_Close_PDF "D:\Templates to Print\Acknowledgment.pdf"
End sub`
excel
Martin Hope
Ramadan Moussa
Asked: 2024-12-22 15:26:49 +0800 CST
  • 5

我使用这个 sumproduct 公式来检查两张表（sheet1 和 Stopwork 表）之间的值，如果结果为 TRUE，则更改行颜色

=SUMPRODUCT(('停止工作'!$D$8:$D$500=$C10)*('停止工作'!$K$8:$K$500="打开")*('停止工作'!$C$8:$C$500=$B$2)*($T$8:$T$500=$B$3))

我的问题仅在于公式 *($T$8:$T$500=$B$3)) 中的最后一个条件，用于检查同一张表中 Sheet1 中的“T”中的值是否为“B3”，而该值已经为空白 - 但是当我在“T”中输入任何数据以使其不为空白时，该条件不适用，而当我将单元格“B3”更改为非空白时，条件有效，如您在屏幕截图中看到的那样 在此处输入图片描述

你能告诉我我该怎么办吗

从文件复制到测试

excel
Martin Hope
Ramadan Moussa
Asked: 2024-11-30 22:34:10 +0800 CST
  • 6

我得到了一个代码，用于将数据从已关闭的工作簿复制到另一个活动的工作簿，但是在运行该代码后关闭工作簿时遇到了问题，我不知道如何修复它

我的源工作簿是“停止工作”sheet1，目标工作簿是“AUTHS”，工作表名称是“停止工作”，代码运行顺利，但我的问题是，在运行代码并复制数据后，我正在处理的活动工作簿“AUTHS”被关闭，而关闭的源工作簿被打开，而我需要反之亦然（保存并关闭“停止工作”并保持“AUTHS”打开 - 我试过改变真假但什么也没做这是我的代码

Sub mycode()

Workbooks.Open Filename:="D:\Desktop\Stop Work.xlsm"
Worksheets("Sheet1").Cells.Select
Selection.Copy

Workbooks.Open Filename:="D:\Desktop\AUTHs.xlsm"
Worksheets("Stop Work").Cells.Select
Selection.PasteSpecial xlPasteAll             'xlPasteAll to paste everything
ActiveWorkbook.Save

ThisWorkbook.Close SaveChanges:=False        'to close the file
Workbooks("D:\Desktop\Stop Work.xlsm").Close SaveChanges:=True  'to close the file

End Sub



thank you in advance
excel