一、2014年大学生英语四级考哪些模块

在线英语学习的确很有.好.特色 很方便，我打了咨询了一下 觉得还挺好的 我推荐ABC天卞口语，他们的外教都是有五、六年的教学经验，课前课后还有学习顾问回答问题，并追踪进度 是根据个人英语水平自己选择课程 我觉得在线的方式性介比较高 你也可以找几个了解一下吧！英语基础很差的话可以从新概念第一册入手，但是近期内想考四级不是很容易。如果仅仅是为了考个四级证的话就不用考虑口语的问题了。新概念第一册可以让你理解一些基本的会话和语法以及一些简单的单词，让你对英语有更深一步的了解，同时一些小故事可以提起你对英语学习的兴趣。就我自身而言，我感觉新概念最重要的是听和跟读，对照着书把每一个故事都跟读，没有必要背下来，但必须都得能够流利得读下来。但是单词没有办法，刚开始一定是要死记硬背的了，只有积累到一定的词汇量以后才会自己发现构词的规律。你可以先坚持一个月，可以给自己设定两天或者三天一篇，不要太急功近利而失去自信。你需要的是耐心。有不懂的语法或者句子可以请教上的同学或者老师，不要害羞。新概念第一册精读完可能花个三个月，所以再次强调耐心。这就为你往四级发展打下了基础。然后买一本四级词汇书和一本四级真题。词汇书不离身，没事干就看，别想着一次性就记住，多翻几次，说夸张点，你上大学，遇到你不喜欢上的课就拿出词汇书当课外书看，看睡着了醒了继续看，哈哈。看词汇的同时做真题，认真的耐心的做完，做完第一份你肯定会受打击，不要急，照着答案认真的把答案誊写到卷子上去，这时你就知道了四级考试的构造。把这套卷子再细看一遍，每一题都要弄清楚为什么，考的是什么语法或者句型，一般情况下标准答案上会有详细解释，不懂的再问同学和老师。如此反复，在不断背单词的同时继续每周做一套题，用同样的方法。把生单词和生短语都记到一个本子上，能背多少背多少，这样你就积累了更多的词汇和语法。关于作文，把真题的正确答案全部死记硬背下来，并不是说你要按部就，这样硬背下来对你写作很有帮助，不但能让你明白什么结构能拿满分，同时也扩展了你的词汇和提高了你的语感。再次强调，得听力者得天下，耳机不要离耳朵，一直放着英语，睡觉的时候都放，灌输语感，不要怕听不懂，不要怕伤耳朵。你所需要的是新概念第一册，四级词汇书一本，四级真题一套，（四级模拟题一套）。别买其他任何教材，都是浪。按上述方法，只要你有耐心，我保证你提高很快。如果你想测试一下自己的话就再买套模拟题，模拟四级，严按照四级流程和时间，即便此时你提高了很多，但你肯定会再次被打击，没关系，因为模拟题一般都比真正的四级题难很多。这时候就要恭喜你，四级证离你不远了。

二、VBA执行遇到类型不匹配告警，请问高手如何修改代码？

Sub aa()

Dim xSh As Worksheet, ySh As Worksheet

Dim xRan As Range

Dim xStr As String

Dim x As Integer

Set xSh = Sheets("sheet1")

Set ySh = Sheets("sheet2")

Set xRan = xSh.Range("A:A").Find("EXTERNAL ALARM", LookIn:=xlValues)

If Not xRan Is Nothing Then

    xStr = xRan.Address

    x = 1

    Do

        xRan.Offset(-2, 0).Copy ySh.Range("A" & x)

        xRan.Offset(1, 0).Copy ySh.Range("B" & x)

        xRan.Offset(2, 0).Copy ySh.Range("C" & x)

        xRan.Offset(3, 0).Copy ySh.Range("D" & x)

        Set xRan = .FindNext(xRan)

        x = x + 1

    Loop While xRan.Address <> xStr

End If

End Sub

三、把打开的EXCEL文件单元格内容增加到同一目录下的另一个excel文件中

试试这个宏：前提是你要把1.xls和2先打开着。

Sub Macro2()

'

' Macro2 Macro

'

'

    Rows("3:3").Select

    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

    Range("B3").Select

    Windows("1.xls").Activate

    Range("C2:C4").Select

    Selection.Copy

    Windows("2.xlsm").Activate

    Range("B3").Select

    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _

        False, Transpose:=True

End Sub

四、帮我写一个excel的vba脚本吧

这个之前回答过了吧！！这里利用了一个辅助的工作表与SQL。完整代码如下

Sub 数据匹配统计()

    Dim xSh As Worksheet, ySh As Worksheet

    Dim xRan As Range, yRan As Range

    Dim arr

    Dim conn As Object

    If ActiveWorkbook.Name <> ThisWorkbook.Name Then

        MsgBox "此程序只能用于“" & ThisWorkbook.Name & "”文件"

        Exit Sub

    End If

    Set xSh = ThisWorkbook.Worksheets("辅助")

    xSh.Range("A:B").ClearContents

    xSh.Range("A1:B1") = Array("数据1", "值1")

    Set xRan = xSh.Range("A2")

    Set ySh = ThisWorkbook.Worksheets("数据")

    Set yRan = ySh.Range("A2")

    Do While yRan <> ""

        arr = Split(yRan, " ")

        xRan.Resize(UBound(arr) + 1, 1) = yRan

        xRan.Offset(0, 1).Resize(UBound(arr) + 1, 1) = WorksheetFunction.Transpose(arr)

        Set xRan = xRan.Offset(UBound(arr) + 1, 0)

        Set yRan = yRan.Offset(1, 0)

    Loop

    xSh.Range("D:E").ClearContents

    xSh.Range("D1:E1") = Array("数据2", "值2")

    Set xRan = xSh.Range("D2")

    Set ySh = ThisWorkbook.Worksheets("数据")

    Set yRan = ySh.Range("B2")

    Do While yRan <> ""

        arr = Split(yRan, " ")

        xRan.Resize(UBound(arr) + 1, 1) = yRan

        xRan.Offset(0, 1).Resize(UBound(arr) + 1, 1) = WorksheetFunction.Transpose(arr)

        Set xRan = xRan.Offset(UBound(arr) + 1, 0)

        Set yRan = yRan.Offset(1, 0)

    Loop

    Set conn = CreateObject("ADODB.Connection")

    Select Case Application.Version * 1

    Case Is <= 11

        conn.ConnectionString = "Provider=Microsoft.Jet.Oledb.4.0;" & _

                                "Extended Properties=Excel 8.0;" & _

                                "Data Source=" & ThisWorkbook.Path & "\" & ThisWorkbook.Name

    Case Is >= 12

        conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;" & _

                                "Extended Properties=Excel 8.0;" & _

                                "Data Source=" & ThisWorkbook.Path & "\" & ThisWorkbook.Name

        strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & PathStr & ";Extended Properties=""Excel 12.0;HDR=YES"";"""

    End Select

    conn.Open

    sSql = "Select f.jg From [数据$B:B] e LEFT JOIN (Select c.sj2c As sj2f ,Count(*) As jg From (Select a.数据1 As sj1c ,b.数据2 As sj2c ,Count(*) As tj1 From [辅助$A:B] a , [辅助$D:E] b Where a.值1 = b.值2 Group By a.数据1 ,b.数据2) c,(Select 数据1 As sj1d,Count(*) As tj2 From [辅助$A:B] Group By 数据1) d Where c.sj1c = d.sj1d And c.tj1 = d.tj2 Group By c.sj2c) f On e.数据2 = f.sj2f"

    ySh.Range("C:C").ClearContents

    ySh.Range("C1") = "包含"

    ySh.Range("C2").CopyFromRecordset conn.Execute(sSql)

    conn.Close

    Set conn = Nothing

End Sub

附上文件

五、Lingo 程序出错 a syntax error has occurred 是什么意思？求大神告知

运行结果如上图

能否把此题的原题完整给我

我已向你提问，麻烦你上传附件给我