VBA代码宝-用户建议和反馈

jiangxiaoyun · 发表于 2021-1-23 10:52

每次重启电脑都需要重新激活代码宝，感觉好累啊。能不能给多点期限。

shengli82 · 发表于 2021-1-27 21:07

楼主,最版代码宝的代码排版有bug,本来用的好好的代码,点击自动缩进全乱了

zhhmok · 发表于 2021-1-28 16:11

本帖最后由 zhhmok 于 2021-1-28 16:13 编辑

for i=1 to 100 xxxx
next i
这种next i 写法，自动排版时，格式不对，只写next，格式正常

百佳 · 发表于 2021-2-26 23:22

这样的代码缩进算不算是个bug?还会影响下一个sub的位置

dj5121766 · 发表于 2021-2-27 23:30

新版的代码缩进的问题，比上个版本还难受

Dim K11 As Integer, K12 As Integer, K13 As Integer, K14 As Integer
Dim T10 As String, T11 As String, T12 As String, T13 As String, T14 As String, T15 As String
Dim T16 As String, T17 As String, T18 As String, T19 As String, T20 As String
Dim T21 As String, T22 As String, T23 As String
Dim T31 As String, T32 As String, T33 As String, T34 As String, T35 As String, T36 As String
Dim K71 As Integer, K72 As Integer
Dim i As Integer, j As Integer, L As Integer
Dim K_AwbRow As Integer, K_TwbRow As Integer
Dim T_End As String, T_Sht As String, T_TwbSht As String, T_Fgf As String
Dim U_1 As String, U_2 As String
Dim Arr As Variant, Brr As Variant, Crr As Variant
Dim Crr1() As String, Crr2() As String
Dim Dic As Object, Dic1 As Object
Set Dic = CreateObject("Scripting.Dictionary")
Set Dic1 = CreateObject("Scripting.Dictionary")
T_Sht = "基础信息": T_TwbSht = "序时过度" '第一次较固定常量赋值
U_1 = "R1": T_Fgf = "|": K71 = 30
With ThisWorkbook.Sheets(T_Sht)
Brr = .Range(U_1).CurrentRegion
K11 = LBound(Brr, 2) + 1
K12 = UBound(Brr, 2) - 1
For L = K12 To K11 Step -1
If L <> 3 Then
If L = K12 Then
Arr = ThisWorkbook.Sheets(T_TwbSht).Range("a1").CurrentRegion.Value
T10 = "【导出表-4列-"
K_AwbRow = Brr(2, 1) '导入表标题行 K_AwbRow
T11 = UBound(Arr, 2) '导出表最大列确定Crr1()最大列
ElseIf L = K11 Then
On Error Resume Next
U_1 = Environ("USERPROFILE") & "\Desktop"
ChDrive Left(U_1, 1)
ChDir U_1
If Err.Number <> 0 Then
U_1 = Environ("USERPROFILE") & "\桌面"
ChDrive Left(U_1, 1)
ChDir U_1
If Err.Number <> 0 Then
U_1 = ThisWorkbook.Path
ChDrive Left(U_1, 1)
ChDir U_1
End If
End If
On Error GoTo 0
Fil = Application.GetOpenFilename(filefilter:="Excel文件,*.xls*,所有文件,*.*")
If Fil = False Then
MsgBox "没有选择任何文件!"
Exit Sub
Else
t = Timer
Workbooks.Open Fil
Arr = ActiveSheet.Range("a1").CurrentRegion.Value '导出序时账导入数组arr
ActiveWorkbook.Close
End If
't = Timer '改代码使用
'Workbooks.Open "D:\工作文档\3-报表帐套\2020年决算\2020序时账.xls"
'Arr = ActiveSheet.Range("a1").CurrentRegion.Value
'ActiveWorkbook.Close
T10 = "【打开表-2列-"
K_AwbRow = Brr(1, 1) '导入表标题行 K_AwbRow
End If
For i = LBound(Arr, 2) To UBound(Arr, 2) Step 1
U_1 = Arr(K_AwbRow, i)
If Len(U_1) > 0 Then
If Not Dic.Exists(U_1) Then
Dic(U_1) = i
Else
For j = 2 To K71 Step 1
U_2 = U_1 & T_Fgf & j
If Not Dic.Exists(U_2) Then Dic(U_2) = i: Exit For
Next j
End If
End If
Next i
If L = K12 Then
K_TwbRow = UBound(Brr, 2)
ElseIf L = K11 Then
K_TwbRow = LBound(Brr, 2)
End If
K_AwbRow = 0: U_2 = "【Column】" '分隔符临时赋值 U_2
For i = LBound(Brr, 1) To UBound(Brr, 1) Step 1
U_1 = Brr(i, 3)
If InStr(1, U_1, U_2, vbTextCompare) > 0 Then
If K_AwbRow = 0 Then K_AwbRow = i
U_1 = Brr(i, L)
If Len(U_1) > 0 Then
If Dic.Exists(U_1) Then
If Brr(i, K_TwbRow) <> Dic(U_1) Then
T_End = Chr(10) & T10 & U_1 & "，修正为-" & Dic(U_1) & "-列】" & T_End
Brr(i, K_TwbRow) = Dic(U_1)
End If
Else
T_End = Chr(10) & T10 & U_1 & "，请核对名称！】" & T_End
End If
End If
End If
Next i
End If
Dic.RemoveAll
Next L
End With
End Sub

复制代码

百佳 · 发表于 2021-3-3 10:32

vba代码宝个人代码能不能提供网络存储功能?如果excelhome不能提供空间,可以储存在百度等网盘上,阿里云网盘更理想

yhuacn · 发表于 2021-3-3 13:56

老大求救，激活报错，怎么整

强哥000 · 发表于 2021-3-16 09:36

版主老师，章节不全，咋办？

C1插班生 · 发表于 2021-6-28 20:51

http://club.excelhome.net/thread-1588990-1-1.html 每次都要重新激活。——这个问题我也遇到了，希望可以解决一下！谢谢！

gaohongzhi · 发表于 2021-7-1 14:50

激活时输入公众微信号激活码后报错；C:\Users\24412\Desktop\激活报错.jpg

		自动登录	找回密码
密码			免费注册

VBA代码宝-用户建议和反馈

最新热点 /1