GBKEE

¦^´_ 50# starry1314

¤U¸ü (93.87 KB)

2015-5-11 05:51

lpk187

¦^´_ 49# starry1314


    §Ú¥ý¦^½Æ³o°ÝÃD
Sheets("§Ö³t¿é¤J").Select"  '¦]¬°³o¸Ì¤w¿ï¨úSheets("§Ö³t¿é¤J")³o­Ó¤u§@ªí©Ò¥H¤U­±¤£¯à³o¼Ë¼g¡AThisWorkbook.Sheets("¥XÀ\³æ")¬Oµ{¦¡½X©Ò¦bªº¦a¤è¡A°£«D§Aªºµ{¦¡½X¬O©ñ¦b.ThisWorkbook.Sheets("¥XÀ\³æ")³o­Ó¤u§@ªí§_«h¤£¯à³o¼Ë¼g
    Workbooks("¤pÀ\³æ-S.xlsx").Sheets("§Ö³t¿é¤J").Range("B2") = ThisWorkbook.Sheets("¥XÀ\³æ").Range("H1:I1").Value
§Ú°²³]§Aªºµ{¦¡½X©ñ¦bThisWorkbook.Sheets("¥XÀ\³æ")³o¸Ì¡A¦Ó§A¥ý¤S°µ¤FSheets("§Ö³t¿é¤J").Select¡A§Aªºµ{¦¡¥i¥H²¼g¦¨   Range("B2") = ThisWorkbook.Sheets("¥XÀ\³æ").Range("H1:I1").Value
­Y¬O¨S°µSheets("§Ö³t¿é¤J").Select¿ï¨úªº¸Ü¡A¤]´N¬Oµe­±¬O°±¯d¦bThisWorkbook.Sheets("¥XÀ\³æ")³o­Ó¤u§@ªí¤¤«h¥i¥H²¼g¦¨Workbooks("¤pÀ\³æ-S.xlsx").Sheets("§Ö³t¿é¤J").Range("B2") =.Range("H1:I1").Value

lpk187

¦^´_ 50# starry1314


    ª©¥D¥X¨Ó¦^½Æ¤F¡C¤£¹L§Ú¦A¸É¥R¤@¤U§A¦]¬°¤£ª¾¹D§A©Ò¿é¤Jªº­È¬O§_¹ï¿ù¥i¥H¥ÎÅܼƨÓÆ[¬Ý
¤]¬O»¡¡A¥HWorkbooks("¤pÀ\³æ-S.xlsx").Sheets("§Ö³t¿é¤J").Range("B2") = ThisWorkbook.Sheets("¥XÀ\³æ").Range("H1:I1").Value¨Ó»¡
¥i¥H¥Î
AA=ThisWorkbook.Sheets("¥XÀ\³æ").Range("H1:I1").Value'¨Ó¬Ý§Aªºµ{¦¡½X¬O¥k¦³¿é¤J¿ù»~¦A¦C¤U­±³o¦æ
§A¥i¥H¦b°Ï°ìÅܼƵøµ¡¤¤©ú¥Õªº¬Ý¥XAA³o­ÓÅܼƪºÅܤƤF
Workbooks("¤pÀ\³æ-S.xlsx").Sheets("§Ö³t¿é¤J").Range("B2") = ThisWorkbook.Sheets("¥XÀ\³æ").Range("H1:I1").Value
µM«á¦A¥Î¤@­ÓÅܼƨÓÆ[¬ÝWorkbooks("¤pÀ\³æ-S.xlsx").Sheets("§Ö³t¿é¤J").Range("B2")¿é¤J¹ï¤£¹ï¨Ì¦¹ªkÃþ±À¡A´N¥i¥H«Ü²M·¡ªº¤F¸Ñ«ç»ò¨Ó«ç»ò¥h¤F
ÁÙ¦³ ThisWorkbook.Sheets("¥XÀ\³æ").Range("H1:I1").Valueªº"H1:I1"¬O¦X¨ÖÀx¦s®æªº¸Ü¥i¥H¥u¥Î"H1´N¥i¥H¤F¨Ò¦p"ThisWorkbook.Sheets("¥XÀ\³æ").Range("H1").Value

starry1314

¦^´_ 53# lpk187


    ¤F¸Ñ~©Ò¥H­n¥Î°Ï°ìÅܼƵøµ¡¨ÓÆ[¬Ý´N¬O­n¥ýµ¹«ü¥O¤@­ÓÅܼƤ~¦³¿ìªk¤@­Ó¤@­ÓÆ[¬Ý°õ¦æµ²ªGÅo|?
¦p AA=ThisWorkbook.Sheets("¥XÀ\³æ").Range("H1:I1").Value'
¥ý¨Ó¤F¸Ñ¬Ý¬Ý~

starry1314

¦^´_ 51# GBKEE

·PÁª©¥D~³o­Óµøµ¡§Ú¦³°õ¦æ¥X¨Ó¡I¦ý¦b§ÎºA¤U¤è¨º­Ó¬õ®Ø¡A¤£À´­n«ç»ò¤F¸Ñ²[¸q! §Ú¥ý§ä¨ä¥Lªºµ{¦¡½X¨Ó¬Ý¬Ý®t²§©Ê¦b­þ¦n¤F

GBKEE

¦^´_ 55# starry1314

1. Option Explicit
   
2. Sub EX()
   
3.     Dim AR(1 To 2) As Integer
   
4.     'Integer ÅܼƫY¥H½d³ò¬° -32,768 ¨ì 32,767 ¤§ 16 ¦ì¤¸ (2 ­Ó¦ì¤¸²Õ) ¼Æ¦rªº§Î¦¡Àx¦s
   
5.     AR(1) = 5
   
6.     AR(2) = 15
   
7.     AR(2) = "w15"   '<- ¸ê®Æ«¬ºA¤£¹ï ¤w«ü©w¸ê®Æ«¬ºA©Ò¥H¿ù»~²£¥Í¤F
   
8. End Sub

½Æ»s¥N½X

starry1314

¦^´_ 52# lpk187


¤F¸Ñ¡I¦]µ{¦¡½X¬O©ñ¦b.ThisWorkbook.Sheets("¥XÀ\³æ")©Ò¥HŪ¨úªº¸ê®Æ¬O¥¿½Tªº¡A
¥Ø«e·Q½Ð°Ý¡@¡×©Î¬O¢ë¢÷¢ø£B¡@³£¬O½Æ»s­È¡@¡@¡@¥i¥H§ï¦¨¤°»òÅý¥L¶K¤Wªº¬O³sµ²©O¡H

ActiveSheet.Paste Link:=True¡@¡@¡@¡@¡Õ¡Ð¡Ð­ì¥»¶K¤W³sµ²ªº¤è¦¡¡@

   ¥Ø«e­×¥¿¬°

1.     Sheets("¼Æ¾Ú").Select
   
2.     Range("B22").Select
   
3.     Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
   
4.     Sheets("§Ö³t¿é¤J").Select
   
5.     Range("B2") = ThisWorkbook.Sheets("¥XÀ\³æ").Range("H1").Value
   
6.     Range("C3") = ThisWorkbook.Sheets("¥XÀ\³æ").Range("C4").Value
   
7.     Range("D3") = ThisWorkbook.Sheets("¥XÀ\³æ").Range("V1").Value
   
8.     Range("B4") = ThisWorkbook.Sheets("¥XÀ\³æ").Range("X3").Value
   
9.     Range("B5") = ThisWorkbook.Sheets("¥XÀ\³æ").Range("E1").Value
   
10. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 57# starry1314

1. Option Explicit
   
2. '¼Ò²Õ³»ºÝªº Dim ¬°³o¼Ò²Õ¤¤µ{¦¡¥i¥ÎªºÅܼÆ
   
3. Dim WbSh(1 To 3) As Worksheet  '«Å§iÅܼƫ¬ºA «ü©w¬°¤u§@ªí
   
4. Sub Main()
   
5.     Set WbSh(1) = ThisWorkbook.Sheets("¼Æ¾Ú")
   
6.     'ThisWorkbook.Sheets("¥XÀ\³æ")¦p§ï¬° "¥XÀ\³æA"
   
7.     Set WbSh(2) = ThisWorkbook.Sheets("¥XÀ\³æ") '¦b¦¹§ï¬° "¥XÀ\³æA"¤F´N¥i¥H¤F
   
8.     Set WbSh(3) = ThisWorkbook.Sheets("§Ö³t¿é¤J")
   
9.     Call Ex
   
10. End Sub
    
11. Sub Ex()
    
12.     WbSh(1).Range("B22").Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
    
13.     With WbSh(3) '¤£¥² Select¨Ó Select¥h
    
14.         .Range("B2") = "=" & WbSh(2).Range("H1").Address(, , , 1)
    
15.             '¥Î¤½¦¡³sµ²
    
16.         .Range("C3") = "=" & WbSh(2).Range("C4").Address(, , , 1)
    
17.         .Range("D3") = "=" & WbSh(2).Range("V1").Address(, , , 1)
    
18.         .Range("B4") = "=" & WbSh(2).Range("X3").Address(, , , 1)
    
19.         .Range("B5") = "=" & WbSh(2).Range("E1").Address(, , , 1)
    
20.     End With
    
21. End Sub

½Æ»s¥N½X

lpk187

¨þ¨þ¨þ¡Iª©¥D¤j¤j¤Ó±j¤F¡A»¡¯uªº·íªì§Ú¨S¬Ý¨ì
ActiveSheet.Paste Link:=True³o¦æ
ÁÙ¦A·Q«ç»ò¦^starry1314³o­Óµ{¦¡½X¡Aª©¥D¤j¤j´N¥X¤â¬Û§U¡A³oµ{¦¡½X¤]Åý§Ú¨ü©ö¨}¦h

starry1314

¦^´_ 58# GBKEE


   ª©¥D¤j¤j~¤£¦n·N«ä  ¨Ï¥ÎF8³v¦æ°õ¦æ®É
WbSh(1). ·|¸õ¥X¨S¦³©w¸q³o­ÓSUB©Îfunction
¦ý¬Ý¤W¤èMANI«ü¥O¤¤´N¤w¦³©w¸q..½Ð°Ý¬O­þÃ䤣¹ï©O...
Sub Ex()

    WbSh(1).Range("B22").Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
    With WbSh(3) '¤£¥² Select¨Ó Select¥h
        .Range("B2") = "=" & WbSh(2).Range("H1").Address(, , , 1)
            '¥Î¤½¦¡³sµ²
        .Range("C3") = "=" & WbSh(2).Range("C4").Address(, , , 1)
        .Range("D3") = "=" & WbSh(2).Range("V1").Address(, , , 1)
        .Range("B4") = "=" & WbSh(2).Range("X3").Address(, , , 1)
        .Range("B5") = "=" & WbSh(2).Range("E1").Address(, , , 1)
    End With
End Sub