µù¥U
µn¿ý
º¶
½×¾Âª©³W
¸T¤î¦Cªí
»¡©ú
¦a¹Ï
¼Æ¦ì®Ñ»
¨p¤H®ø®§ (0)
¤½¦@®ø®§ (0)
½×¾Â¥ô°È (0)
¨t²Î®ø®§ (0)
¦n¤Í®ø®§ (0)
©«¤l®ø®§ (0)
³Â»¶®a±Ú°Q½×ª©ª©
»
Excelµ{¦¡°Ï
» EXCEL¯Zªíµ{¦¡¦Û°ÊÂà´«WORD
ªð¦^¦Cªí
¤U¤@¥DÃD
¤W¤@¥DÃD
µo©«
[µo°Ý]
EXCEL¯Zªíµ{¦¡¦Û°ÊÂà´«WORD
nolookyou
µoµu®ø®§
¥[¬°¦n¤Í
nolookyou
·í«eÂ÷½u
UID
3325
©«¤l
65
¥DÃD
18
ºëµØ
0
¿n¤À
71
ª÷¿ú
71
ÂI¦W
0
§@·~¨t²Î
WINXP¡B7¡B10¡BSERVER2012
³nÅ骩¥»
Office 2010-2016
¾\ŪÅv
20
©Ê§O
¨k
¦b½u®É¶¡
41 ¤p®É
µù¥U®É¶¡
2011-1-27
³Ì«áµn¿ý
2021-10-7
¤¤¾Ç¥Í
©«¤l
65
¥DÃD
18
ºëµØ
0
¿n¤À
71
ÂI¦W
0
§@·~¨t²Î
WINXP¡B7¡B10¡BSERVER2012
³nÅ骩¥»
Office 2010-2016
¾\ŪÅv
20
©Ê§O
¨k
µù¥U®É¶¡
2011-1-27
³Ì«áµn¿ý
2021-10-7
1
#
¸õÂà¨ì
»
µoªí©ó 2018-5-23 18:04
|
Åã¥Ü¥þ³¡©«¤l
¦^´_
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
¤U¸ü
(63.94 KB)
2018-5-23 18:02
¤U¸ü
(60.2 KB)
2018-5-23 18:03
ªþ¥ó¤@EXCELÀÉ.rar
(19.2 KB)
¤U¸ü¦¸¼Æ: 16
2018-5-23 18:03
Private Sub CommandButton1_Click()
Dim WDApp As Object
Dim WDDoc As Object
Dim WDSelect As Object
Dim i As Integer
Dim j As Integer
Dim date_str As String
Dim name_str As String
Set WDApp = CreateObject("Word.Application")
Set WDDoc = WDApp.Documents.Add
Set WDSelect = WDApp.Selection
WDApp.Visible = True
With WDSelect
For i = 2 To 20 Step 3
date_str = Worksheets("¤u§@ªí1").Cells(1, i)
.TypeText Text:=date_str
.TypeParagraph
name_str = ""
For j = 2 To 8
If Worksheets("¤u§@ªí1").Cells(j, i) = "¨µ" Then name_str = name_str & Worksheets("¤u§@ªí1").Cells(j, 1) & "¡B"
Next j
.TypeText Text:=Left(name_str, Len(name_str) - 1)
.TypeParagraph
.TypeParagraph
Next i
End With
End Sub
½Æ»s¥N½X
¦³¿ù»~©Î¦³§óºë¶i¼gªk¡A¦A³Â·Ð¯¸¤W«e½ú»P¦U¸ô¤j¯«¤£§[«ü±Ð¡A¨Ó³yºÖ¥¼¨Ó¦³»Ýnªººô¤ÍÌ¡C
TOP
ÀR«ä¦Û¦b :
§g¤l¬°¥Ø¼Ð¡A¤p¤H¬°¥Øªº¡C
ªð¦^¦Cªí
¤U¤@¥DÃD
¤W¤@¥DÃD
EXCEL±MÄÝ°Q½×°Ï
Excel£¸¯ë°Ï
Excelµ{¦¡°Ï
¶i¶¥À³¥Î±M°Ï
OFFICE ¨t¦C
Word
PowerPoint
Access
Office¤£¤À°Ï
µ{¦¡»y¨¥
VB »P VB.Net
C »P C#
Java »P J#
µ{¦¡³]p¤£¤À°Ï
¸ê®Æ®w
ORACLE
My SQL
MS SQL
ºô¶³]p
ASP »P ASP.NET
PHP
PHP+MySQL ¤Jªù¹ê§@
JavaScript
FLASH / ActionScript
HTM/ HTML/ CSS
ºô¶³]p¤£¤À°Ï
¹q¸£»P§@·~¨t²Î
¹q¸£¦UºØµwÅé°Q½×
¤@¯ë¹q¸£³nÅé°Q½×
½×¾Â¨Æ°È
ºÞ²z¤½§i
§ë¶D¤Ï¬M
·s¤â´ú¸Õ
·R ¡E ¥Í¬¡
¤½¯q§G§iÄæ
¥Í¬¡»P·P°Ê
[¦¬Âæ¹¥DÃD]
[Ãöª`¦¹¥DÃDªº·s¦^´_]
[³q¹L QQ¡BMSN ¤À¨Éµ¹ªB¤Í]
¥Ó½Ð¤Í±¡Ãì±µ
Facebook¯»µ·