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

[µo°Ý] Ãö©ó ¦ê³s¦r¦ê & ¤j¶q¦ê³s¦b¦P¤@Àx¦s®æ

[µo°Ý] Ãö©ó ¦ê³s¦r¦ê & ¤j¶q¦ê³s¦b¦P¤@Àx¦s®æ

½Ð°Ý¦pªG­n¤@¦¸¦ê³s¤j¶qªºÀx¦s®æ¦b¤@­ÓÀx­È®æ &
Á|¨Ò:¹ê»Ú·|¦³¼Æ¤Q­Ó
A
B
C
D

¿é¥Xµ²ªG:ABCD

¦^´_ 1# starry1314
¦pªGÀx¦s®æ¤º®e¬Ò¬°¤å¦r¡A¥i¥Î
PHONETIC(Àx¦s®æ½d³ò)
½Ð°Ñ¦Ò¡I

TOP

¦^´_ 2# p212


    ¤Ó·PÁ¤F~³£§Ñ¤F¥H«e¥Î¹L³o­Ó¨ç¼Æ¡I¡I¡I

TOP

¦^´_ 2# p212



EX:   A1=¥x¤¤  A2=¤j§ A3=¯ó¤Ù
        B2¤½¦¡(=A1&A2)=¥x¤¤¤j§
        C3¤½¦¡(=A1&A3)=¥x¤¤¯ó¤Ù

½Ð°Ý¦³¤°»ò¤èªk¥i¤j¶q¦ê³s¤½¦¡Åã¥Ü¥X¨Óªº¦r¦ê

ÅýD1 ¥iÅã¥Ü¥X¨Ó ¥x¤¤¤j§ ¥x¤¤¯ó¤Ù

TOP

¦^´_ 4# starry1314
PHONETIC¨ç¼Æ¥u¯à¥Î¦b¤å¦r¡AÀx¦s®æ¤º®e¬°¤½¦¡¡B¼Æ­È¬ÒµLªk¨Ï¥Î
¦Ó¤º«Ø¦r¦ê¨ç¼Æ¨ÃµL³B²zÃþ¦ü¤j½d³òªº¦ê³s¨ç¼Æ
¥²¶·¥HVBA»²§U¤è¥i¹F¦¨
­Y¤£¨Ï¥ÎVBA¨º»ò¥H§A©ÒÁ|¨Ò¤l¡A¥u­n±NB2:C3Àx¦s®æ½Æ»s¡A¿ï¾Ü©Ê¶K¤W/­È¡AµM«á¥ÎPHONETIC¨ç¼Æ§Y¥i
D1=PHONETIC(B2:C3)

¥t´£¨Ñ°ò¥»¾Þ§@½Æ»s¶K¤W°Êµe¨Ñ±z°Ñ¦Ò
play.gif
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 5# Hsieh


    ¨º½Ð°Ý§Aª¾¹D¦p¦ó¼gªk¶Ü?©Î¬O¦³¤°»ò¤è¦V¶Ü?

¦]¬°»Ý­n³B²zªº¼Æ¶q¨C¤Ñ³£·|¦³ªñ¤dµ§,©Ò¥H¤@ª½­«½Æ¶K¤W­È·|¸ûÁcº¾,
·íµM¦b¨S¦³¿ìªk¤§«e¥u¯à¥ý³o¼Ë¾Þ§@¤F

TOP

±q¤å¦r¦r¦ê¤¤©â¿ïª`­µ¼Ð¥Ü (Furigana) ¦r¤¸¡C

¦pªGÀx¦s®æ C4 ¥]§t "   " ¦ÓÀx¦s®æ B7 ¥]§t "   "¡A«h¥H¤U¬° True¡G

=PHONETIC(C4) equals "      "

=PHONETIC(B7) equals "     "


--------------------------------------------------------
¯u©_©Ç¡A³o­Ó¨ç¼Æªº»¡©ú«ç»ò¬Ý³£¤£¬O¥Î¦b³oºØµ²¦Xªº¥Øªº¤W..

¦ý§Ú¹ê»Ú¥h¾Þ§@¡Aªº½T¥i¥H¹F¨ì ¼Ó¥Dªº¥Øªº....

TOP

±q¤å¦r¦r¦ê¤¤©â¿ïª`­µ¼Ð¥Ü (Furigana) ¦r¤¸¡C

¦pªGÀx¦s®æ C4 ¥]§t "   " ¦ÓÀx¦s®æ B7 ¥]§t "   "¡A«h¥H¤U ...
vanguarx µoªí©ó 2015-4-24 17:00



    ½Ð°Ý¥i¥H¦³¸û¸Ô²Óªº»¡©ú¶Ü??¦]§Ú¾Þ§@®É¤@ª½²£¥Í¿ù»~

TOP

¦^´_ 6# starry1314
VBA¼g­Ó¦Û­q¨ç¼Æ¼W¯q¶°¨Ó¸Ñ¨M¤j½d³òÀx¦s®æ¤º®e
±NÀɮ׸ÑÀ£ÁY¨ìOFFICE¼W¯q¶°¥Ø¿ý
C:\Users\[Username]\AppData\Roaming\Microsoft\AddIns
¸ü¤JConnectStr.xla¼W¯q¶°
´N¯à¦b¹q¸£¤¤¨Ï¥Î¸Ó¨ç¼Æ

ConnectStr.zip (8.82 KB)
  1. Function ConnectStr(Rng As Range, dot As String) 'Rng¬°³sÀx¦s®æ½d³ò¡Adot¬°³sµ²²Å¸¹
  2. Dim Ay(), i&, s&
  3. ar = Rng.Value
  4. For i = 1 To UBound(ar, 1)
  5. For Each a In Application.Transpose(Application.Index(ar, i))
  6.    If a <> "" Then
  7.       mystr = IIf(mystr = "", a, mystr & a & dot)
  8.    End If
  9. Next
  10.    ReDim Preserve Ay(s)
  11.    Ay(s) = mystr
  12.    mystr = ""
  13.    s = s + 1
  14. Next
  15. ConnectStr = Join(Ay, dot)
  16. End Function
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 9# Hsieh


¨¯­W¤F~ÁÙ±Mªù§Ë¤@­ÓÀÉ®×¥X¨Ó¡I©ú¤Ñ¤W¯Z®É¦A¨Ó´ú¸ÕÅo¡ã

ÁÂÁÂÅo¡ã¥t·Q½Ð°Ý­n¾Ç¦n¢ä¢Ð¢Ï¡@¦³¤°»ò«Øijªº°ò¦®ÑÄy¥i¤¶²Ð©O¡H

TOP

        ÀR«ä¦Û¦b : ®É®É¦n¤ß´N¬O®É®É¦n¤é¡C
ªð¦^¦Cªí ¤W¤@¥DÃD