小编Cus*_*omX的帖子

for当满足条件时,我想退出循环.for当if条件满足时,我怎么能退出循环？我认为在我的if发言结束时会有某种退出,但不知道它会如何起作用.

Dim i As Long
For i = 1 To 50
    Range("B" & i).Select
    If Range("B" & i).Value = "Artikel" Then
        Dim temp As Long
        temp = i
    End If
Next i
Range("A1:Z" & temp - 1).EntireRow.Delete Shift:=xlToLeft

我正在尝试创建一个简单的函数,它将在一定范围内的每个单元格周围添加边框.使用精彩的录音会产生大量无用的代码.下面的代码将显示数据的"表格",在此范围内的每个单元格周围我想添加边框.在线我无法找到一个简单或明确的答案.

非常感谢所有帮助!

Set DT = Sheets("DATA")
endRow = DT.Range("F" & Rows.Count).End(xlUp).Row
result = 3

For I = 2 To endRow
    If DT.Cells(I, 6).Value = Range("B1").Value Then
        Range("A" & result) = DT.Cells(I, 6).Value
        Range("B" & result) = DT.Cells(I, 1).Value
        Range("C" & result) = DT.Cells(I, 24).Value
        Range("D" & result) = DT.Cells(I, 37).Value
        Range("E" & result) = DT.Cells(I, 3).Value
        Range("F" & result) = DT.Cells(I, 15).Value
        Range("G" & result) = DT.Cells(I, 12).Value
        Range("H" & result) = DT.Cells(I, 40).Value
        Range("I" & result) = DT.Cells(I, 23).Value …

我试图将两个图像并排放置,但由于某种原因,它总是将图像显示在彼此之下.有谁知道我怎么能让他们居中并且彼此相邻？

谢谢!

HTML代码

<a href="mailto:olympiahaacht@hotmail.com">
<img id="fblogo" border="0" alt="Mail" src="http://olympiahaacht.be/wp-content/uploads/2012/07/email-icon-e1343123697991.jpg"/></a>
<a href="https://www.facebook.com/OlympiaHaacht" target="_blank">
<img id="fblogo" border="0" alt="Facebook" src="http://olympiahaacht.be/wp-content/uploads/2012/04/FacebookButtonRevised-e1334605872360.jpg"/></a>`

CSS代码

#fblogo {
    display: block;
    margin-left: auto;
    margin-right: auto;
    height: 30px; 
}

我正在尝试连接几个字段,并希望某些字段以引号(".....")开头和结尾.当我在其中放置一个单元格(B2)时,单元格(B2)显示为纯文本,并在其周围加上引号.

CONCATENATE("""B2""") -> "B2"

CONCATENATE("""B2""") -> "(whatever is in cell B2)"

我有以下网络路径将文件复制到存档文件夹.它复制File 1到Folder,Archive但我想添加这两个不起作用的调整.

1. 重命名File 1-1为File 1 - date + time
2. 现在运行它会显示带有复制代码的cmd框,是否可以在后台运行它或者有一个加载屏幕来显示进度？

对于我的代码,我按照此示例将名称更改为日期.

copy "F:\Folder\File 1.xlsx" "F:\Folder\Archive\File 1-1.xlsx"
/f "tokens=1-5 delim s=/ " %%d in ("%date%") do rename "F:\Folder example 2.xlsx" "F:\Folder\File example %%e-%%f-%%g.xlsx"

我想删除我的ERP报价生成的空行.我正在尝试浏览文档(A1:Z50),并且对于单元格中没有数据的每一行(A1-B1...Z1 = empty,A5-B5...Z5 = empty)我想删除它们.

我找到了这个,但似乎无法为我配置它.

On Error Resume Next
Worksheet.Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
On Error GoTo 0

我有两列数据:

    A         B
1   HELIOS    AU
2   HELIOS
3   HELIOS    AU
4   SPARTA
5   HELIOS    AU

Countif(A..;"HELIOS") AND Countif(B..;"AU")

我可以计算一列中的HELIOS或SPARTA的数量.但是我如何计算每个HELIOS或SPARTA的AU数量？

我正在尝试创建一个按钮,将我带到我的索引表.我知道如何使用宏或超链接,但我的用户不是'聪明'的用户,如果我使用宏,他会整天打电话给我.

有没有人知道如何解决这个问题,除了使用超链接？我在考虑一个带有超链接的按钮,但还没有找到办法!

谢谢!:)

我一直在寻找如何在保存文档之前调用我的宏.我找到了这个,但是当我把代码放在里面时,它什么也没做.所以我认为我错过了一些东西.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 

Set shtVO = Sheets("Voice orders")
endRowVO = shtVO.Range("E" & Rows.Count).End(xlUp).Row

For Row = 11 To endRowVO
    If IsEmpty(shtVO.Cells(Row, 23).Value) = False Then
        If shtVO.Cells(Row, 3).Value <> shtVO.Cells(Row, 23) Then
            If shtVO.Cells(Row, 1).Value Like "*MIG*" Then
            Else
                shtVO.Cells(Row, 1).Value = shtVO.Cells(Row, 1).Value + "MIG"
            End If
        End If
    End If
Next Row

End Sub 

我希望能够过滤并显示全局范围和可见(过滤)范围的计数和总和.使用以下代码,我可以显示全局范围的count和sumif:

AtmCount = Application.WorksheetFunction.CountIf(Range("X3:X4533"), ">0")
AtmSum = Application.WorksheetFunction.Sum(Range("X3:X4533"))

通过这部分,我可以显示过滤范围的计数:

AtmCurrentCount = Range("X3:X4533").SpecialCells(xlCellTypeVisible).Count
AtmCurrentSum = ???

任何人都可以帮助我获得仅有可见行的总和吗？