Skip navigation.

雪城的BLOG

谁能书阁下,白首太玄经。

Posts tagged with "EXCEL"

xcSoft.-.xc.Excel2003.Compare.Tools.v1.0.freeware

, , , ...

xc.Excel2003.Compare.Tools.v1.0.freeware
-------------------------------------------------------------
Type: freeware/OpenSource

A best Excel files compare tools.

Compare Excel2003 file fast,support worksheet and whole workbook.

* compare Value/formula.
* highlight
* jump to sheets
...........

OpenSource.

xc.Excel2003.Compare.Tools.v1.0.freeware.rar


雪城.Excel2003.比较工具.v1.0

, , ,

雪城.Excel2003.比较工具.v1.0
-------------------------------------------------------------
类 型 : 免费/开源/自由软件
编写语言 : Excel 2003 VBA
作 者 : jfxwc(雪城) mailto: jfxwc@163.com
更新时间 : 2007-07-14
文件大小 : 60.8 KB
md5 值 : 7B1A8F612F0EBEB559AC533027AA1A0F
-------------------------------------------------------------




简介
-------------------------------------------------------------
一款不可多得的 Excel 全文档比较工具,自由软件,最棒的是
提供了全文档比较功能。
现在市面上绝大多数同类的商业软件也仅提
供了单张工作表比较。
它可以比较 2 个 Excel 工作簿/工作表之间每一个单元格的差
异,支持值 或 公式 2 种方式,提供易于理解和使用的报告。并在
统计结果和原数据来源之间快速切换。
更令人高兴的是,它非常易于使用,即使是普通的财务 mm 也可
也很快掌握。

优点
-------------------------------------------------------------
* 无任何恶意 / 广告代码。
* 可比较整个文档。
* 速度快,不亚于同类商业软件。
* 提供 4 种颜色加亮原数据。
* 提供 值 / 公式 比较方式。
* 快速的从统计报表中定位原数据。
* 体积小,仅100多K。
* 易于使用,界面简洁。
* 绿色便携,纯 VBA 编写,只需 Excel2003 即可。
* 开源,可按需要进一步定制您的专用比较工具。
* 自由/免费,无需支付任何费用。

其他说明
-------------------------------------------------------------
为提供更方便的功能,特意使用纯 VBA 编写。但是请不要因为它
是一个 xls 文档就主观的认为不如 exe 型的软件。VBA 方式比起 exe
方式有更多的优点
:直接调用 Excel 内核、效率更高、体积小、无须
安装。退出软件后不另外占用 Excel 资源。
使用 exe 型最主要的原因是防止其他人查看代码。但是本软件是
开源的,没有这个顾虑,因此直接采用 VBA 方式。

如果您使用时发现有 bug 或者好的建议,请发一封 email 给作者。

其他界面
-------------------------------------------------------------
工具条




差异比较报表




下载
-------------------------------------------------------------
雪城.Excel2003 .比较工具.v1.0.rar





Excel 宏读取未打开的文档中的数据

GetValue函数,需要以下四个变量
path: 未打开的Excel文件的路径 (e.g., "d:\test")
file: 文件名(e.g., "test.xls")
sheet: 工作表的名称 (e.g., "Sheet1")
ref: 引用的单元格 (e.g., "C4")
'*********函数如下
Private Function GetValue(path, file, sheet, ref)
' 从未打开的Excel文件中检索数据
Dim arg As String
' 确保该文件存在
If Right(path, 1) <> "\" Then path = path & "\"
If Dir(path & file) = "" Then
GetValue = "File Not Found"
Exit Function
End If
' 创建变量
arg = "'" & path & "[" & file & "]" & sheet & "'!" & _
Range(ref).Range("A1").Address(, , xlR1C1)
' 执行XLM 宏
GetValue = ExecuteExcel4Macro(arg)
End Function

使用该函数:
将该语句复制到VBA的模块中,然后,在适当的语句中调用该函数. 下面的例子显示D:\test 下的文件test.xls 的Sheet1中的单元格”A1”的内容.
Sub TestGetValue()
p = "d:\test"
f = "test.xls"
s = "Sheet1"
a = "A1"
MsgBox GetValue(p, f, s, a)
End Sub

下面还有一个例子.这个语句从一个未打开的文件中读取1200个数值(100行12列),并将结果填到当前工作表中.
Sub TestGetValue2()
p = "d:\test "
f = "test.xls"
s = "Sheet1"
Application.ScreenUpdating = False
For r = 1 To 100
For c = 1 To 12
a = Cells(r, c).Address
Cells(r, c) = GetValue(p, f, s, a)
Next c
Next r
Application.ScreenUpdating = True
End Sub
说明: 如果工作簿处于隐藏状态,或者工作表是图表工作表,将会报错.

EXCEL 宏显示所有 faceID



显示全部的 faceID ,呵呵,需要的时候还是很有用的。虽然有一个插件可以显示,但是又怎比得上源代码呢?

-----------------------------------------------------
Sub ShowFaceIDs()
Dim NewToolbar As CommandBar
Dim NewButton As CommandBarButton
Dim i As Integer, IDStart As Integer, IDStop As Integer

' Delete existing FaceIds toolbar if it exists
On Error Resume Next
Application.CommandBars("FaceIds").Delete
On Error GoTo 0

' Add an empty toolbar
Set NewToolbar = Application.CommandBars.Add _
(Name:="FaceIds", temporary:=True)
NewToolbar.Visible = True

' Change the following values to see different FaceIDs
IDStart = 1
IDStop = 800

For i = IDStart To IDStop
Set NewButton = NewToolbar.Controls.Add _
(Type:=msoControlButton, ID:=2950)
NewButton.FaceId = i
NewButton.Caption = "FaceID = " & i
Next i
NewToolbar.Width = 600
End Sub
------------------------------------------------------------

EXCEL 引用单元格的数据作为公式的一部份

引用问题

我在excel中想实现这么一个功能,如单元格D12有一个数据是4,现在我想引用A4的数据,但4是由D12提供的,即如何实现A4=A(D12)。也就是,在Excel中,A7单元,能否实现把后面的数字用算式来代替,如A(3+4),或者是单元格的嵌套,A(D12),恳请高手解答。

解答:①=indirect("a"&d12)
②我的想法:借一个单元格如B4用,键入="A"&D12 在需引用的单元格键入=INDIRECT(B4)
即可,第二个:C4是3,C5是4 B4="A“&C4+C5 ,同①。
December 2009
S M T W T F S
November 2009January 2010
1 2 3 4 5
6 7 8 9 10 11 12
13 14 15 16 17 18 19
20 21 22 23 24 25 26
27 28 29 30 31