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

¤£¾å±o¦³¿ìªk¥u­×§ï¶W³sµ²ªº"¿é¤JÀx¦s®æ¦ì¸m"¶Ü¡H

¤£¾å±o¦³¿ìªk¥u­×§ï¶W³sµ²ªº"¿é¤JÀx¦s®æ¦ì¸m"¶Ü¡H

·Q­n±Nsheet1 ªºb1,b2, b3..b10 ¶W³sµ²¨ì sheet2 ªº a1¡ASheet3 ªº a1.....Sheet11 ªº a1
(Sheet1, B1 ) ==> (Sheet2, A1)
(Sheet1, B2 ) ==> (Sheet3, A1)
(Sheet1, B3 ) ==> (Sheet4, A1)
(Sheet1, B4 ) ==> (Sheet5, A1)



(Sheet1, B10 ) ==> (Sheet11, A1)

¦ý¬O Sheet1 ªºb1, b2.... b10 ¥i¯à·|¦]¬°±Æ§Çªº°ÝÃD¦Ó¤W¤U²§°Ê¡A
¦ÓSheet2, Sheet3.........Sheet10 ¤w¸gÀx¦sok¤F¡C
¤£¾å±o¦³¿ìªk¥u­×§ï¶W³sµ²ªº"¿é¤JÀx¦s®æ¦ì¸m"¡A¦Ó¤£°Ê¨ìSheet2, Sheet3..........
vba­n¦p¦ó¼g¡AÁÂÁ¡ã

¥»©«³Ì«á¥Ñ gnimnek168 ©ó 2013-4-17 05:37 ½s¿è

¦^´_ 1# cji3cj6xu6

°Ñ¦Ò³o¤@½g¡GExcel VBA¡ÐÃö©óÀx¦s®æÅܰʩʪº³]­pijÃD¡C
http://www.kenming.idv.tw/excel_vba_cell_change_design

²³æªº»¡¡A§â¨Ó·½Äæ¦ì¸s²Õ(group)¬°¬Y¤@¯S©w¸ê®Æªí¡A¨Ã³]¸m¼ÐÃDÄæ»P¸ê®ÆÄæ¡A¨Ã³]©w¸Ó¸ê®Æªíªº½d³ò (Range)¡Aº¸«á¦A¥H·j´M¤èªk´M§ä¼ÐÃDÄæ¦A¹ïÀ³¦Ü¬ÛÃöªº¸ê®ÆÄæ¡A¨ú±o¸ê®Æ¡C

³o¬OÄæ¦ìÅܰʩʪº³]­pijÃD¡CºÉ¶q¤£­n¨Ï¥Îµ´¹ï®y¼Ð¡B¦Ó¬O§ï¥H°Ñ¦Ò®y¼Ð¨Ó³]­p¡A¦p¦¹¼u©Ê«×·|¸û¨Î¡C

TOP

ÁÂÁÂG¤jªº¸Ñ»¡¡A¤£¹L¦n¹³¤£¬O§Ú·Qªºµª®×¡C

·Q­n±Nsheet1 ªºb1,b2, b3..b10 ¶W³sµ²¨ì sheet2 ªº a1¡ASheet3 ªº a1.....Sheet11 ªº a1
(Sheet1, B1 ) ==> (Sheet2, A1)
(Sheet1, B2 ) ==> (Sheet3, A1)
(Sheet1, B3 ) ==> (Sheet4, A1)
(Sheet1, B4 ) ==> (Sheet5, A1)



(Sheet1, B10 ) ==> (Sheet11, A1)

¦ý¬O¤U¦¸¡A§Ú·Q­n±N³sµ²ÂI¥þ¼Æ§ï¬°A100¡A½Ð°Ý¦³¦¹¤èªk¶Ü?
ÁÂÁÂ!

TOP

ÁÂÁÂG¤jªº¸Ñ»¡¡A¤£¹L¦n¹³¤£¬O§Ú·Qªºµª®×¡C

·Q­n±Nsheet1 ªºb1,b2, b3..b10 ¶W³sµ²¨ì sheet2 ªº a1¡AShee ...
cji3cj6xu6 µoªí©ó 2013-4-17 06:06




Sub ¥¨¶°1()

'======== §Ö³t³Ð¬¡­¶Ã¯ ========'
'For hw = 1 To 99
'    Sheets.Add After:=ActiveSheet
'Next

'======== §Ö³t³sµ² ========'
For hh = 1 To 99
    ¤u§@ªí1.Cells(hh, "C") = "¤u§@ªí" & hh + 1   '¥i§ï
    A1K = ¤u§@ªí1.[d1]   '¥i§ï   ³o¦æ¥i¥ÑD1ª½±µ­×§ï³sµ²¥Øªº¦a
    ¤u§@ªí1.Cells(hh, "B") = ¤u§@ªí1.Cells(hh, "C") & A1K '¥i§ï
   
    kk = ¤u§@ªí1.Cells(hh, "C") & "!" & A1K '¥i§ï
    ¤u§@ªí1.Cells(hh, "B").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=kk, TextToDisplay:=Cells(hh, "C") & A1K '
   
Next
End Sub

  ¦h°µ¦h·Q¦h¾Ç²ß¡A¤Ö¬Ý¤Ö¿ù¤Ö°g³~

  ¦h°µ=¦h¦h½m²ß¡A¦h¦h½s¼g¡C
  ¦h·Q=·Q·Q¬°¤°»ò¤H®aµ{¦¡­n¨º¼Ë¼g¡A¦pªG´«¦¨¦Û¤v¡A¤S·|«ç¼g¡C
  ¦h¾Ç²ß=¾Ç²ß¤H®aªºµo°Ý¨Ã¸Ñµª¡A¾Ç²ß¤H®aªº¼gªk

  ¤Ö¬Ý=¥u¬Ý¤£°µ¤]ªPµM

TOP

ÁÂÁÂm¤j¡A±ßÂI¦n¦n·Q¬Ý¬Ý¡ã

TOP

        ÀR«ä¦Û¦b : ¦n¨Æ­n´£±o°_¡A¬O«D­n©ñ±o¤U¡A¦¨´N§O¤H§Y¬O¦¨´N¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD