查看: 1996|回复: 4
Selection.AutoFilter Field:=1改成不等于0的时候怎么修改
阅读权限30
在线时间 小时
本帖最后由 feiaoli 于
19:40 编辑
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
& &Selection.AutoFilter Field:=1, Criteria1:=&&&0&, Operator:=xlAnd
以上红色的代码Selection.AutoFilter Field:=1改成不等于0的时候怎么修改
阅读权限30
在线时间 小时
wpxxsyzx 发表于
以哪一个字段（列）作为筛选的基准（从列表左侧开始，最左侧的字段为第一个字段）
谢谢指导！！！！！！！！！
阅读权限30
在线时间 小时
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
&&If Target.Column = 1 Then
& & Selection.AutoFilter Field:=1, Criteria1:=&&0&, Operator:=xlAnd
&&End If
End Sub
复制代码
阅读权限95
在线时间 小时
以哪一个字段（列）作为筛选的基准（从列表左侧开始，最左侧的字段为第一个字段）
阅读权限30
在线时间 小时
<font color="#76386 发表于
谢谢，不知道Selection.AutoFilter Field:=1是什么意思？
自己录制的代码、、、、、、、
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师EXCEL 批量生成超连接，超连接是由表2序号跳转到表1相应序号。请问如何实现？可以使用VBA也可以使用公式~_百度知道
EXCEL 批量生成超连接，超连接是由表2序号跳转到表1相应序号。请问如何实现？可以使用VBA也可以使用公式~
提问者采纳
A&quot,&quot!A1=HYPERLINK(Sheet2;&ROW(A1))输入上面的公式，下拉
提问者评价
其他类似问题
为您推荐：
excel的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁从1到N改成VBA输出_百度知道
从1到N改成VBA输出
printf(&&#92;n&i&printf(&if (has==m){printf(&quot,m;=n+has+1;f(0;return,0;););stdio，这N个数;i+m&}void f(,n),i++)printf(&,int n){int a[10],int n);m，从中选取M个出来,int has,&n,int m,a[i]),a[0]);;%d &return 0;%d%d&i++){a[has]=i;请输入组合上下标中间用空格隔开 &quot,m，请输出每一种组合情况组合结果从单元格A1开始输出#include &lt,&m);scanf(&%d &quot.h&}for (i=start+1,m;f(i,has+1将这个C语言改写成VBA从1到N;int main(){void f(for (i=1,n)
提问者采纳
&nbsp,&&I&&&&&k&&&n&&&Integer)&Sub&SubSub&=&Exit&&If&&&NextEnd&&&i&-&As&1&&nbsp,&has&&&&As&a(has)&&&a(i&-&&&As&&&Next&ByVal&As&m&m,&&&&n&0;LongSub&=&&&has&&For&InputBox(&&&=&To&&InputBox(&&+&1&main()&End&has&m&As&&Integer&&&&&&nbsp,&+&1&If&has&&&I&&&请输入组合下标n&n&If&Then&f&&k&&&=&=&&For&&i&start&&0;I)&nbsp,&请输入组合上标m&&=&&&1;m&As&i&n&nbsp,&&I&k&&m&nbsp,&Integer&&m&i)&&&As&&ByVal&&&m&&&&&To&&=&ByVal&&+&n&&Dim&1&&nbsp,&m,&+&Dim&&&&nbsp,&nbsp,&nbsp,&As&start&&)&+&&&=&nEnd&i;1)&i&f(ByVal&As&&Cells(kDim&a(10)&nbsp
提问者评价
其他类似问题
为您推荐：
vba的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁查看: 4900|回复: 22
一直使用的WEB查询突然失效，请指教怎样改成VBA查询
阅读权限20
在线时间 小时
如题，一直都使用WEB查询，但今天突然不成了，估计是网站拒绝引用了，每次按刷新，都回复“已建立连接，但数据无效”如附件内图示。
网址如下：“”
请教各位一下：怎样能从新引用数据？是不是用VBA就可以解决问题？劳烦详细一点，我不太熟VBA，是新手。
谢谢指教！
14:33 上传
点击文件名下载附件
30.94 KB, 下载次数: 34
阅读权限20
在线时间 小时
我已经差不多全看了以前有关的WEB查询的帖子，也动手试了很很多遍，还是未搞懂，请问有网友能发个内码给我吗？
我把问题简化一下，如何能用VBA代替插入WEB查询，将所需网页整个下在档案里（其他的步骤我再慢慢学习，只能先学这个，一点点来）
阅读权限20
在线时间 小时
请大家多多帮忙！
阅读权限20
在线时间 小时
我一时之间还未能跟上，希望有网友能指点一下，给个示范，谢谢！
阅读权限30
在线时间 小时
没有禁止啊，我这里都可以更新数据哟！
阅读权限20
在线时间 小时
首先谢谢你的关注！
你是说用EXCEL的WEB查询，能更新这个网址吗？
我刚刚再试了一次，还是不行！
你能说说你是怎样做的吗？
阅读权限20
在线时间 小时
请求大家关注一下，我的投资档案已经停止更新两三天了。。。
请大家试试我的附件，里面的WEB查询是“已建立连接，但数据无效”的。
以前，香港四个免费的实时报价网站就只有这个可用WEB查询。
其他的比如下面这个也是不能下数据的：
阅读权限70
在线时间 小时
电脑问题，如果WEB都停止更新。即便用VBA也没获取不到数据的
阅读权限30
在线时间 小时
我这里都可以更新数据哟
& & & & & & & & & & & & & & & & & & & & & & & &
& & & & & & & & & & & & & & & & & & & & & & & &
上證 升2,533 +4& & & & & & & & & & & & & & & & & & & & & & & &
& & & & & & & & & & & & & & & & & & & & & & & &
17& & & & 24& & & & 更多]& & & & 更新時間為& & & & & & 更新即時報價& & & & & & & &
& & & & & & & & & & & & (最新業績公布) 21/07/& & & & & & & & & & & & & &
& & & & & & & & & & & & & & & & & & & & & & & &
& & & & & & & & & & & & & & & & & & & & & & & &
1個月最高& & & & 市值& & & & & & & & & & & & & & & & & & & &
10.46& & & & 5.102B& & & & & & & & & & & & & & & & & & & &
1個月最低& & & & 沽空 (21/07)& & & & & & & & & & & & & & & & & & & &
8.92& & & & 66,720& & & & & & & & & & & & & & & & & & & &
& & & & & & & & & & & & & & & & & & & & & & & &
& & & & 4.562M& & & & & & & & & & & & 10天平均值& & & & 9.578& & & &
& & & & & & & & & & & & & & & & & & & & & & & &
& & & & 2000& & & & & & & & & & & & 20天平均值& & & & 9.622& & & &
& & & & & & & & & & & & & & & & & & & & & & & &
& & & & HKD& & & & & & & & & & & & 50天平均值& & & & 9.03& & & &
& & & & & & & & & & & & & & & & & & & & & & & &
& & & & 0.020/0.020& & & & & & & & & & & & 52周最高& & & & 10.46& & & &
& & & & & & & & & & & & & & & & & & & & & & & &
& & & & / 0.000& & & & & & & & & & & & 52周最低& & & & 3.23& & & &
& & & & & & & & & & & & & & & & & & & & & & & &
& & & & 19.893& & & & & & & & & & & & 預期市盈率
阅读权限30
在线时间 小时
1105好象不行
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师改成VBA函数与圆下来_百度知道
改成VBA函数与圆下来
);y=0时，n=30被留下来,m; &quot.h&+& n&
else printf(&);&#47;对于第一个y坐标进行计算并在一行中打印图形 {
m=30+(int)(2*sqrt(100-y*y)),n;
&#47;=0) n=30+(int)(2*sqrt(y));&#47;=60;void main(){
else n=-1;=-10;&#92;);x&
printf(& &#47;x++)
if(x==m||x==60-m) printf(&);&#47;y&gt，会影响图形;#include &lt.h&gt，故做此处理
for(x=0;根据圆的对称性
else if(x==n||x==60-n) printf(&*& for(y=10;
if ((int)y&y--)
&#47改成VBA函数与圆下来#include &lt
提问者采纳
y&;&nbsp.Print&&;&&nbspSub&To&&&&&x&&&30&&Step&&For&&&&&&&main()&&&nbsp.Print&&=&Then&&30&&&&&n%&&Else&y=0时;&Dim&&Sqr(y)&-1&&-10&Or&&&*&&&-1&&&&If&&&&&&2&&n&(x&End&&&&&&&&nbsp.Print&Then&Else&m&&nbsp，故做此处理&y#;&&m)&&&nbsp,&&Debug,&&&*&&#39;&&D&x%;&=&Then&&&#39;Next&NextEnd&&&&&x&&Or&=&&&&&;*&n&+&&&&&0&=&nbsp,&&&m&&&&&&m%;&&&=&=&&根据圆的对称性&&-&y&&&&&&&&&x&&+&nbsp，n=30被留下来;&n)&&For&&&&10&&&&#39;To&&=&y)&&对于第一个y坐标进行计算并在一行中打印图形&&&&If&&&&0&&60&&&2&If&&&&&D&&&&&&Sqr(100&&&&-&*&&&&nbsp.Print&-&nbsp，会影响图形;&y&&&&&&n&&&&=&&&&=&&&&&60&&&+&ElseIf&60&=&&&&&&If&(x&&D&End&&&nbsp
提问者评价
来自团队：
其他类似问题
&#92.Text = Left(ifilename.Text = Left(ifilename：TextBox1;&#92; ThenMsgBox &quot, &没有选择文件。Private Sub TextBox1_MouseDown(ByVal Button As Integer，但不要重复提问。修改的是这一句代码, ByVal Shift As Integer, InStrRev(ifilename, &&quot, ByVal Y As Single)ifilename = Application, ByVal X As Single.GetOpenFilenameIf ifilename = &ElseTextBox1，请不要重复提问!&))End IfEnd Sub有问题可以追问我不是已经回答过你了吗;&False&quot, InStrRev(ifilename
来自团队：
为您推荐：
vba的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁