贴吧用户_Q12DaVK的个人资料 - RAT

贴吧用户_Q12DaVK 许昌追风hcl

关注数: 9 粉丝数: 3 发帖数: 811 关注贴吧数: 1

求助用VBA自动登录163邮箱自动输入账号、密码，登录163邮箱，谢谢啦。

回复一个昨晚还在，今天却不见了的帖子在1,2,3,4哪一行后面第5列输入1234，执行下面代码 Sub test() arr = Array(12, 13, 15, 23, 25, 35, 123, 124, 134, 234) Selection.AutoFill Destination:=Range("E1:E210"), Type:=xlFlashFill For i = 1 To 210 For j = 1 To 10 If InStr(Cells(i, 5), arr(j - 1)) <> 0 Then Cells(i, 5).EntireRow.Delete End If Next j Next i End Sub 循环的起始值可以根据实际情况修改一下

新手提问转载出处：http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fclub.excelhome.net%2Fthread-5888-1-1.html&urlrefer=f07de0cc1400534042bff5c1d3812b9e 摘录：那么，什么是正确而恰当的描述呢？ 1、准确的逻辑关系。我想，大部分提问者都是小学毕业了的，那么为什么还会问一些使高手如坠云中的问题呢？一个首要的原因是提问者不能以正确的逻辑关系来提问。好的逻辑关系：A、我想做什么（目标）；B、我提问之前做了什么（背景）；C、我提供的数据是什么（数据和文档）；D、我的描述是什么（问题）；E、我希望的结果是什么（结果示例）坏的逻辑关系：我要把表1转成表2（结果）；把A列的人名提取出来，根据B列的数据转换到EFG列（不知所云的描述）；具体见附件（不知道对错的数据）正确的逻辑关系可以使看到你的问题的高手能够迅速判断问题根源所在，进而判断你的提问是否正确，甚至可以知道你的要求是不是你的老板真正要的结果（不要怀疑这一点，高手们在论坛回答问题都已经好多年了） 2、使用没有歧义的词语、精确的描述和提供全面而精简的数据或代码我承认，做到这一点很难。但是如果你真的很希望你的问题会被高手看上并给予解答，那么还是拿出一点时间来认真分析你的问题，组织准确的词语描述和提供更加全面而精简的数据（或代码）吧。判断有没有歧义的一个好的办法是把你打算提交的问题给你刚上小学的孩子看，或者给你身边新参加工作的同事看，问问他们这段话的意思是什么。如果对方能在3分钟之内看懂，并且得到的反馈和你预想的是一样的，那么你就可以提交了。提问者常见的附件数据错误如下： 1、压根就没有附件。不要笑，30%以上的附件问题是这一条。 2、帖子里只有附件没有文字或图片描述。这样会失去一批懒得下载附件的人的关注。 3、附件数据过少，无法体现出全部可能的条件变化，甚至可能会让人得出错误的逻辑判断。 4、没有明确的规则，或者提问者自己也不知道规则是什么。 5、结果示例错误。让人惊讶的是，在新人提交的附件中，几乎50%以上都有这个问题。这也是引发多次追贴的一个常见原因。 6、提交的附件不能复现问题描述，甚至系统提示的错误压根就与提问者提交的问题描述无关。或者在问题描述之外，还有其他的不可忽略的错误。上述任何一个问题，都会导致高手不知道提问者到底想解决什么，进而放弃对问题的研究和回答。

刚学的，网抓北京时间 Public Sub 北京时间() Dim xmlhttp As Object Dim 时间 Set xmlhttp = CreateObject("msxml2.xmlhttp") xmlhttp.Open "get", "http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Ftime.tianqi.com%2F&urlrefer=3b558ba07eab28549f9e609d72516592", False xmlhttp.send Do While xmlhttp.readystate <> 4 DoEvents Loop Dim StrResponse StrResponse = StrConv(xmlhttp.responsebody, vbUnicode) With CreateObject("VBScript.RegExp") .Global = False .Pattern = "[0-9]{2}\s[A-Z][a-z][a-z]\s[0-9]{4}\s[0-9]{2}.[0-9]{2}.[0-9]{2}" If .test(StrResponse) Then 时间 = .Execute(StrResponse)(0) Else 时间 = "" End If Cells(1, 1) = 时间 End With End Sub

其实我学习VBA，只是爱好如题

刚学的，分享一下提取汉字

本想交流共成长，怎么上来只求代码事情千变万化，要到代码只能解决眼前一件事儿。有的复制的代码还残缺不全。有的提出的问题表述不清楚。

指定打印机打印把代码输入后，忙时点击打印，不会出现针式、喷墨不想用的打印机，却启动打印了 Sub 指定打印机打印() ActiveWorkbook.Save ActiveSheet.PageSetup.PrintArea = "$A$1:$Z$10" ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True,ActivePrinter:="SEALAND 24Pin Dot-Matrix Printer (副本 1)" End Sub

测试打印机名称如果电脑连接多台打印机，指定打印机打印时，需要 Sub 测试打印机名称() a= InputBox("打印机名字", "侦测", Application.ActivePrinter) End Sub

回复这么多呀

1 下一页