甯哥敤鐨勩�佸甫璇︾粏娉ㄩ噴鐨?/p>
ExcelVBA
鍏ラ棬璇彞
line1 = my_sheet.Cells(1, 1).CurrentRegion.Rows.Count
line_count = [a65535].End(xlUp).Row
杞负鍗佸叚杩涘埗锛?/p>
HEX()
鍗佸叚杩涘埗杞负鍗佽繘鍒讹細
lac_id = Val("&H" & lac_id)
If lac_id < 0 Then lac_id = 65536 + lac_id
鍏繘鍒惰浆涓哄崄杩涘埗锛?/p>
lac_id = Val("&O" & lac_id)
瀵煎叆鏂囨湰鏂囦欢锛?/p>
ActiveWorkbook.Worksheets.Add
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;" & Filename, Destination:=Range("A1"))
.Refresh BackgroundQuery:=False
鏂囦欢鎷疯礉锛?/p>
FileCopy FileName, FileName & ".bak"
[VBA
璧锋
]
甯哥敤鐨勩�佸甫瑙ｉ噴鐨?/p>
VBA
鐭彞
[A65536].End(xlUp).Row
'A
鍒楁湯琛屽悜涓婄涓�涓湁鍊肩殑琛屾暟
[A1].End(xlDown).Row
'A
鍒楅琛屽悜涓嬬涓�涓湁鍊间箣琛屾暟
[IV1].End(xlToLeft).Column
'
绗竴琛屾湯鍒楀悜宸︾涓�鍒楁湁鏁板�间箣鍒楁暟銆?/p>
[A1].End(xlToRight).Column
'
绗竴琛岄鍒楀悜鍙虫湁杩炵画鍊肩殑鏈垪涔嬪垪鏁?/p>
Application.CommandBars("Standard").Controls(2).BeginGroup=True '
鍦ㄥ父鐢ㄥ伐鍏锋爮鐨勭浜屼釜鎸夐挳鍓嶆彃鍏ュ垎闅旂
Cells.WrapText = False
'
鍙栨秷鑷姩鎹㈣
If Len(Target) > 5 Then
'
濡傛灉褰撳墠鍗曞厓鏍间腑鐨勫瓧绗︽暟瓒呰繃
5
涓?/p>
,
鎵ц涓嬩竴琛?/p>
Target.WrapText = True
'
鑷姩鎹㈣
End If
[A1:B10].SpecialCells(xlCellTypeBlanks).Rows.Hidden = True
'
鏈夌┖鏍煎嵆闅愯棌琛?/p>
[A2].parent.name
'
杩斿洖娲诲姩鍗曞厓鏍肩殑宸ヤ綔琛ㄥ悕
[A2].parent.parent.name
'
杩斿洖娲诲姩鍗曞厓鏍肩殑宸ヤ綔绨垮悕
濡備笅浠ｇ爜鍙娇宸ヤ綔绨挎墦寮�鍚?/p>
30
绉?/p>
(
鎴栭棽缃?/p>
30
绉?/p>
)
鍐呬笉杈撳叆銆佷笉閲嶆柊閫夋嫨绛?/p>
,
鑷姩鍏抽棴宸ヤ綔绨?/p>
Private Sub Workbook_Open()
'
宸ヤ綔绨挎墦寮�浜嬩欢
tt
'
宸ヤ綔绨挎墦寮�鏃跺惎鍔?/p>
tt
杩囩▼
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'
宸ヤ綔琛ㄥ彉鍖栦簨浠?/p>
tt
'
宸ヤ綔琛ㄤ腑浠讳竴鍗曞厓鏍兼湁鍙樺寲鏃跺惎鍔?/p>
tt
杩囩▼
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) '
宸ヤ綔琛ㄩ�夋嫨鍙樺寲浜嬩欢
tt
'
宸ヤ綔琛ㄤ腑鍗曞厓鏍肩殑閫夋嫨鏈夊彉鍖栨椂鍚姩
tt
杩囩▼
End Sub
Sub tt()
'tt
杩囩▼
Dim myNow As Date, BL As Integer
'
瀹氫箟
myNow
涓烘棩鏈熷瀷
;
瀹氫箟
BL
涓洪暱鏁村瀷
myNow = Now
'
鎶婂綋鍓嶇殑鏃堕棿璧嬬粰鍙橀噺
myNow
Do
'
寮�濮嬪惊鐜鍙?/p>
Do
BL = Second(Now) - Second(myNow)
'
寰幆涓笉鏂鏌ュ彉閲?/p>
BL
鐨勫�?/p>
If BL = 30 Then GoTo Cl
'
褰?/p>
BL=30
鍗宠烦杞埌
CL
DoEvents
'
杞鎺у埗鏉?/p>
,
浠ヤ究
sheets
鍙户缁搷浣?/p>
Loop Until BL > 30
'
褰?/p>
BL>30
鍗宠烦鍑哄惊鐜?/p>
Exit Sub
Cl: