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

[µo°Ý] §Ö³t¤W¤âC#

[µo°Ý] §Ö³t¤W¤âC#

·Q½Ð°Ý¦U¦ì°ª¤â¡A¨Ï¥Î¢Ñ¡­¨Ó°µµ{¦¡³]­p°£¤FMicrosoft Visual Studio¤§¥~¡AÁÙ¯à¥Î¤°»ò½s¿è¾¹¡A·Q­n¼g¤@­Ó¤¤¤å¦r¼Ðª`ª`­µªºµ{¦¡¤S­n¦p¦ó¼g©O¡H
¼Ó¥D¼ö©«

¦^´_ 19# mamimumemo


    ª`­µ¦r¨å¸ê®Æ®w¨ä¹ê¨Ã¤£·|Ãe¤j¡A­Y¥HC#¨Ó«Ø¥ßª`­µ¦r¨å¤]¤£¬O«Ü§xÃøªº¨Æ¡C
¤U­±ÀɮסA¥u´£¨Ñ³¡¥÷¸ê®Æ®w(®¤¤£´£¨Ñ§¹¾ã¸ê®Æ®w)¡A¨ä¹ê¥¦´N¬O¤@­Ó¤å¦rÀɮצӤw
Debug.rar (9.64 KB)

TOP

¦^´_ 18# SkyBear

³o­Ó¤èªk¡A¤£¿ù³á¡I

¥u¬O¡A³o­Ó¸ê®Æ®w¡A·|«ÜÃe¤j®@¡I
­n§â«Ü¦hªº°ê¦r¤Î°ê¦rªºª`­µ³£¯Ç¶i¥h
¦A§Q¥Î¤ñ¹ïªº¤è¦¡¡A§ä¥X¸Ó°ê¦r¦s¦b¦¹¸ê®Æ®wªºª`­µ¡C

³oªº½T¬O¤@­Ó¦n¤èªk¡C
¥u¬O¤£ª¾¹D¨C­Ó¦r³£­n¥h¸ê®Æ®w¸Ì¤ñ¹ï¡A·|¤£·|«Ü®øÓN®É¶¡©O¡H
ÁÙ¦³³o­Ó¸ê®Æ®w­n«ç»ò¯à°÷§Ö³t¦a«Ø°_¨Ó©O¡H

TOP

¦^´_ 17# mamimumemo

³o¬O¤@­Ó¦nºô¯¸¡A§Ú¦b·Q³Ì§Öªº¤è¦¡´N¬O¡G¸ê®Æ®w
§Q¥Î¸ê®Æ¤ñ¹ï¸ê®Æ®w¡A¨q¥X¬Û¹ïÀ³ªºª`­µ¡I¡I

TOP

¦^´_ 16# SkyBear

¬O§r¡I
§Ú¤]¦³¦b·Q¡A¦³¨S¦³¤°»ò¥i¥H¦Û°Êªº¤èªk¡A
µ{¦¡½X¯à°÷¦Û°Ê¿ëÃÑ¥Xª`­µ²Å¸¹¡AµM«á§â¥¦¼g¶i¥h¡C
¦³­Óºô­¶´N¯à°÷°µ¨ì³o­Ó¥\¯à
https://www.chineseconverter.com/zh-tw/convert/zhuyin
¤£ª¾¥¦¸Ì­±ªº¾÷¨î(µ{¦¡âó¬O«ç»ò¶]ªº)¬O«ç»ò¼Ë¡H¡H

TOP

¦^´_ 13# mamimumemo



ActiveCell.Characters(1, 1).PhoneticCharacters = "£}£­£¿ "
³o¤@¬qÀ³¸Ó¬O­n¦Û¤v¿é¤Jªº§a?

TOP

¦^´_ 12# mamimumemo

ª`­µªº³¡¤À§Ú³£¬O¥Îwordªº¥\¯àÂà¥X¨Óªº,
³o¬O¥Ø«e¸Õ¥X¨Ó³Ì§Öªº¤èªk ^^

TOP

  1.     Selection.Phonetics.Visible = True
  2.     With Selection.Font
  3.         .Name = "¤ýº~©v¤¤·¢Åéª`­µ"
  4.         .Size = 12
  5.         .Strikethrough = False
  6.         .Superscript = False
  7.         .Subscript = False
  8.         .OutFont = False
  9.         .Shadow = False
  10.         .Under = xlUnderStyleNone
  11.         .ThemeColor = xlThemeColorLight1
  12.         .TintAndShade = 0
  13.         .ThemeFont = xlThemeFontNone
  14.     End With
½Æ»s¥N½X
³o¤@¬q¬O¡A§Ú¿ï¾Ü¦r«¬®É¡A¥X²{¦bµ{¦¡½X¤ù¬q¡C
§¹¥þ¬Ý¤£¨ì¦³¥ô¦óªºª`­µ²Å¸¹¡A¤£ª¾¹D¡A¥¦¬O¥Î¤°»ò¤è¦¡¡AÅã²{ª`­µªº¡C><"

TOP

§Ú·Q¨ì¤@¥ó¨Æ¡A¥i¥H¥Î¥¨¶°¿ý»s¡A¬Ý¥¦ªºµ{¦¡½X«ç»ò¼g¡A
§Ú¿ý¤F¤@¬q¡A¥i¥Hµ¹§A°Ñ¦Ò¬Ý¬Ý¡G
¡y
    ActiveCell.FormulaR1C1 = "«È"
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "«È"
    ActiveCell.Characters(1, 1).PhoneticCharacters = "£}£­£¿ "
    Range("D1").Select
    ActiveCell.FormulaR1C1 = "=MID(PHONETIC(RC[-3]),1,1)"
    Range("D2").Select
¡z
»¡¤£©w¥i¥Hµ¹§A¤@ÂI±Òµo¡C^^

TOP

Image 3.png

§Ú¸Õ¹L¤F¡A¯uªº¥i¥H­C¡C:lol
¦³·N«ä¡I¡I

¥u¬Oª`­µ³£¥²¶·­n¤â°Ê¤@­Ó¤@­Ó¥´¤W¥h ¡A¯uªº«Ü¤£¤è«K¡C><"

ª`­µ¦b¥kÃ䪺¡A¯uªº§ì¤£¨ìª`­µ²Å¸¹¡A¥u§ì±o¨ì¤å¦r¡C:(

TOP

        ÀR«ä¦Û¦b : ¬O«D·í±Ð¨|¡AÆg¬ü§@ĵ±§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD