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

[µo°Ý] EXCEL¯Zªíµ{¦¡¦Û°ÊÂà´«WORD

[µo°Ý] EXCEL¯Zªíµ{¦¡¦Û°ÊÂà´«WORD

¦U¦ì¤j¤j¦n¡A¸ß°Ý¦U¦ì¦p¦ó±NEXCEL§Q¥ÎVBA¡A¦pªþ¥ó¤@¡Bªþ¥ó¤G¡A§Q¥Îªþ¥ó¤@®æ¦¡Âà´«¦¨WORDªþ¥ó¤G¨º¼Ë¡A§ì¨ú¤é´Á«á¡AÅã¥Ü¨C¦¸¦­¯Z¨µ¬d¤H­û¡A¤£µM¤½¥q¨C¦¸³£­n¤@ª½¥´¡A¤H¼Æ¦h¡B¯Z¦¸¦hÁÙ¬O¤@¦¸®¼¸iÂZªº¨Æ¡A·Ð½Ð¦U¦ì¤j¤jÀ°¦£¸Ñµª¡AÁÂÁ¤j®a!

EXCEL.rar (17 KB)

¦^´_ 1# d82625348


    ª©¤j±ß¦w¡AÅý¤p§ÌÄmÁàÀ°±z¤@¤U~
    §Úµo²{¯¸¤W»Ý­nEXCEL¤ºªº¸ê®ÆÂনWORDªº»Ý¨D°¸º¸ÁÙ¬O¦³¡A
    ¦ý¬O¬d¯¸¤W¤å³¹©ÎGOOGLE¤W­±¹ï©óEXCEL¤ºªº¸ê®ÆÂনWORD¸ê®Æ¡A
    µ{¦¡½X¼gªº¤º®e¡A¦³¨Ç¼gªº«Ü¤ù¬q¡A¦³¨Ç¼gªº¤èªk¦³ÂI¨±°j¡A

    ©Ò¥H¤p§ÌÄm¤W¦Û¦æ¬ã¨s³Ì²³æ»Pª½Ä±ªº¼gªkµ¹¥¼¨Ó¦³»Ý­nªº¤j®a¡A
    ¥H¤U¬O¥H¦¹ÃD¬°½d¨Òªº¼gªk¡A«ö¤U[¸ê®Æ¼g¤JWORD]«ö¶s¡A«K¯à±NEXCEL¤ºªº¸ê®ÆÂà¼g¨ìWORD¸Ì­±¡G
   
   

   
   
    ªþ¥ó¤@EXCELÀÉ.rar (19.2 KB)
  1. Private Sub CommandButton1_Click()
  2. Dim WDApp As Object
  3. Dim WDDoc As Object
  4. Dim WDSelect As Object
  5. Dim i As Integer
  6. Dim j As Integer
  7. Dim date_str As String
  8. Dim name_str As String

  9. Set WDApp = CreateObject("Word.Application")
  10. Set WDDoc = WDApp.Documents.Add
  11. Set WDSelect = WDApp.Selection

  12. WDApp.Visible = True

  13. With WDSelect
  14.     For i = 2 To 20 Step 3
  15.    
  16.         date_str = Worksheets("¤u§@ªí1").Cells(1, i)
  17.         .TypeText Text:=date_str
  18.         .TypeParagraph
  19.    
  20.         name_str = ""
  21.         For j = 2 To 8
  22.             If Worksheets("¤u§@ªí1").Cells(j, i) = "¨µ" Then name_str = name_str & Worksheets("¤u§@ªí1").Cells(j, 1) & "¡B"
  23.         Next j
  24.         
  25.         .TypeText Text:=Left(name_str, Len(name_str) - 1)
  26.         .TypeParagraph
  27.         .TypeParagraph
  28.     Next i
  29. End With

  30. End Sub
½Æ»s¥N½X
¦³¿ù»~©Î¦³§óºë¶i¼gªk¡A¦A³Â·Ð¯¸¤W«e½ú»P¦U¸ô¤j¯«¤£§[«ü±Ð¡A¨Ó³yºÖ¥¼¨Ó¦³»Ý­nªººô¤Í­Ì¡C

TOP

¤Ó¹ê¥Î¤F~ÁÂÁÂnolookyou´£¨Ñ!

TOP

        ÀR«ä¦Û¦b : ¡i®É¶¡¦pÆp¥Û¡j®É¶¡¹ï¤@­Ó¦³´¼¼zªº¤H¦Ó¨¥¡A´N¦pÆp¥Û¯ë¬Ã¶Q¡F¦ý¹ï·M¤H¨Ó»¡¡A«o¹³¬O¤@§âªd¤g¡A¤@ÂI»ù­È¤]¨S¦³¡C
ªð¦^¦Cªí ¤W¤@¥DÃD