|贴子

2023-02-08
AIjimjimi吧
https://github.com/openai
2018-10-08
input html5jimjimi吧
Private Declare Sub keybd_event Lib "user32" (ByVal bvk As Byte, _ ByV...
2018-09-11
inputweb1jimjimi吧
Sub inputweb1() 'On Error Resume Next Dim URL1 As String Dim URLLEN Dim i, j...
2017-03-30
printscreenjimjimi吧
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long...
2016-12-19
decaddrjimjimi吧
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Dim N As Lo...
2016-12-18
删贴时间 2016-12-15 21:37:50贴吧意见反馈吧
什么叫删贴原因暂无?请问判定条件是什么？谁负责编写条件的？请给我一个合理解释
• 
2016-12-15
DECEASED ADDRESSjimjimi吧
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Dim N As Lo...
2016-10-11
GetClipTextjimjimi吧
Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Lo...
2016-09-06
请问用VBA如何读取修改IE11中frame里面的document？vba吧
求大神解答~
2016-08-03
templatejimjimi吧
XXXX VVVV=A4&A5 ZZZZ=A XXXX VVVV=G1&H1&I1&J1&K1 =IF(B XXXX =...
2016-07-05
CEjimjimi吧
Sub wordmail2() On Error Resume Next Dim FilePath As String Dim wdobj As Object ...
2016-06-15
deceasedjimjimi吧
=IF(F1="","",COUNTA($F$1:F1)-COUNTBLANK($F$1:F1)) =IF(B1=&qu...
2016-05-11
testjimjimi吧
Function FindWin(ByVal strRef As String) As Object '找寻已打开的、以strRef...
2016-04-25
excel to wordjimjimi吧
Sub GenDocfromExcel() 'excel控制word,生成新文件，插入图片和文件名，保存 �...
2016-04-01
countcolorjimjimi吧
Function SumColor(col As Range, sumrange As Range) As Integer Dim icell As Range...
2016-03-15
监护令jimjimi吧
http://www.swd.gov.hk/sc/index/site_pubsvc/page_medical/sub_guar 精神上无行为能...
2016-02-22
web inputjimjimi吧
Sub test4() On Error GoTo Errorline Dim mShellwindows As New ShellWindows Dim IE...
2016-01-06
定时锁表jimjimi吧
Private Sub Workbook_Open() Dim date1, date2 date1 = #1/8/2016# '输入#yyyy-m...
2015-11-17
count stmtjimjimi吧
=IF(DAY(B1)<A1,12-MONTH(B1)+1,12-MONTH(B1))+IF(DAY(C1)>A1,MONTH(C1)+1,MONT...
2015-06-06
debit note 生成EXCELjimjimi吧
Sub 矩形1_Click() On Error Resume Next Application.DisplayAlerts = False Dim i, ...