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

cji3cj6xu6

·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

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

cji3cj6xu6

ÁÂÁÂ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¶Ü?
ÁÂÁÂ!

mark15jill

ÁÂÁÂ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

cji3cj6xu6

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