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

EXCEL¶K¤Jºô­¶°ÝÃD

EXCEL¶K¤Jºô­¶°ÝÃD

With .Document
                                        .getElementsByName("q11")(0).Value = ¦r¦ê   ' §ä¨ìq11Äæ¦ì¶ñ¤J
                                    end with
¦³¸Õ¹L¥i¥H©w¸qÅܼƨӴÀ¥N¦r¦ê  ¦ý §Ú¥u¸Õ¥X¥i¥H¿ï¾Ü¤@®æ    ¨Ò¦p:  g =sheets("´ú¸Õ").range("A1")    ¸Óºô­¶·|¶ñ¤JA1ªº­È   
¦ý§Ú§Æ±æ¥i¥H§Q¥Î¤u§@­¶ªº½d³òÀx¦s®æ½Æ»s¶K¤J     §Ú»Ý­n A1:H10ªº½d³ò½Æ»s¶K¤Jºô­¶¤º   
ª¦¤å¤j®a³£¥u§ìºô­¶¸ê®Æ¤U¨ÓEXCEL ¦ý«o¨S¦³¶K¤Jºô­¶ªº¸ß°Ý = = ½Ð±Ð¦U¦ì¤j¤jÀ°§Ú¸Ñ¨M³o°ÝÃD ~!!  ·P¿E¤£ºÉ....
´N®t³o¨B¤F...........«ô°U¦U¦ì¤j¤j­Ì!!!
¦Û¥Î¨®¤]¥i¥Hñ±b³á!
¤­¤d¤¸¥[ªoª÷¥[¤Jªo½c«áÁÙ¦^õX±z6200¤¸
ºÖ§Q©ô¨®¤Í·|power-want.com

¦^´_ 1# die78325
¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Sub Ex()
  3.     Dim R, ¦r¦ê As String, S As String
  4.     For Each R In [A1:H10].Rows
  5.         S = Join(Application.Transpose(Application.Transpose(R)), " ")
  6.         ¦r¦ê = IIf(¦r¦ê = "", S, ¦r¦ê & Chr(10) & S)
  7.    Next
  8.    '
  9.    '
  10.    
  11.   ' With .Document
  12.    '     .getElementsByName("q11")(0).Value = ¦r¦ê   ' §ä¨ìq11Äæ¦ì¶ñ¤J
  13.   'End With

  14. End Sub
½Æ»s¥N½X

TOP

¦^´_ 2# GBKEE


    ·PÁ¤j¤j ²{¦b¥i¥H¶K¶i¥h¤F
¦ý¬O¹J¨ì­Ó°ÝÃD == §ÚAÄæ¬O2012/12/5 14:19   ®É¶¡®æ¦¡  ¦ý¥Î§A±oµ{¦¡¶]¤U¥h ´NÅÜ41248.4423263889
  ¦A³Â·Ð¤j¤j¤F.....
¦Û¥Î¨®¤]¥i¥Hñ±b³á!
¤­¤d¤¸¥[ªoª÷¥[¤Jªo½c«áÁÙ¦^õX±z6200¤¸
ºÖ§Q©ô¨®¤Í·|power-want.com

TOP

¦^´_ 2# GBKEE


    ¨º¦pªG A1:H?    HªºÄæ¦ì¤£¤@©w     [A1:H10]  ³oºØªº¥i¥H¥Î end.xlup  ¶Ü?  
    ¤]½Ð¤j¤jÀ°§Ú¤@¨Ö³B²z  ·PÁ±z ....
¦Û¥Î¨®¤]¥i¥Hñ±b³á!
¤­¤d¤¸¥[ªoª÷¥[¤Jªo½c«áÁÙ¦^õX±z6200¤¸
ºÖ§Q©ô¨®¤Í·|power-want.com

TOP

¦^´_ 4# die78325
¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Sub Ex()
  3.     Dim Ar(), ¦r¦ê As String, xi As Integer, xii As Integer, S As String, Rng As Range
  4.     'With Range("A1").CurrentRegion
  5.     'CurrentRegion ÄÝ©Ê  ¶Ç¦^ Range ª«¥ó¡A¸Óª«¥ó¥Nªí¥Ø«eªº°Ï°ì¡C¥Ø«e°Ï°ì¬O«ü¥H¥ô·NªÅ¥Õ¦C¤ÎªÅ¥ÕÄ檺²Õ¦X¬°Ãä¬Éªº½d³ò¡C°ßŪ
  6.     'MsgBox .Address
  7.     Set Rng = Sheet1.[a1]
  8.     With Sheet1.Range(Rng.Address, Cells(Rng.End(xlDown).Row, Rng.End(xlToRight).Column).Address)
  9.         MsgBox .Address(, , , 1, 1)
  10.         Ar = .Value
  11.         For xi = 1 To .Rows.Count
  12.             For xii = 1 To .Columns.Count
  13.                 Ar(xi, xii) = IIf(.Cells(xi, xii) <> "", .Cells(xi, xii).Text, vbTab)
  14.             Next
  15.         Next
  16.         For xi = 1 To UBound(Ar)
  17.             S = Join(Application.Transpose(Application.Transpose(Application.Index(Ar, xi))), vbTab)
  18.             ¦r¦ê = IIf(¦r¦ê = "", S & vbLf, ¦r¦ê & vbLf & S)
  19.         Next
  20.         MsgBox ¦r¦ê
  21.    End With
  22. '  '
  23.    '
  24.    
  25.   ' With .Document
  26.    '     .getElementsByName("q11")(0).Value = ¦r¦ê   ' §ä¨ìq11Äæ¦ì¶ñ¤J
  27.   'End With

  28. End Sub
½Æ»s¥N½X

TOP

¦^´_ 5# GBKEE


    ¤j¤j¦n±j@@"
¦ý¬O³oÃ䪺»yªk¦n¯S®í  ¦³ªÅÀ°§Úµù¸Ñ¤@¤U¶Ü......·Q¦h¾Ç²ß³oºØ³sÄò¦ê°_¨Óªº»yªk!@@
ÁÂÁ¤j¤j~~
¦Û¥Î¨®¤]¥i¥Hñ±b³á!
¤­¤d¤¸¥[ªoª÷¥[¤Jªo½c«áÁÙ¦^õX±z6200¤¸
ºÖ§Q©ô¨®¤Í·|power-want.com

TOP

¦^´_ 6# die78325
³o¨Ç¨Ã¤£Ãø,¤£¤F¸Ñªº¥i¦h¬ÝVBAªº»¡©ú

TOP

¦^´_ 7# GBKEE


    ¤j¤j ²{¦bµo²{¤@­Ó°ÝÃD = =
  ·í¸ê®Æ¹L¦h ¥L¨S¿ìªk½Æ»s¨ì¥H¤Uªº¸ê®Æ   ´N­ì¥»À³¸Ó­n½Æ»s50¦C    ¦]¬°String¦r¼Æ¤Ó¦h ¥u½Æ»s¨ì37µ§......
¦pªG§R±¼«á­±¦h¾lªº¦r   ¤~¯à´£¤É¨ì40¦hµ§   ©Ò¥H½T©w§PÂ_¬°¸ê®Æ¹L¦h   ¨º¦³¿ìªk¸Ñ¨M¶Ü?  ´N¬O¦³¦h¤Ö´N­n½Æ»s¦h¤Ö.....  
¦]¬°¤£¸Ñ¨M³o°ÝÃDªº¸Ü ¨S¿ìªkÄ~Äò§@·~¤U¥h   ¦]¬°¨ì¤ë©³¥i¯à·|¦³100¦hµ§ = ="

©ÎªÌ¥i¥H§PÂ_JÄ榳0 ´N¥Nªí¤W¶Ç¹L¤F.....µM«á¥u§ì¨ú¨S¤W¶Ç¹Lªº ¦³¿ìªk¶Ü?? ¦]¬°¸ê®Æ¬O¤@­È©¹¤U¼W¥[ ¦ý¬O·s¼W³t«×³¡·|¶W¹L30µ§
§ó¦óªp§Ú¬O¤@­È«ùÄò¦b¤W¶Ç   ¤£¥i¯à¦bµu®É¶¡¤º¶W¹L30µ§   ½Ð¤j¤jÀ°§Ú·Q¿ìªk§a.....

ºÉ¥i¯àÀ°§Ú°µ²Ä¤@ºØ  (¦³¦h¤Ö½Æ»s¦h¤Ö) ¦]¬°©Èº|±¼......
¦Û¥Î¨®¤]¥i¥Hñ±b³á!
¤­¤d¤¸¥[ªoª÷¥[¤Jªo½c«áÁÙ¦^õX±z6200¤¸
ºÖ§Q©ô¨®¤Í·|power-want.com

TOP

¦^´_ 8# die78325
DataObject ª«¥ó
¦b¶i¦æÂà´«°Ê§@®É¡A°µ¬°®æ¦¡¤Æ¤å¦r¸ê®Æªº¼È¦s°Ï°ì¡C¨ä¤]¥i¥H¼È¦s©MÀx¦s¦b DataObject ªº¤å¦r¤ù¬q¬ÛÃöªº®æ¦¡¡C
  1. Option Explicit
  2. Sub Ex()  '¨Ï¥ÎDataObject ª«¥ó
  3.     Dim Rng As Range
  4.     'Dim Clip As New DataObject
  5.     ' New DataObject:  VBA»Ý³]©w¤Þ¥Î Microsoft Forms 2.0 Object Library
  6.     Dim Clip As Object  '¤£»Ý³]©w¤Þ¥Î Microsoft Forms 2.0 Object Library
  7.     Set Clip = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
  8.     Set Rng = Sheet1.[a1]
  9.     Sheet1.Range(Rng.Address, Cells(Rng.End(xlDown).Row, Rng.End(xlToRight).Column).Address).Copy
  10.     Clip.GetFromClipboard
  11.     '
  12.     '
  13.    
  14.    With .Document
  15.         .getElementsByName("q11")(0).Value = Clip.GetText(1)    ' §ä¨ìq11Äæ¦ì¶ñ¤J
  16.   End With

  17. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¤Ó¶§¥ú¤j¡B¤÷¥À®¦¤j¡B§g¤l¶q¤j¡A¤p¤H®ð¤j¡C
ªð¦^¦Cªí ¤W¤@¥DÃD