loading...

loading...

公告

全球搜索本站搜索

我的分类（专题）

日志更新

最新评论

留言板

链接

Blog信息

订阅 excelblogger

电子邮件：

访问此论坛

my e-mail:xhdsxfjy@163.com

留言板首页(签写留言)

悄悄话
jammy(游客)发表留言于2007-8-11 12:10:53

此留言为悄悄话。

个人主页 | 签写留言 | 查看 | 删除

问二个简单的VB问题
george(游客)发表留言于2007-8-8 0:57:24

问题1：
新装的vb6.0，但不知为啥下面的程序就是不显示在屏幕上？
public sub main()
debug.print 111; 222; 333
end sub

or

public sub main()
call msgbox("hi!")
end sub

问题2：
不知怎写一段可运行的程序，把下面的一个书中的例子用出来。
还有，如何把sheet1中的所有的ole对象名（包括路径）写到一个文件中去。同时，最好能显示在屏幕上。

书中的例子：

使用 oleobject 对象

使用 oleobjects(index)（其中 index 为对象名称或编号）可返回一个oleobject 对象。下列示例删除 sheet1 中的第一个 ole 对象。

worksheets("sheet1").oleobjects(1).delete

个人主页 | 签写留言 | 回复 | 删除

答复nli
fanjy发表留言于2007-7-31 19:06:46

您好!先选择想要变为红色的工作表单元格区域,然后在"条件格式"中选择公式,在右侧的文本框中输入=$a1="a",设置格式的图案为红色.

个人主页 | 签写留言 | 回复 | 删除

请大侠帮忙解答一下:)
nli(游客)发表留言于2007-7-31 15:46:35

我想实现这样一个功能：对于每一行，只要第一列的值为a，则整个一行的底色变成红色。请问大侠，如何实现？感激不尽……

个人主页 | 签写留言 | 回复 | 删除

悄悄话
Roy(游客)发表留言于2007-7-10 11:59:54

此留言为悄悄话。

个人主页 | 签写留言 | 查看 | 删除

能帮我看看这段代码的错误吗？
黑白照片(游客)发表留言于2007-6-22 3:26:00

for shid = 2 to shcount
for maprow = 5 to 13
for mapcol = 3 to 11
mapval = sheet1.cells(maprow, mapcol).value
'if mapval = "" then exit for
set pstfound = cells.find(what:="( " & mapval & ")", _
lookin:=xlformulas, lookat:=xlpart)
if not pstfound is nothing then pstfirstfound = pstfound.address
'do until pstfound is nothing or not pstcontinue
pstrow = pstfound.row
pstcol = pstfound.column
set prmfound = cells.find(what:=sheets(shid).name, _
after:=pstfound, lookin:=xlformulas, lookat:=xlpart)
prmrow = prmfound.row
set pstfound = cells.findnext(pstfound)
if pstfound.address = pstfirstfound then pstcontinue = false
'loop
next mapcol
next maprow
next shid

调试的时候发现，到了set pstfound = cells.findnext(pstfound)这一步的时候，pstfound的值就变成和prmfound一样的值了。这是怎么回事？顺便说一下，set prmfound这个是只要求查找一次的;shid是表的编号。
另外， 'if mapval = "" then exit for这句，我本来想实现的功能是
请赐教mapval值为空时mapcol进一位，但是我写的这句好像不能实现这个功能。
希望能得到你的赐教，我的邮箱是xumingjun@hhnec.com
谢谢！

以下为blog主人的回复：

不太明白您的意思.有示例最好了.

个人主页 | 签写留言 | 回复 | 删除

关于分类汇总
hqp24001发表留言于2007-5-17 19:42:30

我在第二次分类汇总后，第二级汇总数反而在最末一级的最后一条分类汇总数上面，怎么解决？（两次均勾选了“汇总数据显示在数据下方”）

个人主页 | 签写留言 | 回复 | 删除

我自己改的，帮忙看一下为什么出错？rich1113@163.com--谢谢！
rich1113(游客)发表留言于2007-5-9 12:58:40

dim temp$, temp1$, temp2$, index&, data as variant

temp = "'" & thisworkbook.path & "\[源数据表.xls]sheet1'!"
temp2 = temp & range("a" & 2, "b" & 9).address(, , xlr1c1)
temp2 = "vlookup(" & cells(9, 1) & "," & temp2 & "," & 2 & "," & "true" & ")"

cells(10, 2) = application.executeexcel4macro(temp2)

个人主页 | 签写留言 | 回复 | 删除

帮忙解决不打开工作薄引用的问题－－谢谢！
rich1113发表留言于2007-5-7 17:53:00

看了你的不打开工作薄取数据，受益很大。还有点问题。
如何在vlookup()中引用另一个未打开的工作薄中的数据？
我的邮箱是rich1113@163.com，希望前辈能发给我。
非常感谢！

个人主页 | 签写留言 | 回复 | 删除

关于TreeView的某些问题
hgj_xd发表留言于2007-5-3 10:21:16

fanjy，您好！你的关于treeview控件的介绍我全都下载下来了，也作了。可是在我的程序中却找不到某些属性和方法，如其checkboxes属性、hottracking属性！还有一段代码：label3.caption=node.fullpath在调试时也有问题，我还把您的相关代码复制过来了，可是还是不行！是怎么回事呢？万望指教，俺先在这里谢过了！

个人主页 | 签写留言 | 回复 | 删除

你太让我刮目相看了!
CJX(游客)发表留言于2007-4-28 16:42:20

你太让我刮目相看了!

个人主页 | 签写留言 | 回复 | 删除

请求大侠得帮助
kathy(游客)发表留言于2007-4-22 18:31:31

老师你好.现在小妹遇到一个excel程序得难题,希望老师给予指教,不胜感激!
谢谢
我写了一段程序希望实现如下功能:

我有3个工作簿,f1,f2,f3

每个工作簿就一张表:sheet1

在有的表的h2单元格会填充内容,有的就是0.

这段程序就是判断如果这个工作簿的工作表里h2单元格不为0,就保存并关闭这个工作簿,这个功能一下程序可以实现

sub tt()

for i =1 to 3

workbooks("f" & i &".xls").activate

if range("h2")<>"0" then

workbooks("f" & i &".xls").save

workbooks("f" & i &".xls").close false

end if

next i

end sub

运行了这个程序以后如果h2 不为0的工作簿都关闭了

我希望能把关闭了的工作簿删掉请问如何写程序呢我这样写会报错

sub tt()

for i =1 to 3

workbooks("f" & i &".xls").activate

if range("h2")<>"0" then

workbooks("f" & i &".xls").save

workbooks("f" & i &".xls").close false

kill workbooks("f" & i &".xls") <---这个地方会显示越界用workbooks("f" & i &".xls") .delete 也不行

end if

next i

end sub

希望大侠赐教!xiexie

以下为blog主人的回复：

已发至您的邮箱.

个人主页 | 签写留言 | 回复 | 删除

首页上一页下一页尾页页次：1/7页 12篇留言/页转到：

签写留言：

fanjy的博客