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

¤@Àx¦s®æ ¥ÎIF ¦h§PÂ_¦¡ Åã¥Ü¤£¦P­Èor¤å¦r

  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2. If Target.Address <> "$B$1" Then Exit Sub
  3. [a1] = Mid("¤þ¤A¥Ò", InStr("§A§Ú¥L", [b1]), 1)
  4. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¦h°µ¦h±o¡C¤Ö°µ¦h¥¢¡C
ªð¦^¦Cªí ¤W¤@¥DÃD