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

[µo°Ý] ¸ê®Æ½Æ¼Æ¦^¶Ç

[µo°Ý] ¸ê®Æ½Æ¼Æ¦^¶Ç

½Ð°Ý«e½ú­Ì
¦³¬Æ»ò¤èªk, ¥i¦æ,
Ãö©ó¸ê®Æ½Æ¼Æ¦^¶Ç

¥Ñ©ó¶À¦â°Ï¶ô¨C¤@®æ³£¦³¨ç¦¡¡A
¶À¦â°Ï¶ô¦³¸ê®ÆÅã¥Ü®É¡A¡@
«h¶i¦æ¸ê®Æ¦^¶Ç¡A

¥Ñ©ó¶À¦â°Ï¶ôÅã¥Ü®É¡A¥i¯à·|¦³¦hµ§©Î³æ³æ¤@µ§¸ê®Æ
¦pªG¥u¦³¥X²{¤@µ§¸ê°TÅã¥Ü¡A«hÅã¥Ü³æ¤@¸ê°T
¦pªG¦³½Æ¼Æ¥H¤W¸ê°TÅã¥Ü¡A¡@«h¨Ï¥Î¦X¨Ö¦³¥X²{ªº¸ê®Æ
Åã¥Ü¤èªk
¥Ñ¥ª¦Ü¥k¶i¦æ¤ñ¹ï

¥i³z¹L¤@¯ë¨ç¦¡¶i¦æ¶Ü¡A¡@
·QÅý¸ê°T¶i¦æ§Y®É§ó·s¡D

¦pªG¬O³z¹L¢ä¢Ð¢Ï¡A¡@¥i¯à´NµLªk§Y®É§ó·s¤F

¥H¤U¬°¥Ü·N¹Ï
¥Ü·N¹Ï2.png
2018-7-12 01:31


ªþÀÉ
EXCEL_°ÝÃD.rar (9.4 KB)

¤@¤À§V¤O¡A¤@¤À¦¬Ã¬¡C
µo°ÝÃD«e¥i¥H¥ý·j¯Á¤º¤å¬O§_¦³¬ÛÃö½d¨Ò¡C

TOP

¦^´_ 2# faye59

±z¦n,
¨ä¹ê§Ú¬O·Q¤F¸Ñ,
¦pªG¬O¤£¨Ï¥ÎVBAªº±¡ªp¤U,

³æ¯Â¨Ï¥Î¨ç¥Üªº¸Ü,
¦³µL¥i¯à,
¥Ñ¥ª¦Ü¥kªº¤è¦¡, ½T»{¨C¤@Ä檺¸ê®Æ¬O¦³Åã¥Ü,
¦pªG»¡¬O¸ê®ÆµLÅã¥Üªº¸Ü, ¾ï¦âªºÄæ¦ì«h¤£¶i¦æ¦r¦ê²Õ¦X.

¦pªG»¡¬O¸ê®Æ¦³Åã¥Üªº¸Ü,
¸ê®Æ¥uÅã¥Ü¤@µ§ªº¸Ü, ¾ï¦âªºÄæ¦ì¶i¦æ²Õ¦X(¶È¤@µ§)
¸ê®Æ¥uÅã¥Ü¦hµ§ªº¸Ü, ¾ï¦âªºÄæ¦ì¶i¦æ²Õ¦X(¦hµ§²Õ¦X)
Ãþ¦ü¶À¦â°Ï¶ô¦pªG¦³Nµ§, ¾ï¦âªºÄæ¦ì«h§âNµ§²Õ¦X, ¨Ã³z¹L"," ,¹j¶}
¦³µL¥i¯à©Êªº¤èªk, ÁÂÁÂ.

ÁÙ¬O³o³¡¤À¥u¯à³z¹LIF ³vÄæ¦ì¶i¦æ§PÂ_²Õ¦X.

°Ñ¦Ò¹Ï
¥Ü·N¹Ï2 - ½Æ»s.png
2018-7-12 23:04

TOP

¦^´_ 3# s13983037


    §Ú¥ý¥Î¨ì³o¤F...
½Ð±Ð¨ä¥L¤j¯«¦£­×§ï§a...¹L´X¤Ñ§Ú¦b¹Á¸Õ¬Ý¬Ý...
¥ý¸Õ¸Õ¬Ý¬O¤£¬O³oÁ`Ãþ¦üªºµ²ªG¡A
¸õ¹LªÅ®æ§PÂ_³o­Ó§Ú¤]¤£¬O«ÜÀ´...

[µo°Ý] Calculate¡A¯à§_¦^¶Çµo¥ÍÅܰʪºÀx¦s®æªºÄæ¦ì
§ÚÁÙ¦b°Ñ¦Ò³o½g¤å³¹¬Ý­n«ç»ò§ï¡C

EXCEL °ÝÃD0713.rar (15.17 KB)

¤@¤À§V¤O¡A¤@¤À¦¬Ã¬¡C
µo°ÝÃD«e¥i¥H¥ý·j¯Á¤º¤å¬O§_¦³¬ÛÃö½d¨Ò¡C

TOP

¦^´_ 3# s13983037


    ¤µ¤Ñ¬Ý¨ì¨ä¥L°ª¤âªº¼gªk¡A­×§ï«á¬Ý¬O¤£¬O§A­nªºµ²ªG¡C

EXCEL °ÝÃD0715.rar (14.37 KB)

¤@¤À§V¤O¡A¤@¤À¦¬Ã¬¡C
µo°ÝÃD«e¥i¥H¥ý·j¯Á¤º¤å¬O§_¦³¬ÛÃö½d¨Ò¡C

TOP

¦^´_ 5# faye59


    ÁÂÁ§A(©p),
    §Ú¸ÑÀ£ÁY³nÅ骺WINRARªº
    §ÚµLªk¸Ñ¶}³o­ÓRARÀÉ
    ¤£ª¾¹D±z³oÃäÀ£ÁYªº³nÅé¬O??
    :)

TOP

¦^´_ 6# s13983037


    ¬O.rar¨S¿ùªü¡C
§ÚªºWinRARª©¥»5.60(64¦ì¤¸)

EXCEL °ÝÃD0715.rar (14.37 KB)

¤@¤À§V¤O¡A¤@¤À¦¬Ã¬¡C
µo°ÝÃD«e¥i¥H¥ý·j¯Á¤º¤å¬O§_¦³¬ÛÃö½d¨Ò¡C

TOP

¦^´_ 6# s13983037
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2. If Intersect(Target, [B5:K14]) Is Nothing Then Exit Sub
  3.     ex
  4. End Sub
½Æ»s¥N½X
  1. Sub ex()
  2. Dim Out As Variant
  3. For n = 5 To 16
  4. Out = Array(Cells(n, 3), Cells(n, 4), Cells(n, 5), Cells(n, 6), Cells(n, 7), Cells(n, 8), Cells(n, 9), Cells(n, 10), Cells(n, 11))
  5. ub = UBound(Out)
  6. For i = 0 To ub
  7. If Out(i) <> "" Then: OutAll = OutAll & "." & Out(i)
  8. Next
  9. Cells(n, 13) = Mid(OutAll, 2, 99)
  10. OutAll = ""
  11. Next
  12. End Sub
½Æ»s¥N½X
¤@¤À§V¤O¡A¤@¤À¦¬Ã¬¡C
µo°ÝÃD«e¥i¥H¥ý·j¯Á¤º¤å¬O§_¦³¬ÛÃö½d¨Ò¡C

TOP

¦^´_ 8# faye59


    ÁÂÁÂ, ¤F¸Ñ, §Ú¦b¦Û¤v­×§ï¤@¤U, ´N®t¤£¦h¤F
   ·PÁÂ^^

TOP

¦^´_ 9# s13983037
VBA¦Û¤v©w¸q¨ç¦¡¡AÁÙ¬O¯à§Y®É§ó·s
¼Ò²Õ¤¤¿é¤J
  1. Public Function MyJoin(source As Range, delimiter As String, Optional ignoreEmpty = True) As String
  2.     For Each x In source
  3.         If Not ignoreEmpty Or Len(x) > 0 Then
  4.             MyJoin = MyJoin & IIf(Len(MyJoin) = 0, "", delimiter) & x.Text
  5.         End If
  6.     Next
  7. End Function
½Æ»s¥N½X
M5¶ñ¤J =MyJoin(C5:K5, ",", TRUE)
²Ä¤@­Ó°Ñ¼Æ¬Oµ²¦Xªº½d³ò¡A²Ä¤G°Ñ¼Æ¬O­n¨Ï¥Îªº¤À¹j²Å¸¹¡A²Ä¤T°Ñ¼Æ¬O¥Î¨Ó¿ï¾Ü¬O§_­n©¿²¤ªÅ¥Õ¡C
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

        ÀR«ä¦Û¦b : µêªÅ¦³ºÉ¡D§ÚÄ@µL½a¡AµoÄ@®e©ö¦æÄ@Ãø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD