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

½Ð±Ð¤@­Ó§ì¨ú©T©w¦r¼Æ«á¡A«D¬£¨ì¤£¦P¦æªºvba¡C

½Ð±Ð¤@­Ó§ì¨ú©T©w¦r¼Æ«á¡A«D¬£¨ì¤£¦P¦æªºvba¡C

¦U¦ì¤j¤j¦n¡Aªþ¥óÀÉ®×¥]§t¤é¤å¦r¦ê(¥]§t¥­°²»P¤ù°²)¡A§Ú¼g¤F¤@¬qVBA¡A­n¨D±Na1Àx¦s®æªº¤é¤å¦r¦ê¡A¨C35­Ó¦r´«¨ì§OªºÀx¦s®æ¡C¦ý§Úµo²{±a¥Xªº¦r¦ê«D§¹¾ã¦r¦ê¡C½Ð°Ý¬O§_¦³»yªk¥i¥H¸Ñ¨M¡H
¯Ê¤Ö¤U¹Ï¬õ®Ø¤ºªº¦r:


ÀɮפU¸ü¡G
¤é¤å ´ú¸Õ.rar (14.37 KB)

¦^´_ 1# tku0216
¸Õ¥X¨Ó¤F , °Ñ¦Ò¬Ý¬Ý
  1. Sub sep()
  2.     Dim i As Long, j As Long
  3.     Application.ScreenUpdating = False
  4.    
  5.     For i = 1 To Int(Len([A1]) / 35)
  6.         With Cells(i, "B")
  7.             .Value = Mid([A1], 35 * (i - 1) + 1, 35)
  8.             For j = 1 To 35
  9.                 .Characters(j, 1).PhoneticCharacters = [A1].Characters(35 * (i - 1) + j, 1).PhoneticCharacters
  10.             Next
  11.         End With
  12.     Next i
  13.    
  14.     Range("B1:B" & Int(Len([A1]) / 35)).Phonetics.Visible = True
  15.     Application.ScreenUpdating = True
  16. End Sub
½Æ»s¥N½X

TOP

¸É¥R¤@¤U
Range.Phonetics.Visible = True ¬O¥´¶}ª`­µ¼Ð¥ÜÄæ¦ì

TOP

³o¦ì¤j¤j·PÁ±zªº¦^ÂСA¥i§_½Ð±Ð±zªºµ{¦¡½X²Ä8~9¦æªº°j°é¬O¦b°õ¦æ­þ¤@¥ó¨Æ±¡¡H

TOP

¦^´_ 4# tku0216
A1¦r¦ê¤¤¥]§t¤ù°²¦W©Mº~¦r ,
º~¦r¤W¤è¼Ðµùªº¥­°²¦W¬O©ñ¦bª`­µ¼Ð¥ÜÄæ¦ì , ¥L¤£ÄÝ©ó¦r¦ê¥»¨­
¤S¨C¤@­Óº~¦rªº¥­°²¦W¥i¯à¬°¦h­Ó¦r¤¸ , §Yª`­µ¼Ð¥Ü¦r¦ê
8,9¦æ¥u¬O¨ú¥X¨C­Ó¦rªº"ª`­µ¼Ð¥Ü¦r¦ê", ¦Aµ¹¨ìB¤¤¨C­Ó¦rªºª`­µ¼Ð¥ÜÄæ¦ì

TOP

¦^´_  tku0216
A1¦r¦ê¤¤¥]§t¤ù°²¦W©Mº~¦r ,
º~¦r¤W¤è¼Ðµùªº¥­°²¦W¬O©ñ¦bª`­µ¼Ð¥ÜÄæ¦ì , ¥L¤£ÄÝ©ó¦r¦ê¥» ...
stillfish00 µoªí©ó 2012-12-9 19:31



·PÁ¤j¤jªº¦^ÂСA´£¿ô±z¤£¥i¥H¨ú¾ã¼Æ¡A§_«h·|µLªk§ì¨ìµLªk¾ã°£ªº³Ì«á¤@¦æ¡C

TOP

¦^´_ 1# tku0216
¥u¨ú¤é¤å¶Ü?

   
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¬Ý§O¤H¤£¶¶²´¡A¬O¦Û¤v­×¾i¤£°÷¡C
ªð¦^¦Cªí ¤W¤@¥DÃD