¥i¥H¼g¤@ÓVBA±N¼ÆȲM°£,¦Ó¤£²M°£¤½¦¡¶Ü??
- ©«¤l
- 49
- ¥DÃD
- 15
- ºëµØ
- 0
- ¿n¤À
- 92
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office2001
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-4-10
- ³Ì«áµn¿ý
- 2024-8-9
|
¥i¥H¼g¤@ÓVBA±N¼ÆȲM°£,¦Ó¤£²M°£¤½¦¡¶Ü??
¥i¥H¼g¤@ÓVBA±N¼ÆȲM°£,¦Ó¤£²M°£¤½¦¡¶Ü??
ªþ¤WÀÉ®×
»¡©ú¹Ï¤ù
«D±`·PÁ¤j®a ªºÀ°¦£¸Ñµª
ÁÂÁÂ
»¡©ú¹Ï¤ù
§ÚªºÀÉ®×
[attach]26603[/attach] |
|
¾Ç²ß ¾Ç²ß ¤@ª½¾Ç²ß
|
|
|
|
|
- ©«¤l
- 2025
- ¥DÃD
- 13
- ºëµØ
- 0
- ¿n¤À
- 2053
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN7
- ³nÅ骩¥»
- Office2007
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_¥«
- µù¥U®É¶¡
- 2011-3-2
- ³Ì«áµn¿ý
- 2024-3-14
|
¦^´_ 8# peter95
23¡A³o¬O¿ý»s¥¨¶°¥X¨Óªº¡A¥i¯à¬O«ü¤U¦C4ºØ«¬ºA³£¥]§t
XlSpecialCellsValue constants / Value
xlErrors /16
xlLogical / 4
xlNumbers / 1
xlTextValues / 2 |
|
{...} ªí¥Ü»Ýn¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡
|
|
|
|
|
- ©«¤l
- 49
- ¥DÃD
- 15
- ºëµØ
- 0
- ¿n¤À
- 92
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office2001
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-4-10
- ³Ì«áµn¿ý
- 2024-8-9
|
¦^´_ 6# ML089
½Ð°ÝM¤j
Ãö©óµ{¦¡¤¤ªº
Selection.SpecialCells(xlCellTypeConstants, 23).Select
¬A©·¤¤ªº23¬OÔ£·N«ä
|
|
¾Ç²ß ¾Ç²ß ¤@ª½¾Ç²ß
|
|
|
|
|
- ©«¤l
- 2025
- ¥DÃD
- 13
- ºëµØ
- 0
- ¿n¤À
- 2053
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN7
- ³nÅ骩¥»
- Office2007
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_¥«
- µù¥U®É¶¡
- 2011-3-2
- ³Ì«áµn¿ý
- 2024-3-14
|
¦^´_ 4# peter95
Sub Macro1()
'
' ¿ï¨ú½d³ò¡ACTRL+G¡A«ö ¯S®í¡A¿ï¾Ü ±`¼Æ¡A½T©w'
'
'Range("A2:D999").Select
'§ï¬°
Range("B2:D999").Select
Selection.SpecialCells(xlCellTypeConstants, 23).Select
Selection.ClearContents
End Sub
¤Wzµ{¦¡½X§¹¥þ¨Ï¥Î ¥¨¶°¿ý»s¡A§A¥un¶}±Ò¥¨¶°¿ý»s ¤â°Ê¾Þ§@¤@¹M ¦AÃö³¬¿ý»s¡A§A´N¥i¥H§Q¥Î¿ý»sªº¥¨¶°µ{¦¡½X¥h§ï¼g¡C
§A¥i¥H¸Õ¸Õ¤U¦C¾Þ§@¤Î¿ý»s¥¨¶°
' ¿ï¨ú½d³ò¡ACTRL+G¡A«ö ¯S®í¡A¿ï¾Ü ±`¼Æ¡A½T©w' |
|
{...} ªí¥Ü»Ýn¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡
|
|
|
|
|
- ©«¤l
- 26
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 57
- ÂI¦W
- 0
- §@·~¨t²Î
- windowsxp
- ³nÅ骩¥»
- office2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¹ü¤Æ
- µù¥U®É¶¡
- 2010-5-4
- ³Ì«áµn¿ý
- 2019-4-25
|
¦^ÂÐpeter95
§A§âRange("A2999").Select§ï¦¨Range("B2999").Select¡A«~¶µ¦WºÙ´N·|¦s¦b |
|
|
|
|
|
|
- ©«¤l
- 49
- ¥DÃD
- 15
- ºëµØ
- 0
- ¿n¤À
- 92
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office2001
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-4-10
- ³Ì«áµn¿ý
- 2024-8-9
|
¦^´_ peter95
Sub Macro1()
'
' ¿ï¨ú½d³ò¡ACTRL+G¡A«ö ¯S®í¡A¿ï¾Ü ±`¼Æ¡A½T©w
'
'
Range(" ...
ML089 µoªí©ó 2017-2-14 08:16
·PÁÂM¤j ´£¨Ñ
¦ý¤p§Ì¥i¯à¤£·|³]©w °õ¦æM¤jµ{¦¡«á
¤p§ÌªºAÄæ «~¶µ ªº¤å¦r ¤£¨£¤F
½Ð°Ý §Ú¥i¥H«ç»ò§ïµ½
·PÁ¤j®a
·PÁÂM¤j
|
|
¾Ç²ß ¾Ç²ß ¤@ª½¾Ç²ß
|
|
|
|
|
- ©«¤l
- 2025
- ¥DÃD
- 13
- ºëµØ
- 0
- ¿n¤À
- 2053
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN7
- ³nÅ骩¥»
- Office2007
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_¥«
- µù¥U®É¶¡
- 2011-3-2
- ³Ì«áµn¿ý
- 2024-3-14
|
¦^´_ 2# peter95
Sub Macro1()
'
' ¿ï¨ú½d³ò¡ACTRL+G¡A«ö ¯S®í¡A¿ï¾Ü ±`¼Æ¡A½T©w
'
'
Range("A2:D999").Select
Selection.SpecialCells(xlCellTypeConstants, 23).Select
Selection.ClearContents
End Sub |
|
{...} ªí¥Ü»Ýn¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡
|
|
|
|
|
- ©«¤l
- 49
- ¥DÃD
- 15
- ºëµØ
- 0
- ¿n¤À
- 92
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office2001
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-4-10
- ³Ì«áµn¿ý
- 2024-8-9
|
ªþ¤W¤p§ÌªºÀÉ®×
½Ð¤j®aÀ°¦£
ÁÂÁÂ
Book1.rar (6.15 KB)
|
|
¾Ç²ß ¾Ç²ß ¤@ª½¾Ç²ß
|
|
|
|
|