Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]怎么获取EXCEL表中批注为特定内容的某个单元格的值？


  共有2038人关注过本帖树形打印复制链接

主题：[求助]怎么获取EXCEL表中批注为特定内容的某个单元格的值？
帅哥哟，离线，有人找我吗？
noway143
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：92 积分：839 威望：0 精华：0 注册：2016/1/27 15:09:00 		[求助]怎么获取EXCEL表中批注为特定内容的某个单元格的值？  发帖心情 Post By：2017/8/24 15:06:00 [显示全部帖子]

附录Excel与VBA中有  ClearNotes 可以清除单元格的批注，请问怎么获取单元格的批注呀？

我需要在sheet中，根据批注的内容来定位并获取单元格的位置和值。
 回到顶部
帅哥哟，离线，有人找我吗？
noway143
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：92 积分：839 威望：0 精华：0 注册：2016/1/27 15:09:00 		  发帖心情 Post By：2017/8/24 15:10:00 [显示全部帖子]

我在一个EXCEL中根据一个批注获取某单元格的值，然后要向十几份EXCEL文件中写入这个值，在这十几份EXCEL文件中，接收值的单元格位置都不同，相同的是，他们的批注信息都一样

 回到顶部
帅哥哟，离线，有人找我吗？
noway143
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：92 积分：839 威望：0 精华：0 注册：2016/1/27 15:09:00 		  发帖心情 Post By：2017/8/24 15:24:00 [显示全部帖子]

谢谢，回复真快啊

 回到顶部
帅哥哟，离线，有人找我吗？
noway143
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：92 积分：839 威望：0 精华：0 注册：2016/1/27 15:09:00 		  发帖心情 Post By：2017/8/24 15:27:00 [显示全部帖子]

请问怎么根据批注找单元格呀？sheet没办法遍历吧？

 回到顶部
帅哥哟，离线，有人找我吗？
noway143
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：92 积分：839 威望：0 精华：0 注册：2016/1/27 15:09:00 		  发帖心情 Post By：2017/8/24 15:34:00 [显示全部帖子]

WorkSheet有没有Comments属性，可以直接WorkSheet.Comments("我是标注")来返回单元格坐标集合呀？

 回到顶部
帅哥哟，离线，有人找我吗？
noway143
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：92 积分：839 威望：0 精华：0 注册：2016/1/27 15:09:00 		  发帖心情 Post By：2017/8/28 14:29:00 [显示全部帖子]

老师，再请教一个问题：

怎么返回当前WorkSheet中焦点单元格的值？
 回到顶部
帅哥哟，离线，有人找我吗？
noway143
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：92 积分：839 威望：0 精华：0 注册：2016/1/27 15:09:00 		  发帖心情 Post By：2017/8/28 23:38:00 [显示全部帖子]

再请教个问题，我在EXCEL模板中给一些单元格加了标注，和单元格公式，build之后，报表中所有单元格都左移了一格，比如说，模板中单元格I29，到报表中就变成了H29，而单元格里面的公式正常没变，导致计算结果全对不上。

而且，模板中的标注，在生成的报表中全部丢失了。

求解，谢谢
 回到顶部
帅哥哟，离线，有人找我吗？
noway143
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：92 积分：839 威望：0 精华：0 注册：2016/1/27 15:09:00 		  发帖心情 Post By：2017/8/29 19:50:00 [显示全部帖子]

再请教个问题，

我想在WebBrowser控件加载的EXCEL文件中，获取tab键事件，在Excel响应tab键移到下一单元格之前，执行一段代码，向单元格中填入数据。这样，每次敲一下tab键，就得到一个数据，并移到下一格，不停的按tab键就可以，自动录完所有数据。

请问这个能实现吗？
 回到顶部
帅哥哟，离线，有人找我吗？
noway143
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：92 积分：839 威望：0 精华：0 注册：2016/1/27 15:09:00 		  发帖心情 Post By：2017/9/4 14:37:00 [显示全部帖子]

请帮我看看这个段代码，不知道哪里出错了：

Dim App As New MSExcel.Application
Dim Wb As MSExcel.Workbook = App.WorkBooks.Open("D:\test.xlsx")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
For Each c As object In ws.Comments
    If Tables("任务").Cols.Contains(c.text) Then
       c.parent.value = Tables("任务").Current(c.text)  
    End If
Next
app.quit


我测试，在循环中可以Output.show(c.text)输出所有批注内容没有问题
 回到顶部
帅哥哟，离线，有人找我吗？
noway143
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：92 积分：839 威望：0 精华：0 注册：2016/1/27 15:09:00 		  发帖心情 Post By：2017/9/5 2:18:00 [显示全部帖子]


[此贴子已经被作者于2017/9/5 2:24:10编辑过]
 回到顶部
总数 13 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 5 次数据查询