ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

¥i¥H¼g¤@­ÓVBA±N¼Æ­È²M°£,¦Ó¤£²M°£¤½¦¡¶Ü??

¥i¥H¼g¤@­ÓVBA±N¼Æ­È²M°£,¦Ó¤£²M°£¤½¦¡¶Ü??

¥i¥H¼g¤@­ÓVBA±N¼Æ­È²M°£,¦Ó¤£²M°£¤½¦¡¶Ü??
ªþ¤WÀÉ®×
»¡©ú¹Ï¤ù
«D±`·PÁ¤j®a ªºÀ°¦£¸Ñµª
ÁÂÁÂ
»¡©ú¹Ï¤ù


§ÚªºÀÉ®×
[attach]26603[/attach]
¾Ç²ß ¾Ç²ß ¤@ª½¾Ç²ß

ªþ¤W¤p§ÌªºÀÉ®×

½Ð¤j®aÀ°¦£
ÁÂÁÂ
Book1.rar (6.15 KB)
¾Ç²ß ¾Ç²ß ¤@ª½¾Ç²ß

TOP

¦^´_ 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¤½¦¡

TOP

¦^´_  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

¾Ç²ß ¾Ç²ß ¤@ª½¾Ç²ß

TOP

¦^ÂÐpeter95
§A§âRange("A2999").Select§ï¦¨Range("B2999").Select¡A«~¶µ¦WºÙ´N·|¦s¦b

TOP

¦^´_ 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

¤W­zµ{¦¡½X§¹¥þ¨Ï¥Î ¥¨¶°¿ý»s¡A§A¥u­n¶}±Ò¥¨¶°¿ý»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¤½¦¡

TOP

·s¤â VBA ¤Jªù±`¨£°ÝÃD
http://forum.twbts.com/thread-10449-1-1.html
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

¦^´_ 6# ML089

½Ð°ÝM¤j
Ãö©óµ{¦¡¤¤ªº

    Selection.SpecialCells(xlCellTypeConstants, 23).Select

¬A©·¤¤ªº23¬OÔ£·N«ä

¾Ç²ß ¾Ç²ß ¤@ª½¾Ç²ß

TOP

¦^´_ 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¤½¦¡

TOP

        ÀR«ä¦Û¦b : µêªÅ¦³ºÉ¡D§ÚÄ@µL½a¡AµoÄ@®e©ö¦æÄ@Ãø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD