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

²Õ¦X¦r¦ê¥[¤JªÅ¥Õ¦r¤¸°Ï¹j

²Õ¦X¦r¦ê¥[¤JªÅ¥Õ¦r¤¸°Ï¹j

°ÝÃD´y­z¦p¹Ï¥Ü¡A·q½Ðª©¤Í­Ì«ü±Ð¡AÁÂÁ¡I
Fig_1.JPG

²Õ¦X¦r¦ê¥[¤JªÅ¥Õ°Ï¹j.zip (4.36 KB)

¥»©«³Ì«á¥Ñ Bodhidharma ©ó 2013-5-20 12:48 ½s¿è

¦^´_ 1# p212

¦h¦r¦êµ²¦X¦n¹³¬Ophonetic¨ç¼Æ
¦ý¬Ophonetic¨ç¼Æ¤S¤£¯à¿é¤J¤½¦¡¡A©Ò¥H¨S¿ìªk¨Ï¥Î¹³¬O
{phonetic(1:1&" ")} ¤§Ãþªº¤½¦¡
©Ò¥H¤j·§±o¥Î»²§UÄæ¦C=A1&" "¡A¤U©Ô¥k©Ô
¦A¿ï¾Ü©Ê¶K¤W¡÷­È
µM«á¦A¥Îphonetic³s°_¨Ó

§Ú¤]¤£ª¾¹D¦³¨S¦³§ó¦nªº¤è¦¡
¤j·§±o¼gVBA§a

²Õ¦X¦r¦ê¥[¤JªÅ¥Õ°Ï¹j_sol.rar (4.32 KB)

TOP

°ÝÃD´y­z¦p¹Ï¥Ü¡A·q½Ðª©¤Í­Ì«ü±Ð¡AÁÂÁ¡I
p212 µoªí©ó 2013-5-20 11:09


½Ð°Ñ¦Ò¤@¤U

²Õ¦X¦r¦ê¥[¤JªÅ¥Õ°Ï¹j.rar (8.85 KB)

300 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

½Ð°Ñ¦Ò¤@¤U
zz5151353 µoªí©ó 2013-5-24 22:04



    ª©¥D¡A½Ð°Ý±z¬O¦p¦ó°µªº?¬°¤°»ò§Ú·Ó±zªº¤èªk¥´¡A¥i¬O³£·|¥X²{ #NAME? ©O¡HÁÂÁÂ

TOP

¦^´_ 4# aer

­C¡K¥L¼g¤F¤@­Ó²³æªºµ{¦¡
¥i¥H¨ì¶}µo¤H­û¡÷Visual Basic¡÷¼Ò²Õ ¬d¬Ý

TOP

§Q¥ÎFUNCTION¦Û­q¨ç¼Æ¡A¥H¤À¹j²Å¸¹³s±µ¤å¦r¦ê¡A¥i¯à¸û²³æ«K§Q¡A¤]¸û¨ã¼u©Ê¡I

TOP

  1. Function CONTEXT(inprng As Range, Optional delimiter As String, Optional row1st As Boolean) As String
  2.     'delimiter Optional. String character used to separate the substrings in the returned string.
  3.     'If omitted, a zero-length string (""), all items in the list are concatenated with no delimiters.
  4.     'row1st Optional. Boolean from Row to Column. If omitted, from column to row
  5.     Dim RowN As Double
  6.     Dim ColN%, i%
  7.     Dim TmpAr() As Variant
  8.     RowN = IIf(inprng.Rows.Count < 16384, inprng.Rows.Count, 16384)
  9.     ColN = inprng.Columns.Count
  10.    
  11.     Select Case 0
  12.         Case RowN + ColN - 2
  13.             CONTEXT = inprng
  14.         Case RowN - 1
  15.             CONTEXT = Join(Application.Transpose(Application.Transpose(inprng)), delimiter)
  16.         Case ColN - 1
  17.             CONTEXT = Join(Application.Transpose(inprng), delimiter)
  18.         Case Else
  19.             If row1st = True Then
  20.                 ReDim TmpAr(1 To RowN)
  21.                 For i = 1 To RowN
  22.                     TmpAr(i) = Join(Application.Transpose(Application.Index(Application.Transpose(inprng), , i)), delimiter)
  23.                 Next i
  24.                 CONTEXT = Join(TmpAr, delimiter)
  25.             Else
  26.                 ReDim TmpAr(1 To ColN)
  27.                 For i = 1 To ColN
  28.                     TmpAr(i) = Join(Application.Transpose(Application.Index(inprng, , i)), delimiter)
  29.                 Next i
  30.                 CONTEXT = Join(TmpAr, delimiter)
  31.             End If
  32.     End Select
  33. End Function
½Æ»s¥N½X
¦^´_ 3# zz5151353
ss

TOP

¥»©«³Ì«á¥Ñ c_c_lai ©ó 2013-6-4 06:28 ½s¿è
ª©¥D¡A½Ð°Ý±z¬O¦p¦ó°µªº?¬°¤°»ò§Ú·Ó±zªº¤èªk¥´¡A¥i¬O³£·|¥X²{ #NAME? ©O¡HÁÂÁÂ
aer µoªí©ó 2013-5-25 09:35

E2 (E2Ä椺¤§¿é¤J¤º®e)¡G
  1. =CONCATENATE(A2, " ", B2, " ",C2, " ",D2)
½Æ»s¥N½X
©ÎªÌ¬Oª½±µ¿é¤J¡G
  1. =A2 & " " & B2 & " " & C2 & " " & D2
½Æ»s¥N½X
¨âªÌµ²ªG­È¬O¤@¼Ëªº¡C
´¥Ð«Hªø §õ¥@¥Á ±ä¾Þ ¤ý¤§µA

TOP

¦^´_ 3# zz5151353
ªº½T¶È¯à¥HVBA¸Ñ¨M°ÝÃD¡A«D±`·PÁÂMr. zz5151353´£¨Ñ²¼ä©ú½Tªº³q«h¸Ñªk¡C
ps. ¸ÓVBA»yªk¥²¶·¸m©ó¡u¼Ò²Õ¡v¤º¤è¥iµo´§¥\¯à¡A¤£µM±N·|¥X²{4# Mr. aer©Ò´£¤§¡u¥X²{ #NAME?¡v°ÝÃD¡C

TOP

³o­Ó¦Û­q¨ç¼Æ¥i¥H¦Û¤v³]©w¦ê±µ²Å¸¹¡F °²¦p¦ê±µªº¬O¦hÄæ¦h¦C¡AÁÙ¥i¥H³]©w¥ýÄæ«á¦C¡]©Î¬O¥ý¦C«áÄæ¡^

¦^´_  zz5151353
sunnyso µoªí©ó 2013-6-4 00:29
ss

TOP

        ÀR«ä¦Û¦b : ­ì½Ì§O¤H´N¬Oµ½«Ý¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD