µù¥U
µn¿ý
º¶
½×¾Âª©³W
¸T¤î¦Cªí
»¡©ú
¦a¹Ï
¼Æ¦ì®Ñ»
¨p¤H®ø®§ (0)
¤½¦@®ø®§ (0)
½×¾Â¥ô°È (0)
¨t²Î®ø®§ (0)
¦n¤Í®ø®§ (0)
©«¤l®ø®§ (0)
³Â»¶®a±Ú°Q½×ª©ª©
»
Excelµ{¦¡°Ï
» ¸Ó¦p¦ó½T»{sheet name?
ªð¦^¦Cªí
¤U¤@¥DÃD
¤W¤@¥DÃD
µo©«
[µo°Ý]
¸Ó¦p¦ó½T»{sheet name?
acdx
µoµu®ø®§
¥[¬°¦n¤Í
acdx
·í«eÂ÷½u
UID
9383
©«¤l
132
¥DÃD
56
ºëµØ
0
¿n¤À
190
ª÷¿ú
190
ÂI¦W
0
§@·~¨t²Î
Win10
³nÅ骩¥»
Office 365
¾\ŪÅv
20
©Ê§O
¨k
¦b½u®É¶¡
217 ¤p®É
µù¥U®É¶¡
2012-5-17
³Ì«áµn¿ý
2024-4-29
¤¤¾Ç¥Í
©«¤l
132
¥DÃD
56
ºëµØ
0
¿n¤À
190
ÂI¦W
0
§@·~¨t²Î
Win10
³nÅ骩¥»
Office 365
¾\ŪÅv
20
©Ê§O
¨k
µù¥U®É¶¡
2012-5-17
³Ì«áµn¿ý
2024-4-29
1
#
¸õÂà¨ì
»
˧Ǭݩ«
¥´¦L
¦rÅé¤j¤p:
t
T
µoªí©ó 2014-12-16 13:31
|
¥u¬Ý¸Ó§@ªÌ
[µo°Ý]
¸Ó¦p¦ó½T»{sheet name?
n½T»{sheet¦W¦r¬O§_¬°"¼t°Ó¤@"¡A¨Ï¥Î:
If Sheets(2).Name = "¼t°Ó¤@" Then
Y¬O¸ÓÀÉ®×¥u¦³¤@Ósheet«h·|¥X²{¿ù»~¡A¦pªG§Ú·Q½T»{Àɮפ¤¬O§_¦³"¼t°Ó¤@"³oÓsheet§ï¦p¦ó¼g©O?
¼Ó¥D¼ö©«
¦p¦ó±NVBAµ{¦¡Âন¼W¯q¶°?
¦p¦ó³]©w
¦p¦óÅýComboBox¥i¥H¥Î·Æ¹«ºu°Ê?
TextBox¦p¦ó³]©w¥u¯à¬O¾ã¼Æ?
¦p¦ó±NTextBoxÂনtxtÀÉ
array«ç»òpºâ¥§¡¡B¼Ð·Ç®t?
.End(xlToRight).Columnªº¥Îªk
pºâ¸ê®Æ§¨¤ºxlsÀÉ®×¼Æ
¬°¦ó·|¥X²{"¥²¶·¬OÅܼƩε{§Ç,¦Ó«D¼Ò²Õ"³o¼Ë
¨Ï¥Îªí³æ°õ¦æVBAªº°ÝÃD
¦¬ÂÃ
¤À¨É
acdx
µoµu®ø®§
¥[¬°¦n¤Í
acdx
·í«eÂ÷½u
UID
9383
©«¤l
132
¥DÃD
56
ºëµØ
0
¿n¤À
190
ª÷¿ú
190
ÂI¦W
0
§@·~¨t²Î
Win10
³nÅ骩¥»
Office 365
¾\ŪÅv
20
©Ê§O
¨k
¦b½u®É¶¡
217 ¤p®É
µù¥U®É¶¡
2012-5-17
³Ì«áµn¿ý
2024-4-29
¤¤¾Ç¥Í
©«¤l
132
¥DÃD
56
ºëµØ
0
¿n¤À
190
ÂI¦W
0
§@·~¨t²Î
Win10
³nÅ骩¥»
Office 365
¾\ŪÅv
20
©Ê§O
¨k
µù¥U®É¶¡
2012-5-17
³Ì«áµn¿ý
2024-4-29
2
#
µoªí©ó 2014-12-16 13:51
|
¥u¬Ý¸Ó§@ªÌ
¦^´_
1#
acdx
Excel¸Ì±¥i¥H¦³«Ü¦hÓsheet, ¦ý¬O¥²¶·¦³¤@Ósheet¥s°µ"¼t°Ó¤@"
¤]´N¬O¸Ó¦p¦ó½T»{sheet"¼t°Ó¤@"³oÓsheet¦s¦b?
TOP
ashan0418
µoµu®ø®§
¥[¬°¦n¤Í
ashan0418
·í«eÂ÷½u
UID
9972
©«¤l
59
¥DÃD
5
ºëµØ
0
¿n¤À
75
ª÷¿ú
75
ÂI¦W
275
§@·~¨t²Î
xp
³nÅ骩¥»
2003
¾\ŪÅv
20
©Ê§O
¨k
¨Ó¦Û
°ò¶©
¦b½u®É¶¡
1476 ¤p®É
µù¥U®É¶¡
2012-7-5
³Ì«áµn¿ý
2024-11-21
¤¤¾Ç¥Í
©«¤l
59
¥DÃD
5
ºëµØ
0
¿n¤À
75
ÂI¦W
275
§@·~¨t²Î
xp
³nÅ骩¥»
2003
¾\ŪÅv
20
©Ê§O
¨k
¨Ó¦Û
°ò¶©
µù¥U®É¶¡
2012-7-5
³Ì«áµn¿ý
2024-11-21
3
#
µoªí©ó 2014-12-16 14:38
|
¥u¬Ý¸Ó§@ªÌ
Sub test1()
For i = 1 To Sheets.Count
If Sheets(i).Name = "¼t°Ó¤@" Then
MsgBox "¡y¼t°Ó¤@¡z¦s¦b"
Exit Sub
End If
Next
MsgBox "¡y¼t°Ó¤@¡z¤£¦s¦b"
End Sub
½Æ»s¥N½X
¦^´_
2#
acdx
TOP
ÀR«ä¦Û¦b :
¡i®É¶¡µLªk¾B¾×¡j©È®É¶¡®ø³u¡Aªá¤F³\¦h¤ß¦å¡A·QºÉ¦U¦¡¤èªkn¾B¾×®É¶¡¡Aµ²ªG¬O¡G®ö¶O¤F§ó¦h®É¶¡¡A¥B¤@µL©Ò¦¨¡I
ªð¦^¦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¯»µ·