- 博客(7)
- 收藏
- 关注
原创 MySQL Workbench auto increment disabled
solution: set auto increment in table
2021-08-10 14:49:01 238
原创 MySQL workbench 80: could not acquire management access for administration
Error:could not acquire management access for administrationSolution:enable the parameter "Beta : Use UTF-8 for worldwide language support" in Control Panel > Region > Administrative > Change system locale
2021-08-10 14:44:01 4638 1
原创 save as filename (letter + number) + 1
Sub plusone() Dim fn As String: fn = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 5) Dim y As Integer: y = Right(fn, 6) [f2] = Left(fn, 5) & Left("0000000", Len("0000000") - Len(y...
2018-07-09 01:17:59 230
原创 VBA-另存为pdf
Sub 另存为pdf() ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\zgjxg\Desktop\" & Worksheets(2).Range("c4").Value, Quality:=xlQualityStandard, _ IncludeDocPro...
2018-06-30 12:26:27 5565
原创 VBA-save as xlsm
Sub saveasxlsm() ActiveWorkbook.saveas Filename:="C:\Users\zgjxg\Desktop\" & Worksheets(2).Range("B5") & "test.xlsm", _ FileFormat:=52, CreateBackup:=FalseEnd Sub
2018-06-30 12:26:12 1985
原创 VBA-rename file
Sub rename1() OldName = "C:\Users\zgjxg\Desktop\448.jpg": NewName = "C:\Users\zgjxg\Desktop\" & Worksheets(1).Range("B6").Value & "48.jpg" Name OldName As NewNameEnd Sub
2018-06-30 12:25:54 687
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人