´M§ä¯S©w¦r¤¸,¨Ã±N¤§«áªº¦r¤¸§ï¬°¤j¼g
- ©«¤l
- 23
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 36
- ÂI¦W
- 0
- §@·~¨t²Î
- VISTA
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¦Ë«n
- µù¥U®É¶¡
- 2010-7-15
- ³Ì«áµn¿ý
- 2012-4-30
|
¨D¥¨¶°-¤å¦rÀɤ¤¤§¤p¼g^¤åÂà¤j¼g
DEAR ¥ý¶i
¨D¥¨¶°-¤å¦rÀɤ¤¤§¤p¼g^¤åÂà¤j¼g
EX: À˵ø¤å¦rÀɤº¤§^¤å¦r,¦p¦³¤p¼g,±N¥¦§ï¬°¤j¼g¨ú¥N¤§.
PS: ¦³¼ÆÓ¤å¦rÀɦAÀˬd
¥H¤W,¦AÀ°¦£.. |
|
|
|
|
|
|
¡@¼ÊºÙ: ªü¦N ¡@ÀY»Î: ¤£®¢¤U°Ý,¤£Â_¾Ç²ß,¤~·|¶i¨B
ª©¥D
- ©«¤l
- 647
- ¥DÃD
- 190
- ºëµØ
- 24
- ¿n¤À
- 1037
- ÂI¦W
- 0
- §@·~¨t²Î
- windows7
- ³nÅ骩¥»
- Office 2010 ; OOO3.0 ; Google
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¦Ë«n
- µù¥U®É¶¡
- 2010-5-2
- ³Ì«áµn¿ý
- 2022-6-24
|
¥»©«³Ì«á¥Ñ HUNGCHILIN ©ó 2011-2-9 19:31 ½s¿è
³oºØ¥¨¶°»Ý¨D¶q«Ü¤j
ºô¤W¤]»á¦h
«Ý§Ú§ä¤@¤U
---------------------------------------------------------------------------
§Ú«Ü¤[¥H«e¦³µo¹L©« ¦bOFFICEºë^Ñ乐³¡¡y VBA¥æ¬y ¡zExcel ¼W¯q¶°(¥[¸ü§»)±M°Ï
#13 ©«
*********************************************
²{¦b©ñ¤W¨Óªº¬O§Ú¥H«eªº¤@Ó§@«~
¬O¥Î¨ÓÂà´«^¤å¤j¤p¼g¥Îªº
¥un¶}±ÒSETUP¨ºÓÀÉ
«öSETUP´N¥i¥H¤F
*********************************************
[ ¥»©«³Ì¦Z¥Ñ HUNGCHILIN ¤_ 2006-10-22 21:37 编辑 ]
¦Û°Ê¦w¸Ë(&¨Ï¥Î»¡©ú)¤j¤p¼gÂà´«.rar (86.09 KB)
µ¥¤@¤U §Ú¦n¹³¦³§ï½s¹L ¨ì¶i¶¥¦¨«~°Ï¥h¤U¸ü
http://forum.twbts.com/thread-2599-1-1.html |
|
|
|
|
|
|
- ©«¤l
- 23
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 36
- ÂI¦W
- 0
- §@·~¨t²Î
- VISTA
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¦Ë«n
- µù¥U®É¶¡
- 2010-7-15
- ³Ì«áµn¿ý
- 2012-4-30
|
DEAR Hsieh ¥ý¥Í
¤£¦n·N«ä,¤Sn³Â·Ð±z¤F,
¬O§_¥iÀ°¦£§ï¤@¤U,
ex:
,¦b A¸ê®Æ§¨¤¤¤§ ©Ò¦³ txt ÀÉ, ¤¤¤§©Ò¦³^¤å¦r,¤p¼g§ï¤j¼g, ¤j¼g§ï¤p¼g,
Àx¦s©óì¸ê®Æ§¨,
«ôӱߦ~,, ·s¦~§Ö¼Ö..
ths.
txiec |
|
hi...
|
|
|
|
|
- ©«¤l
- 23
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 36
- ÂI¦W
- 0
- §@·~¨t²Î
- VISTA
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¦Ë«n
- µù¥U®É¶¡
- 2010-7-15
- ³Ì«áµn¿ý
- 2012-4-30
|
DEAR DEAR Hsieh ¥ý¥Í
¤£¦n·N«ä.. ¶]¤£°Ê, ¥X²{:§ä¤£¨ìÀÉ®×.. :
¤£ª¾,½Ð¦AÀ°¦£×¤@¤U,
¥t½Ð±Ð,
1. ¦p¨Ó·½¸ê®Æ§¨,n³]¦bEXCEL A2Äæ¦ì¤¤,À³¦p¦ó×.
2. ¦p¨Ó·½ÀÉ®×,µLªþÀɦW. ¨º¥Î fd = "temp.txt" '¼È¦sÀɹw³]¥Ø¿ý§Úªº¤å¥ó,¦^¦s©ó®É,·|¼vÅTÀɦW,
¥H¤W,¦A³Â·Ð¤F,,. |
|
hi...
|
|
|
|
|
- ©«¤l
- 23
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 36
- ÂI¦W
- 0
- §@·~¨t²Î
- VISTA
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¦Ë«n
- µù¥U®É¶¡
- 2010-7-15
- ³Ì«áµn¿ý
- 2012-4-30
|
DEAR Hsieh ¥ý¥Í
¤£¦n·N«ä.. ¶]¤£°Ê, ¥X²{:§ä¤£¨ìÀÉ®×.. :
¤£ª¾,½Ð¦AÀ°¦£×¤@¤U,
1. ¦p¨Ó·½¸ê®Æ§¨,n³]¦bEXCEL A2Äæ¦ì¤¤,À³¦p¦ó×.
2. ¦p¨Ó·½ÀÉ®×,µLªþÀɦW. ¨º¥Î fd = "temp.txt" '¼È¦sÀɹw³]¥Ø¿ý§Úªº¤å¥ó,¦^¦s©ó®É,·|¼vÅTÀɦW,
3. ¥u»Ý¨DÀˬd¤Î§ï¤º®e¤¤¤§¯S§O¦WºÙ¤§«á¤§¦r¤¸.
EX:
A¸ê®Æ§¨¤¤¤§
12 Àɮפ¤¤§
Ad(2): aer2,AER3,
We1 Rf : aer2
We2 Rf : AER3
Âন:
AD(2): AER2,AER3,
We1 Rf : AER2
We2 Rf : AER3
13 Àɮפ¤¤§
Ad(3): aers4,aes5,AERS6
We1 Rf : aers4
We2 Rf : aes5
We3 Rf : AERS6
Âন:
Ad(3): AERS4,AES5,AERS6
We1 Rf : AERS4
We2 Rf : AES5
We3 Rf : AERS6
¥H¤W,¦A³Â·Ð¤F,,.
hi... |
|
hi...
|
|
|
|
|
- ©«¤l
- 23
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 36
- ÂI¦W
- 0
- §@·~¨t²Î
- VISTA
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¦Ë«n
- µù¥U®É¶¡
- 2010-7-15
- ³Ì«áµn¿ý
- 2012-4-30
|
DEAR . ¥ý¶i,,
½Ð¦A¼·ªÅ,µ¹Ó²³æ¥i¥Î¤§¥¨¶°µ{¦¡,,,,
¸U¤À·PÁÂ...
¯¬¤ß¶¶,, |
|
hi...
|
|
|
|
|
- ©«¤l
- 23
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 36
- ÂI¦W
- 0
- §@·~¨t²Î
- VISTA
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¦Ë«n
- µù¥U®É¶¡
- 2010-7-15
- ³Ì«áµn¿ý
- 2012-4-30
|
´M§ä¯S©w¦r¤¸,¨Ã±N¤§«áªº¦r¤¸§ï¬°¤j¼g
dear . ¥ý¶i,,
½Ð¦AÀ°¦£ §ï¤@¤U,
¥H¤U¬°,¥ý«e¥Îªº... ±N¤å¦rÀɤº¤§¦Pexcel a5 ¤º®e,¨ú¥N¬° b5 ,save.
»Ý¨D.
mystr = Replace(TEXTLINE, [a5], [b5]) ->>>>>>>??
¦p¦ó§ï¦¨, ´M§ä¯S©w¦r¤¸,¨Ã±N¤§«áªº¦r¤¸§ï¬°¤j¼g ??
½Ð¦AÀ°¦£..
Sub date_change()
fd = [a2]
fo = [B2]
If Dir(fo, vbDirectory) = "" Then
MkDir fo
End If
fs = Dir(fd & "*.CSV")
Do Until fs = ""
Open fo & fs For Output As #2
Open fd & fs For Input As #1
Do While Not EOF(1)
Line Input #1, TEXTLINE
mystr = Replace(TEXTLINE, [a5], [b5]) ->>>>>>>??
Print #2, mystr
Loop
Close #1
Close #2
'Kill fd & fs
fs = Dir()
Loop
End Sub |
|
hi...
|
|
|
|
|
- ©«¤l
- 472
- ¥DÃD
- 5
- ºëµØ
- 0
- ¿n¤À
- 485
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows
- ³nÅ骩¥»
- MS Office
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- »´ä
- µù¥U®É¶¡
- 2010-7-4
- ³Ì«áµn¿ý
- 2014-12-28
|
§Aªº·N«ä¬O....:
ì¤å¬Oabcde
1.§äcd
´«¦¨ZX
->
abZXe
ÁÙ¬O....
2.
§äcd
´«¦¨zx
->
abzxE
ÁÙ¬O....
3.
§äcd
´«¦¨zx
->
CDZXE
¦pªG§A´£¨Ñªº¥N½X¨S¿ù
1ªº°µªk:
mystr = Replace(TEXTLINE, [a5], UPPER([b5]))
3ªº°µªk:
mystr = UPPER(Replace(TEXTLINE, [a5], [b5])) |
|
|
|
|
|
|