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

[µo°Ý] EXCEL VBA¡D¦p¦ó¦Û°Ê¿é¤J¸ê®Æ(¥Htab¸õ¤U¤@®æ)

excel 2007 vba ¦p¦ó¼g¦Û°Ê¿é¤J¸ê®Æªºcode?

¤u§@ªí¤¤,¦³¤£³W«hªºcell­n¿é¤J´ú¸Õ¸ê®Æ,¼Æ¶q«Ü¦h,°²³]¬O:(A1:C1,F1:H1,A3:C3,F3:H3,B5:B7,D5:D7,E5:E7,A8,C9:D9)
½Ð°Ý¦p¦ó¯àÅý¹q¸£¦Û°Ê¿é¤J¸ê®Æ?
¿é¤Jªº¸ê®Æ±q1¶}©l,³v¦¸¥[1§Y¥i,³o¼ËµL½×¤å¦r©Î¼Æ¦r¬Ò¥i¾A¥Î
(°ß¤@·|¦³°ÝÃDªº¬O¤é´ÁÄæ¦ì,¿é¤Jªº¼Æ¦r¥i¯à·|¤£¦Xªk,¬G¼È¤£¦Ò¼{,ÁÙ¬O¦³°ª¤H¦³¸Ñ?)
ÁÂÁÂ!
Symis

TOP

¦^´_ 1# symis
¬Ý¤£À´§Aªº»¡©ú!½Ð¶Ç¤W½d¨ÒÀÉ®×,·|²M·¡¨Ç.
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¥»©«³Ì«á¥Ñ symis ©ó 2013-3-22 14:41 ½s¿è

Åã¥Ü¤è¦¡: ¦p¹Ï:

ÁÂÁÂ!
Symis

TOP

Symis

TOP

¤£¦n·N«ä,3fªºc5ªº14¬O¦h¥´ªº,¬G4f¤]¬O¿ùªº
§Ú­«¶Ç¦n¤F
Symis

TOP

¦^´_ 5# symis
¬O³o¼Ë¶Ü?
  1. Option Explicit
  2. Sub Ex()
  3.     Dim Rng As Range, i As Integer, e As Range
  4.     Set Rng = Range("A1:C1,F1:H1,A3:C3,F3:H3,B5:B7,D5:D7,E5:E7,A8,C9:D9")
  5.     'Set Rng = Selection             '©Î¬O¤u§@ªí¤W¿ï©wªºÀx¦s®æ
  6.     For i = 1 To Rng.Areas.Count
  7.         'Areas ÄÝ©Ê ®M¥Î¦Ü½d¨Ò¯S©w¶Ç¦^ Areas ¶°¦X¡A¦¹¶°¦X¥Nªí¦h­«½d³ò¤¤ªº©Ò¦³½d³ò¡C°ßŪ¡C
  8.         'Count ÄÝ©Ê¡C¶Ç¦^¶°¦Xª«¥ó¤¤ª«¥ó¼Æ¥Ø¡C°ßŪ Integer¡C
  9.         For Each e In Rng.Areas(i)
  10.             e.Value = e.Address     '¤£ª¾§A­n°Ê¿é¤J??¸ê®Æ
  11.         Next
  12.     Next
  13. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¬OªºGBKEE ¤j,«Ü·PÁ±z
²{¦b¤S¦³¥t¤@­Ó»Ý¨D: Ãþ¦ü¹³5fªº¹Ï,¦ý¬O¨Ã¤£¨Æ¥ý¹w©w­n¿é¤Jªº½d³ò,¦Ó¬O¿é¤J²Ä¨C¤@®æ«á,«ötab¨ì¤@¤U®æ,ª½¨ì³Ì©³¤U¬°¤î¡C
³o­Ó»Ý¨D§Ú¦Û¤v·Q¤@¤U,ÁÂÁÂ!
Symis

TOP

¦^´_ 7# symis
¤£¨Æ¥ý¹w©w­n¿é¤Jªº½d³ò
½d³ò¬O­þ¸Ì:¶·»¡©ú¤@¤U
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

[µo°Ý] EXCEL VBA¡D¦p¦ó¦Û°Ê¿é¤J¸ê®Æ(¥Htab¸õ¤U¤@®æ)

§Ú¥Îªº¬O: EXCEL 2007
Àɮצb:
http://www.FunP.Net/467011
°õ¦æ®É,¶}±Ò¥¨¶°,¤£¶}³sµ²
¤º¦³3­Ósheet: ²Ä10­¶,²Ä11­¶,²Ä13­¶
§Ú¤w¸g¼g¦n¤@¬qvba,¯à¦Û°Ê¨ÌÄ渹¶ñ¤J¸ê®Æ
°ÝÃD1: ¦]­ì§@ªÌªºtab¸õ®æ³]­p¤£¨},¬G¦b§PÂ_¤W¨Ã¤£²z·Q,¾É­P¥i¯à¦³º|¿é¤Jªº®æ¤l,¸Ó¦p¦ó¦]À³?
°ÝÃD2:²Ä13­¶¤w¸g¯à¦Û°Ê¿é¤J¥Õ©³ªº®æ¤l,¶À©³®æ¤£¥Î¿é¤J,½Ð°Ý,ºñ©³®æ¬°¤U©Ô¦¡¿ï³æ,©Î¤é´Á®æ¦¡,­n«ç¼Ë¤~¯à¦Û°Ê¿é¤J?
§Ú·Q: ¹J¤U©Ô¦¡¿ï³æ,¤@«ß¿ï²Ä¤@¶µ,¹J¦~¤ë¤é,¤@«ß¶ñ99/12/31
·PÁÂ!
Symis

½Ð°Ý:
1. ¦b¦Û°Ê¿é¤Jªº¹Lµ{¤¤,µ{¦¡­n«çª¾¹D­þ¤@®æ¦³¤U©Ô¦¡¿ï³æ?
2. ª¾¹D¤F¥H«á,µ{¦¡­n¦p¦ó¦Û°Ê¿ï¾Ü²Ä¤@¶µ?
ÁÂÁÂ!
Symis

TOP

        ÀR«ä¦Û¦b : ¤H¥Í¨S¦³©Ò¦³Åv¡A¥u¦³¥Í©Rªº¨Ï¥ÎÅv¡C
ªð¦^¦Cªí ¤W¤@¥DÃD