急急急！！想请VBA大佬指点帮助我完成程序开发！！！

VBA编程 麻烦各位帮帮忙，我刚接触vba，不太懂怎么编程序，谢谢各位了。。。

第一个问题解答如下： excel vba编程，答案在你打开的excel表格第一行（自己加起来吧，如果要加到一起也行，程序里加一个application.sum就行，自己试试哈，其它题你按照VB语言来改就行。) Sub kk() j = 1 For i = 1 To 1000 If i Mod 5 = 0 And i Mod 7 = 0 Then ActiveWorkbook.ActiveSheet.Cells(1, j) = i j = j + 1 End If Next i End Sub

excel VBA遇到难点，求大佬指点

公式法

VBA方法：

Sub 填入日期对应列()

With Sheet1

For i = 2 To .Cells(Rows.Count, 2).End(xlUp).Row

findword = .Cells(i, 2)

For j = 6 To .Cells(1, Columns.Count).End(xlToLeft).Column

If .Cells(1, j) = findword Then Cells(i, j) = Cells(i, 4)

Next j

Next i

End With

End Sub

(急）VBA程序的建立，编辑和运行方法？

VBA概述：VBA是Visual Basic For Application的缩写，是VB在office中的运用。是基于Visual Basic For Windows发展而来的，VB For Windows是Microsoft于1992年推出的开发Windows应用程序的程序设计语言，由于基语法简单，易学易用，所以深受用户的欢迎。而VBA和VB For Windows大体相似。 在Office2000之前，VBA在Word,Excel,Access等Office系统软件中的运用有些有同，但是到Office2000就统一起来了。 Excel是第一个包含有VBA的应用程序，自Office2000

VBA 编程问题菜鸟，显示（运行时错误'13' 类型不匹配）请大神帮助!!!程序如下

你这段程序小问题比较多 1、首先你定义o As Integer，但是后面o = ComboBox2.Text 和o = "Audi C7"都是赋值给o文本格式的数据，虽然VB支持类型强制转换，但不建议你这么写，要养成好习惯； 2、Sheets(i).Name = Sheets("Audi C7")这一句一定会产生数据类型错误，因为Sheets("Audi C7")返回的是sheet类型，而Sheets(i).Name则是文本类型，两者之间无法实现强制转换。 总之，你还是要小心一些变量的类型及其转换、赋值等方法，尽量不要交给VBA编译器自己去转换，有一些会无法转换，则产生错误13，也就是类型不匹

请vba高手帮指点一下这种情况怎样写代码！！！

试编写代码示例如下：

PrivateSubCommandButton1_Click()
Worksheets("Sheet1").ChartObjects(1).Activate

Fori=1ToActiveChart.SeriesCollection.Count
ActiveChart.SeriesCollection(1).Delete
Next

ActiveChart.SeriesCollection.Add_
Source:=Range("B2,H2,N2,T2,Z2")
ActiveChart.SeriesCollection(1).Name="=""语文"""

ActiveChart.SeriesCollection.Add_
Source:=Range("C2,I2,O2,U2,AA2")
ActiveChart.SeriesCollection(2).Name="=""数学"""

ActiveChart.SeriesCollection.Add_
Source:=Range("D2,J2,P2,V2,AB2")
ActiveChart.SeriesCollection(3).Name="=""英语"""

ActiveChart.SeriesCollection.Add_
Source:=Range("E2,K2,Q2,W2,AC2")
ActiveChart.SeriesCollection(4).Name="=""物理"""

ActiveChart.SeriesCollection.Add_
Source:=Range("F2,L2,R2,X2,AD2")
ActiveChart.SeriesCollection(5).Name="=""化学"""

ActiveChart.SeriesCollection.Add_
Source:=Range("G2,M2,S2,Y2,AE2")
ActiveChart.SeriesCollection(6).Name="=""政治"""

ActiveChart.ChartTitle.Text="学生成绩统计表（"&Cells(2,1)&"）"
EndSub

运行效果如图：

标签：信息技术 编程语言 vba MicrosoftExcel MicrosoftOffice