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

[µo°Ý] Ãö©ó¦Û°Ê¶K¤W³sµ²¦Ü¥t¤@­ÓÀɮרæ۰ʴ¡¤J¶W³sµ²

¦^´_ 50# starry1314

EX1.JPG
2015-5-11 05:51
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

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

TOP

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

TOP

¦^´_ 53# lpk187


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

TOP

¦^´_ 51# GBKEE

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

TOP

¦^´_ 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
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

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

TOP

¦^´_ 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
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¨þ¨þ¨þ¡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

TOP

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

TOP

        ÀR«ä¦Û¦b : ¯u¥¿ªº·R¤ß¡A¬O·ÓÅU¦n¦Û¤vªº³oÁû¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD