小编Byr*_*all的帖子

我用我创建的电子表格遇到了麻烦.它在我的电脑上工作正常,但我知道办公室里的其他一些电脑有美国本地化.有没有办法迫使VBA使用英国本地化来检查事物？

我遇到的问题是,作为宏的一部分,我使用Text to Columns来确保输入的日期显示为日期,而不是数字或文本.在我的电脑上似乎工作正常,但我知道我把它设置为英国本地化.

其他人有问题,并且不知道它是否是英国本地化.不必考虑其他人的本地化或坚持他们在他们的计算机上有英国本地化,这是理想的,如果我可以在VBA中添加额外的代码行以强制在此宏中完成所有操作.英国本地化.

问题本身就是该计划正在将英国格式的日期转换为美国格式.它似乎发生在宏中发生text-to-columns阶段时.

有没有办法让VBA自动检查是否是英国本地化,如果没有,那么将其更改为英国本地化,然后在最后更改它？我不想强迫每台电脑都有英国本地化,因为它可能会导致其他问题或惹恼用户 - 这是绝对不可取的!

干杯!

我已经创建了温度计图表,这些温度计图表根据我的工作表中的单元格(红色 - 差,黄色 - 平均,绿色 - 好)进行着色.也就是说,图表引用单元格的颜色来确定填充颜色.但是,当以黑白打印时,红色和绿色难以区分.我不想放弃红绿灯着色,因为它对我的观众来说很直观.

我试图弄清楚除了颜色之外如何获得图表填充以反映单元格中的图案.我目前的语法(用于颜色填充)如下.

Sub ColorByValueSMICAUpdate()
  Dim rPatterns As Range
  Dim iPattern As Long
  Dim vPatterns As Variant
  Dim iPoint As Long
  Dim vValues As Variant
  Dim rValue As Range

  Set rPatterns = ActiveSheet.Range("P5:P11")
  vPatterns = rPatterns.Value
  With ActiveChart.SeriesCollection(1)
    vValues = .Values
    For iPoint = 1 To UBound(vValues)
      For iPattern = 1 To UBound(vPatterns)
        If vValues(iPoint) <= vPatterns(iPattern, 1) Then
          .Points(iPoint).Format.Fill.ForeColor.RGB = _
              rPatterns.Cells(iPattern, 1).Interior.Color
          Exit For
        End If
      Next
    Next
  End With
End Sub

谢谢!

我有一个VBA宏,它将数据写入清除的工作表,但它真的很慢!

我正在从Project Professional中实例化Excel.

Set xlApp = New Excel.Application
xlApp.ScreenUpdating = False
Dim NewBook As Excel.WorkBook
Dim ws As Excel.Worksheet
Set NewBook = xlApp.Workbooks.Add()
With NewBook
     .Title = "SomeData"
     Set ws = NewBook.Worksheets.Add()
     ws.Name = "SomeData"
End With

xlApp.Calculation = xlCalculationManual 'I am setting this to manual here

RowNumber=2
Some random foreach cycle
    ws.Cells(RowNumber, 1).Value = some value
    ws.Cells(RowNumber, 2).Value = some value
    ws.Cells(RowNumber, 3).Value = some value
             ...............
    ws.Cells(RowNumber, 12).Value = some value
    RowNumber=RowNumber+1
Next

我的问题是,foreach周期有点大.最后,我将获得大约29000行.在漂亮的OK计算机上完成此操作需要超过25分钟.

是否有任何技巧可以加快写入细胞的速度？我做了以下事情:

xlApp.ScreenUpdating = False …

我对 EXCEL VBA 很陌生，我有点困于寻找一种创建宏的方法来显示 url 是否仍然有效（200 ok），或者可能被重定向，如果是这样，我想知道什么 URL 。当它根本不起作用时，则返回正确的代码以及 URL 不起作用的原因。

因此，目前我有一个实际有效的脚本，但它不会返回 url 重定向到的 url。仅当 url 仍处于活动状态或原始 url 已重定向到的 url 仍处于活动状态时，它才会返回 (200 OK)。这样我就知道哪些 URL 无效或被重定向到无效 URL。

但我想更进一步。由于我现在要检查的 URL 在“A”列中，而结果在“B”列中返回，因此每次我都想在 C 列中看到我被重定向到的 URL URL 已重定向。

我确实在网上找到了一些可以完成这项工作的函数，但由于某种原因我无法将它们放入我的 SUB 中。就像我之前提到的，这对我来说都是新的。

这就是我现在所拥有的：

Sub CheckHyperlinks()

    Dim oColumn As Range
    Set oColumn = GetColumn() '' replace this with code to get the relevant column

    Dim oCell As Range
    For Each oCell In oColumn.Cells

        If oCell.Hyperlinks.Count > 0 Then

            Dim oHyperlink As Hyperlink
            Set oHyperlink = oCell.Hyperlinks(1) …

我已经编写了下面的宏来检查所有列后删除重复的行.基于逻辑,我认为它工作正常,但输出不正确,应该显示的一些行被删除.任何人都可以帮助我吗？

在运行此宏之前,我有另一个宏来按几列对数据进行排序,以确保将相似的行组合在一起,因此宏可以考虑到这一点,并且只检查其上方的行而不是检查所有行？非常感谢任何帮助!

Sub Delete_Repeated_Rows()
Dim Rng As Range
Dim ColumnCounter As Integer

Set Rng = ActiveSheet.UsedRange.Rows

'Using ColumnCounter to hold total number of cells that match. If all of them match, delete row'

 For r = Rng.Rows.Count To 1 Step -1
    ColumnCounter = 0
    For Col = Rng.Columns.Count To 1 Step -1 'Loop through columns and find matches'
        If Application.WorksheetFunction.CountIf(Rng.Columns(Col), Rng.Cells(r, Col)) > 1 Then
            ColumnCounter = ColumnCounter + 1
        End If
    Next Col

    If ColumnCounter = Rng.Columns.Count Then
        Rng.Rows(r).EntireRow.Delete …