1.vbaå¦ä½ååºè´§å
2.别人用excel表格做的打打印代码管理系统怎么查看此管理系统的源码?
3.vba大神请教,strconv函数的印源应用,我从网页中提取的打打印代码苹果源码采集源码用strconv(xxx.respo
vbaå¦ä½ååºè´§å
åè´§å建议ç¨WORDæ好çï¼ç¶åç¨é®ä»¶å并åè½è·åEXCEL表ä¸æ°æ®ï¼å¯ä»¥è½»æ¾æ¹éè¾åºï¼ä¸é使ç¨VBAãä¸é¢æ¯å½ä½¿ç¨VBAæ¶
ç»åºä¸ä¸ªæé®çæºç :
1ãSubéé¢å计()
Dim i As Integer
Dim k As Integer
Dims
Fori = 6 To
lf Range("b" & i) <>"" And Range("c" & i)<> "" And Range("d" & i)<> "" Then
For k = 1 To Len(Range("d" & i) * Range("e" & i) * )
Cells(i, + k - Len(Range("d" & i)* Range("e" & i) *))= Mid(Range("d" & i)Range("e" & i) * ,k,1)
Next
End lf
s= S + Range("d" & i) * Range("e" & i)
Next
Range("f")= s
End Sub
2ãSubéæ°å¼å()
Range("b2:b3").ClearContents
Range("g2:g3")=""
Range("b") = ""
Range("b").ClearContents
Range("f").ClearContents
Range("b6:n").ClearContents
Range("f")="
Range("g2")= Now *
Range("g2").NumberFormatLocal = "G/éç¨æ ¼å¼"
Range("g3") = Date
End Sub
3ãSub**æ¤å()
Range("a1:m").PrintPreview
End Sub
别人用excel表格做的管理系统怎么查看此管理系统的源码?
新建excel文件,alt+F进入VBA编辑器,印源插入模块,打打印代码C 屏幕键盘 源码输入以下代码:Sub MoveProtect()
Dim FileName As String
FileName = Application.GetOpenFilename("Excel文件(*.xls & *.xla),印源智能外呼 源码*.xls;*.xla", , "VBA破解")
If FileName = CStr(False) Then
Exit Sub
Else
VBAPassword FileName, False ' 引用下面的自定义函数
End If
End Sub
Private Function VBAPassword(FileName As String, Optional Protect As Boolean = False)
If Dir(FileName) = "" Then
Exit Function
Else
FileCopy FileName, FileName & ".bak"
End If
Dim GetData As String * 5
Open FileName For Binary As #1
Dim CMGs As Long
Dim DPBo As Long
For i = 1 To LOF(1)
Get #1, i, GetData
If GetData = "CMG=""" Then CMGs = i
If GetData = "[Host" Then DPBo = i - 2: Exit For
Next
If CMGs = 0 Then
MsgBox "请先对VBA编码设置一个保护密码...", , "提示"
Exit Function
End If
If Protect = False Then
Dim St As String * 2
Dim s As String * 1 '取得一个0D0A十六进制字串
Get #1, CMGs - 2, St '取得一个十六制字串
Get #1, DPBo + , s '替换加密部份机码
For i = CMGs To DPBo Step 2
Put #1, i, St
Next '加入不配对符号
If (DPBo - CMGs) Mod 2 <> 0 Then
Put #1, DPBo + 1, s
End If
MsgBox "文件解密成功......", , "提示"
Else
Dim MMs As String * 5
MMs = "DPB="""
Put #1, CMGs, MMs
MsgBox "对文件特殊加密成功......", , "提示"
End If
Close #1
End Function
2. 运行上面的代码,选择你的打打印代码文件,移除密码成功后打开文件,印源按alt+F查看源码:
vba大神请教,打打印代码strconv函数的印源应用,我从网页中提取的打打印代码源码用strconv(xxx.respo
你这种写法的,只能用于采用GB_编码的印源网页。
如果源网页是打打印代码直播系统程序源码用UTF-8编码,这样转出来的印源中文必为乱码!
对于用UTF-8编码的打打印代码顶部假突破源码网页,你用 xxx..ResponseText 返回,直接得到正确内容。