小编Alv*_*ohn的帖子

我创建了一个宏,根据我在列表框(Lbox1)中的选择,在多个数据系列上创建动态图表.每当我在列表框中进行任何选择时,宏都会运行.但是,每当我最初删除所有数据系列以创建新图表时,它都会抛出错误.我是VBA的新手.请帮我解决这个问题.

Public Sub listbox_selection()
    Dim i As Integer
    Dim temp As String
    Dim k As Integer
    Dim s As SeriesCollection

    k = Sheets("Plan1").ChartObjects(1).Chart.SeriesCollection.count

    ##This part giving error
    For i = 1 To k
        Sheets("Plan1").ChartObjects(1).Chart.SeriesCollection(i).Delete
    Next
    ####

    Sheets("Plan1").ListBoxes("LBox1").Select
    For i = 1 To Sheets("Plan1").Shapes("LBox1").ControlFormat.ListCount
        If Sheets("Plan1").ListBoxes("LBox1").Selected(i) = True Then
            Call Listit(X:=i)
        End If
    Next
End Sub

Public Sub Listit(ByVal X As Integer)
    X = X + 3
    With Sheets("Plan1").ChartObjects(1).Chart
        With .SeriesCollection.NewSeries
           .XValues = Range("Q2:U2")
           .Values = Range("Q" & X & ":U" …

我的Excel文件(包含宏)只有4 MB的大小突然变成了12MB的文件...我只对vba代码做了一些小改动,我不认为这就是这个的原因....还有什么可能是这个原因？有关如何修复的建议吗？

我在excel中的字符串可以是213221-sddc或232323/scdscsd之类的任何东西,或者数字和字符之间的任何分隔符......我怎样才能从这个文本中仅提取数字？

嘿，以下存储访问查询在通过 VBA excel 运行时给出的 POEventCode 为“ NA ”，并且在直接从访问运行时给出正确的结果。为什么会出现这种异常情况？

SELECT D.[Event Code] & D.[Week Code] AS POEventCode, *  
INTO A
FROM (SELECT IIf([Advertisement type]='Tabloide','TAB',
    IIf([Advertisement type]='Flyer','FLY','NA')) AS [Event Code], 
    IIf(([Start Date]>[SD] And [Start Date]<[ED]), 
        [Month] & Right([WM_WK],2),'NA')  
        AS [Week Code], *  
    FROM [Feature A-Traits] AS C, [Event Code] AS B) 
AS D
WHERE (D.[Week Code]) Not Like '*NA*'  
    And (D.[Event Code]) Not Like '*NA*';