解å³æ¹æ¡ï¼
为äºæ»¡è¶³æ´å¤å
·æAutoCADç»éªçå·¥ç¨å¸éæ±ï¼CAXAçµåå¾æ¿ä¹å¨éæ¥ç»åè¿ä¸¤ç§è½¯ä»¶çä¼ç¹ï¼å¨æä¾åæç«å³èåçåºç¡ä¸ï¼å¢å äºå½ä»¤è¡åè½ã
å¨èå空ç½å¤åå»å³é®ï¼å¨å¼¹åºçèåä¸éæ©ãå½ä»¤è¡ãï¼æä½çé¢ä¸æ¹å°±åºç°äºå½ä»¤è¡ï¼ä»¥ç´çº¿å½ä»¤ä¸ºä¾ï¼è¾å
¥å½ä»¤âlâï¼ä½¿ç¨âç©ºæ ¼âè¿è¡ç¡®è®¤ï¼å°±æ¿æ´»äºç´çº¿åè½ã
çé¢æä¸æ¾åºç°çå³ä¸ºâç«å³èåâï¼è¿ä¸ªèåå¯ä»¥ææ¾å°çé¢çä»»ä½ä¸ä¸ªä½ç½®ï¼å©ç¨ç»åé®ãALT+æ°åãå¯å¯¹ç«å³èåå个项è¿è¡å¿«éåæ¢ã
æä½ çæ°æ®ä»ä¹çå¤å¶åï¼åå°å¦ä¸ä¸ªExcelè¡¨æ ¼ä¸è¯è¯ï¼æ¯ä¸æ¯è¿ä¸ªæ件æ¯ç¼è¾æ¬¡æ°å¤ªå¤äºï¼é ææ件è¿å¤§ï¼EXCELæ件çä¿åæºå¶é æçã
1ãå
¬å¼å¤ªå¤ï¼å¦æå
¬å¼å¾æè§åå¯ä»¥ç¨VBA
2ãæ¡ä»¶æ ¼å¼ï¼å¦æ¯æ太å¤çæ¡ä»¶æ ¼å¼ä¹ä¼é ææ件è¿å¤§ã
3ã对象太å¤ï¼ä¾å¦æå
¥ç线æ¡ï¼å¾å½¢ï¼ææ¶å¨å¤å¶åå
æ ¼æ¶ä¼ä¸æ³¨æå°±å¤å¶åºå¾å¤çº¿æ¡ï¼å¹¶ä¸é常é¾ä»¥æ¥è§
4ãå¼ç¨é¾æ¥ï¼å¼ç¨å
¶å®å·¥ä½è¡¨æ¶ï¼å¦æå¼ç¨å¾å¤ªå¤ï¼ä¹ä¼ä½¿EXCELæå¼ï¼ä¿åè¿æ
¢ã
æåæ示 å¯æF5æ¥æ¾å¦å¯¹è±¡ãå
¬å¼ãåç
§ï¼çæ¯ä¸æ¯å¤ªå¤ï¼æ²¡æå¿
è¦çé½æ¸
é¤ã
å·¥ä½è¡¨ä¸å¦æåå¨å¤§éçç»å°å¾å½¢å¯¹è±¡ï¼é£ä¹æ件ä½ç§¯å°±å¯è½å¨ç¨æ·æ¯«ä¸ç¥æ
çæ
åµä¸æ´å¢ï¼è¿æ¯ä¸ç§å¾å¸¸è§çâExcel è¥èçâãå¯ä»¥ä½¿ç¨ä¸é¢ä¸¤ç§æ¹æ³æ¥æ£æ¥Excel å·¥ä½è¡¨æ¯å¦åå¨è¿ç§çç¶ã
ï¼1ï¼å¨å·¥ä½è¡¨ä¸æé®è°åºâå®ä½â对è¯æ¡ï¼åå»âå®ä½æ¡ä»¶âæé®ï¼å¨âå®ä½æ¡ä»¶â对è¯æ¡ä¸éæ©â对象â项ï¼åå»âç¡®å®âï¼å¦ä¸å¾æ示ãç¶åè§å¯å·¥ä½è¡¨ä¸æ¯å¦ä¼æ¾ç¤ºå¾å¤è¢«éå®ç对象ã
ï¼2ï¼ç¨VBA 对工ä½ç°¿ä¸ç对象è¿è¡è®¡æ°ï¼æ¥çå¨æ¯ä¸ªå·¥ä½è¡¨ä¸å®é
åå¨ç对象æ°éï¼å¦ææ¤æ°éä¸åçï¼å°±è¯´ææé®é¢ãææå¼VBA ç¼è¾å¨çªå£ï¼åå»èåâæå
¥âââ模åâæ¥æå
¥ä¸ä¸ªæ°æ¨¡åï¼é»è®¤æ
åµä¸ä¸ºâ模å1âï¼ç¶åå¨æ¨¡å1 ç代ç çªå£ä¸è¾å
¥ä»¥ä¸ä»£ç ï¼
Sub CountShapes()
Dim n As Double
Dim ws As Worksheet
Dim Content As String
For Each ws In Worksheets
n = ws.Shapes.Count
Content = Content & "å·¥ä½è¡¨" & ws.Name & " æ" & n & " 个对象" & vbCrLf
Next
MsgBox Content
End Sub
æåï¼æF5 é®æ¥è¿è¡è¿æ®µä»£ç ï¼å°±è½çå°æ£æ¥ç»æã
å¦æ确认å¨å·¥ä½è¡¨ä¸åå¨å¤§éç对象ï¼èç¨æ·å¹¶ä¸éè¦å®ä»¬ï¼å¯ä»¥ç¨ä¸¤ç§æ¹æ³æ¥å¤çï¼
ï¼1ï¼åæçå®ä½æ¹æ³ä¸ï¼å½å¯¹è±¡å
¨é¨å¤äºè¢«éæ©ç¶ææ¶æé®å é¤å®ä»¬å³å¯ã
ï¼2ï¼ä½¿ç¨å®å¨å¤ä¸ªå·¥ä½è¡¨ä¸æ´å 精确å°å é¤è¿äºæ ç¨å¯¹è±¡ãæ¯å¦ï¼å¯ä»¥æ ¹æ®éè¦åªå é¤é«åº¦å宽度é½å°äº14.25 ç£
ï¼0.5 cmï¼ç对象ã
åªå é¤æ´»å¨å·¥ä½è¡¨ä¸ç¹å®å¤§å°ç对象ç代ç 为ï¼
Sub DelShapes()
Dim sp As Shape, n
For Each sp In ActiveSheet.Shapes
If sp.Width < 14.25 And sp.Height < 14.25 Then
sp.Delete
n = n + 1
End If
Next sp
MsgBox "å
±å é¤äº" & n & "个对象"
End Sub
å é¤ææå·¥ä½è¡¨ä¸çç¹å®å¤§å°ç对象ç代ç 为ï¼
Sub DelAllShapes()
Dim ws As Worksheet
Dim sp As Shape
Dim n As Double
Dim Content As String
For Each ws In Worksheets
For Each sp In ws.Shapes
If sp.Width < 14.25 And sp.Height < 14.25 Then
sp.Delete
n = n + 1
End If
Next
Content = Content & "å·¥ä½è¡¨" & ws.Name & " å é¤äº" & n & " 个对象" & vbCrLf
n = 0
Next
MsgBox Content
End Sub
è¿äºä»¤äººçæç对象ç产çåå å¯è½æ以ä¸å 个ãä»ç½é¡µä¸å¤å¶å
容åç´æ¥ç²è´´å°å·¥ä½è¡¨ä¸ï¼è没æ使ç¨éæ©æ§ç²è´´ãæ æä¸ä½¿ç¨ç»å¾å·¥å
·æ çç´çº¿å·¥å
·æå
¶ä»ç»å¾å·¥å
·ï¼ä¸ç¥ä¸è§ä¸å¨å·¥ä½è¡¨ä¸æå
¥äºå°çç´çº¿æå
¶ä»å¾å½¢å¯¹è±¡ï¼ç±äºå°ºå¯¸å¾å°ï¼äºèç¼å ä¹æ æ³çå°ãèåï¼åéè¿åå
æ ¼çå¤å¶äº§çäºå¤§éçå°ç»å¾å¯¹è±¡ãå¨å·¥ä½è¡¨ä¸æå
¥äºå¾çæå
¶ä»ç»å¾å¯¹è±¡ï¼æä½ä¸åå°å
¶é«åº¦å®½åº¦è®¾ä¸º0 æå¾å°çå¼ï¼éè¿å¤å¶äº§çäºå¤§éç对象ã
å¨è¡æåçä½ç½®ä¸æå
¥äºç»å¾å¯¹è±¡ï¼å¯¹è±¡çå±æ§ä¸ºâ大å°ä½ç½®éåå
èåçï¼é»è®¤çï¼âï¼ç¶åéèè¡æåï¼æ设置è¡é«æå宽为å¾å°çå¼ï¼ä»è使æå
¥ç对象ä¸è½çå°ãå·¥ä½è¡¨ä¸ç对象设置äºä¸å¯è§å±æ§ï¼Visible=falseï¼ï¼æ对象ç线æ¡ä¸å¡«å
è²å设ä¸èæ¯è²ç¸åï¼ä½¿å¯¹è±¡æ æ³è¢«çå°ã
å·¥ä½è¡¨ä¸å¨è¾å¤§çåºåå
设置äºåå
æ ¼æ ¼å¼æè
æ¡ä»¶æ ¼å¼
ä»ç»è§å¯å·¥ä½è¡¨æ»å¨æ¡ï¼å¦ææ»æ å¾å°ï¼ä¸æå¨æ»æ åä¸å°åºï¼å¯ä»¥å°è¾¾å¾å¤§çè¡å·æåæ ï¼å¯æ¯å·¥ä½è¡¨ä¸å®é
使ç¨å°çåºåå¾å°ï¼è¿å°±è¯´æï¼æç¸å½å¤§ä¸ååºåå¯è½è¢«è®¾ç½®äºåå
æ ¼æ ¼å¼æè
æ¡ä»¶æ ¼å¼ï¼è¿äºå¹¶æ²¡æ被ç¨å°çåå
æ ¼ï¼è½å¯¹æ件ä½ç§¯äº§çå¾å¤§çå½±åã
解å³åæ³å¦ä¸ãåå»å°çæ£éè¦çè¡å·çä¸ä¸è¡ï¼æç»åé®ï¼éæ©ææçå¤ä½è¡ï¼ä¹å¯ä»¥å¨å称æ¡ä¸è¾å
¥è¡å·å¦2000â¶65536ï¼ï¼åå»èåâç¼è¾âââæ¸
é¤ââæ ¼å¼âï¼æå
¨é¨ï¼ãåçï¼ä¹å¯ä»¥æ¸
é¤å¤ä½åçæ ¼å¼ã
ææ¶ï¼ç¨æ·ç¡®å®éè¦ä¸ºå·¥ä½è¡¨ä¸ç©ºç½çåºåé¢è®¾æ ¼å¼ï¼ä»¥å¤å°æ¥å¢å æ°æ®ä¹ç¨ï¼ä½ä¸å®è¦ä½¿ç¨æ£ç¡®çæ¹æ³ï¼å¦åå°±ä¼é æ大éç¨ä¸å°çåºå被é¢è®¾äºæ ¼å¼ï¼å¾å¢æ件ä½ç§¯ã
å¦æéè¦å¨ä¸è¡æä¸åçå¾å¤§èå´è®¾ç½®ç»ä¸çåå
æ ¼æ ¼å¼ï¼å¯ä»¥éæ©æ´è¡ææ´å设置åå
æ ¼æ ¼å¼ï¼èä¸è¦åªéæ©è¡åçä¸é¨ååç¬è®¾ç½®æ ¼å¼ãåè
ä¸ä¼é ææ件ä½ç§¯èå¢çé®é¢ï¼èåè
ä¼å¢å æ件ä½ç§¯ãè¯éªä¸ä¸å¨ä¸¤ä¸ªExcel æ件éé¢åå«å¯¹A1â¶A65536 设置åå
æ ¼æ ¼å¼å对Aâ¶A 设置åå
æ ¼æ ¼å¼ï¼ç®çé½æ¯ä¸ºA åè®¾ç½®æ ¼å¼ï¼ä½æç»æ件çä½ç§¯ç¸å·®100 å以ä¸ã
温馨提示:答案为网友推荐,仅供参考