µù¥U
µn¿ý
º¶
½×¾Âª©³W
¸T¤î¦Cªí
»¡©ú
¦a¹Ï
¼Æ¦ì®Ñ»
¨p¤H®ø®§ (0)
¤½¦@®ø®§ (0)
½×¾Â¥ô°È (0)
¨t²Î®ø®§ (0)
¦n¤Í®ø®§ (0)
©«¤l®ø®§ (0)
³Â»¶®a±Ú°Q½×ª©ª©
»
Excelµ{¦¡°Ï
» ½Ð±Ð½d³òªº³]©wvba
ªð¦^¦Cªí
¤U¤@¥DÃD
¤W¤@¥DÃD
µo©«
[µo°Ý]
½Ð±Ð½d³òªº³]©wvba
sto3688
µoµu®ø®§
¥[¬°¦n¤Í
sto3688
·í«eÂ÷½u
UID
10471
©«¤l
14
¥DÃD
5
ºëµØ
0
¿n¤À
23
ª÷¿ú
23
ÂI¦W
0
§@·~¨t²Î
win 7
³nÅ骩¥»
office2010
¾\ŪÅv
10
©Ê§O
¨k
¦b½u®É¶¡
8 ¤p®É
µù¥U®É¶¡
2012-8-10
³Ì«áµn¿ý
2014-2-28
¤p¾Ç¥Í
©«¤l
14
¥DÃD
5
ºëµØ
0
¿n¤À
23
ÂI¦W
0
§@·~¨t²Î
win 7
³nÅ骩¥»
office2010
¾\ŪÅv
10
©Ê§O
¨k
µù¥U®É¶¡
2012-8-10
³Ì«áµn¿ý
2014-2-28
1
#
¸õÂà¨ì
»
˧Ǭݩ«
¥´¦L
¦rÅé¤j¤p:
t
T
µoªí©ó 2013-2-12 10:57
|
¥u¬Ý¸Ó§@ªÌ
[µo°Ý]
½Ð±Ð½d³òªº³]©wvba
¥H¤U¬Ovba½X
' ¥¨¶°1 ¥¨¶°
'
'
Range("F2:BA2").Select
Selection.Copy
End Sub
·Q½Ð±Ð¦bf2:ba2½d³ò¤º,·Q²¤¹L¸ê®Æ¬O---ªºÀx¦s®æ,¸Ó¥[¤J¤°»òµ{¦¡½X?
·PÁ°ª¤â«üÂI,ÁÂÁÂ~
¼Ó¥D¼ö©«
½Ð±ÐÃö©óvba¶i¶¥¿z¿ï
·Q½Ð±Ð¤@Ӯɶ¡°Ï¶¡ªº°ÝÃD
½Ð±Ð¨âÓif¨ç¼Æ¦X¨Ö
·Q½Ð±Ð¦p¦óÅã¥Ü¦U«~¶µ¨ì´Á¤Ñ¼Æ«e3¦W¤Î«á3¦W
¦¬ÂÃ
¤À¨É
boyao
µoµu®ø®§
¥[¬°¦n¤Í
boyao
·í«eÂ÷½u
UID
9968
©«¤l
57
¥DÃD
10
ºëµØ
0
¿n¤À
104
ª÷¿ú
104
ÂI¦W
0
§@·~¨t²Î
WINXP
³nÅ骩¥»
OFFICE 2003
¾\ŪÅv
20
©Ê§O
¨k
¨Ó¦Û
taiwan
¦b½u®É¶¡
165 ¤p®É
µù¥U®É¶¡
2012-7-5
³Ì«áµn¿ý
2017-2-18
¤¤¾Ç¥Í
©«¤l
57
¥DÃD
10
ºëµØ
0
¿n¤À
104
ÂI¦W
0
§@·~¨t²Î
WINXP
³nÅ骩¥»
OFFICE 2003
¾\ŪÅv
20
©Ê§O
¨k
¨Ó¦Û
taiwan
µù¥U®É¶¡
2012-7-5
³Ì«áµn¿ý
2017-2-18
2
#
µoªí©ó 2013-2-13 14:52
|
¥u¬Ý¸Ó§@ªÌ
¦^´_
1#
sto3688
Range("F2:H2,K2:BA2").Select
¦V¤W¦¡ I2.J2 ´N¬O²¤¹Lªº
boyao
TOP
sto3688
µoµu®ø®§
¥[¬°¦n¤Í
sto3688
·í«eÂ÷½u
UID
10471
©«¤l
14
¥DÃD
5
ºëµØ
0
¿n¤À
23
ª÷¿ú
23
ÂI¦W
0
§@·~¨t²Î
win 7
³nÅ骩¥»
office2010
¾\ŪÅv
10
©Ê§O
¨k
¦b½u®É¶¡
8 ¤p®É
µù¥U®É¶¡
2012-8-10
³Ì«áµn¿ý
2014-2-28
¤p¾Ç¥Í
©«¤l
14
¥DÃD
5
ºëµØ
0
¿n¤À
23
ÂI¦W
0
§@·~¨t²Î
win 7
³nÅ骩¥»
office2010
¾\ŪÅv
10
©Ê§O
¨k
µù¥U®É¶¡
2012-8-10
³Ì«áµn¿ý
2014-2-28
3
#
µoªí©ó 2013-2-13 15:27
|
¥u¬Ý¸Ó§@ªÌ
·PÁ¦^´_,¥i¯à§Úªí¹F¤£¨Î,³Q»~¸Ñ·N«ä¤F
¤U¸ü
(9.04 KB)
2013-2-13 15:17
§Ú¬O·Q¥Îvba Range("i2:n2").Select ³o¿ï¨ú½d³ò¤º,¯à¦Û°Ê±Æ°£¸ê®Æ¬°"---"ªºÀx¦s®æ,¤]´N¬O¦p¤W¹Ï¤¤
Åý vba ¥u¿ï¾Ük2¸òl2³o2ÓÀx¦s®æ,¤£ª¾¹D¦³¨S¦³¾A¦Xªºµ{¦¡½X,·PÁÂ
TOP
Joforn
µoµu®ø®§
¥[¬°¦n¤Í
Joforn
(«n®cÄƳ·)
·í«eÂ÷½u
UID
12720
©«¤l
109
¥DÃD
2
ºëµØ
0
¿n¤À
114
ª÷¿ú
114
ÂI¦W
0
§@·~¨t²Î
Win7 Win10
³nÅ骩¥»
Office 2019 WPS
¾\ŪÅv
20
©Ê§O
¨k
¨Ó¦Û
²`¦`
¦b½u®É¶¡
153 ¤p®É
µù¥U®É¶¡
2013-2-2
³Ì«áµn¿ý
2024-11-6
¡@¼ÊºÙ:
«n®cÄƳ·
¤¤¾Ç¥Í
©«¤l
109
¥DÃD
2
ºëµØ
0
¿n¤À
114
ÂI¦W
0
§@·~¨t²Î
Win7 Win10
³nÅ骩¥»
Office 2019 WPS
¾\ŪÅv
20
©Ê§O
¨k
¨Ó¦Û
²`¦`
µù¥U®É¶¡
2013-2-2
³Ì«áµn¿ý
2024-11-6
4
#
µoªí©ó 2013-2-18 00:48
|
¥u¬Ý¸Ó§@ªÌ
Sub TestCopy()
Dim Range1 As Range
Dim RangeCopy As Range
For Each Range1 In Range("F2:BA2")
Select Case Trim$(Range1.Text)
Case vbNullString
Case "---"
Case Else
If RangeCopy Is Nothing Then
Set RangeCopy = Range1
Else
Set RangeCopy = Union(RangeCopy, Range1)
End If
End Select
Next Range1
If RangeCopy Is Nothing Then
MsgBox "¨S¦³¦X¾Aªº³æ¤¸®æ¡I"
Else
With RangeCopy
.Select
.Copy
End With
End If
End Sub
½Æ»s¥N½X
TOP
sto3688
µoµu®ø®§
¥[¬°¦n¤Í
sto3688
·í«eÂ÷½u
UID
10471
©«¤l
14
¥DÃD
5
ºëµØ
0
¿n¤À
23
ª÷¿ú
23
ÂI¦W
0
§@·~¨t²Î
win 7
³nÅ骩¥»
office2010
¾\ŪÅv
10
©Ê§O
¨k
¦b½u®É¶¡
8 ¤p®É
µù¥U®É¶¡
2012-8-10
³Ì«áµn¿ý
2014-2-28
¤p¾Ç¥Í
©«¤l
14
¥DÃD
5
ºëµØ
0
¿n¤À
23
ÂI¦W
0
§@·~¨t²Î
win 7
³nÅ骩¥»
office2010
¾\ŪÅv
10
©Ê§O
¨k
µù¥U®É¶¡
2012-8-10
³Ì«áµn¿ý
2014-2-28
5
#
µoªí©ó 2013-2-18 10:34
|
¥u¬Ý¸Ó§@ªÌ
´ú¸Õ«á¥i¥Hcopy¤F,·PÁÂJoforn ¤j~
TOP
ÀR«ä¦Û¦b :
¦¨¥\¬OÀuÂIªºµo´§¡A¥¢±Ñ¬O¯ÊÂIªº²Ö¿n¡C
ªð¦^¦Cªí
¤U¤@¥DÃD
¤W¤@¥DÃD
EXCEL±MÄÝ°Q½×°Ï
Excel£¸¯ë°Ï
Excelµ{¦¡°Ï
¶i¶¥À³¥Î±M°Ï
OFFICE ¨t¦C
Word
PowerPoint
Access
Office¤£¤À°Ï
µ{¦¡»y¨¥
VB »P VB.Net
C »P C#
Java »P J#
µ{¦¡³]p¤£¤À°Ï
¸ê®Æ®w
ORACLE
My SQL
MS SQL
ºô¶³]p
ASP »P ASP.NET
PHP
PHP+MySQL ¤Jªù¹ê§@
JavaScript
FLASH / ActionScript
HTM/ HTML/ CSS
ºô¶³]p¤£¤À°Ï
¹q¸£»P§@·~¨t²Î
¹q¸£¦UºØµwÅé°Q½×
¤@¯ë¹q¸£³nÅé°Q½×
½×¾Â¨Æ°È
ºÞ²z¤½§i
§ë¶D¤Ï¬M
·s¤â´ú¸Õ
·R ¡E ¥Í¬¡
¤½¯q§G§iÄæ
¥Í¬¡»P·P°Ê
[¦¬Âæ¹¥DÃD]
[Ãöª`¦¹¥DÃDªº·s¦^´_]
[³q¹L QQ¡BMSN ¤À¨Éµ¹ªB¤Í]
¥Ó½Ð¤Í±¡Ãì±µ
Facebook¯»µ·