利用VBA将特定颜色格资料汇入到该档案

呵呵，我猜是不是A档案被修改了，修改处用黄色标记出来。现在需要把A档案修改的地方，更新到B档案相同的位置。

注意：运行此程序前请务必备份好你的源文件！！！！！！

代码如下，黄色的RGB估计是(255,255,0)。代码中的文件路径和名称需要你自己修订一下，改成实际的A档案路径和名称。

打开你的B档案，按“Alt+F11”打开VBA编辑窗口，然后在左侧空白处点击右键，“插入”，“模块”。右侧空白处粘贴下面的代码。关闭VBA窗口。按“Alt+F8”打开宏窗口，选择刚才插入的宏，点击“执行”。

 Sub XG()

On Error Resume Next

Dim rg As Range

Dim sh, i As Integer

Dim FullName, fn As String

FullName = "D:\TEMP\10月10日.xlsx"

fn = Right(FullName, Len(FullName) - InStrRev(FullName, "\"))

If Workbooks(fn) Is Nothing Then

    Workbooks.Open FullName

End If

With Workbooks(fn)

    For i = 1 To .Sheets.Count

        For Each rg In .Sheets(i).UsedRange

            If rg.Interior.Color = RGB(255, 255, 0) Then

                rg.Copy ThisWorkbook.Sheets(.Sheets(i).Name).Range(rg.Address)

            End If

        Next

    Next

End With

Workbooks(fn).Close False

End Sub

很久没玩VB了，忘得差不多了，但我想肯定行的。不过既然会VBA了，何必要用VB呢，VBA也行。

用工作簿的OPEN事件启动代码，然后在代码运行完成后关闭表格。有什么具体要求请说明

建一个Excel文件，在这个文件编写主程序，如果要手动输入启动参数，最好建一个窗体，在窗体设文本框输入启动参数，窗体由文件的OPEN事件加载。窗体设命令按钮运行程序，程序中用“Workbooks.Open”方法打开其他Excel文件，对打开的文件进行处理的程序可在主程序文件也可在本文件进行，在子文件的代码应写在文件的OPEN事件中才能自动运行。在文件中传递数据在主程序文件中的模块中设置全局变量或数组。代码最好都写在主文件中，便于用密码保护。各个子文件也可设打开密码，这样他人就不能打开你的任何文件。

用VBA程式设计如何遍历EXCEL每一个工作表 这段小程式就把一个EXCEL档案中每个工作表的A1单元格填上了a

Sub tt()

For i = 1 To ActiveWorkbook.Worksheets.Count

ActiveWorkbook.Worksheets(i).Cells(1, 1).Value = "a"

Next

End Sub

用VBA程式设计如何连线EXCEL每一个工作表

Private Sub CommandButton1_Click()

Dim ws As Worksheet

For Each ws In Worksheets

MsgBox (ws.Name)

Next

End Sub

EXCEL VBA 如何遍历工作表

Sub test()

For Each c In ActiveSheet.Comments

c.Parent.Interior.ColorIndex = 3

Next

End Sub

vba程式设计如何遍历每一个选择的单元格？

Sub sdk()

i = 1

For Each sc In Selection

sc.Value = i

i = i + 1

Next

End Sub

vb用ado如何遍历excel中所有工作表

1、用VB　开启EXCEL　档案　

2、遍历sheets和cells

Dim xlApp As Excel.Application

Dim xlbook As Excel.Workbook

Dim xlsheet As Excel.Worksheet

Private Sub Command1_Click()

Set xlApp = New Excel.Application

xlApp.Visible = True

Set xlbook = xlApp.Workbooks.Open("d:\hao\1.xls")

For i = 1 To xlbook.Worksheets.Count

Set xlsheet = xlbook.Worksheets(i)

aa=xlsheet.Cells(1, 1)

Next

End Sub

EXCEL表格里有三个工作表，如何提取每一个表第一行到另一个工作表里

一次完成行吗？

在最末的工作表的A1输入

=INDIRECT("Sheet"&ROW()&"!"&CHAR(64+COLUMN())&1)

回车并向下填充至An（看你的工作表有多少）；

再选A1～An，一起向右填充。

excel表里怎样可以查到每一个工作表

首先按CTRL+Fd出“查询和替换”视窗，然后点窗口里的“选项”，将“范围”一项选为“工作簿”，这样就能在全部工作表中进行查找了。

VBA:如何遍历资料夹下面所有工作簿，然后每个工作簿新增一个新工作表

使用dir可以编列资料夹，一般结构是：

path="d:\xls\"filename=dir(path &"*.xls*")while filename<>""set wb=workbooks.open(path &filename)wb.sheets.addwb.savewb.closefilename=dirwend

如何把一个excel工作表分成两个工作表

---