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

[µo°Ý] ½Ð°Ý¦p¦ó¸ó¤u§@ªí¡AŪ¨ú¤½¦¡?

[µo°Ý] ½Ð°Ý¦p¦ó¸ó¤u§@ªí¡AŪ¨ú¤½¦¡?

¤j®a¦n¡A

¤£¦n·N«ä¡A·Q¦A½Ð±Ð¤@­Ó°ÝÃD¡A·Q­n¥H¤u§@ªí1ªº¤½¦¡¬°¼ÒªO¡A¤u§@ªí2ª½±µÅª¨ú¤u§@ªí1ªº¤½¦¡¡G


¡÷¤u§@ªí1ªºC1¦³¤½¦¡¡G=A1*A3  (±o¨ì­È15)


¡÷¤u§@ªí2ªºC1¡A¸Ó¦p¦ó¼g¤½¦¡¡A¤~¯àª½±µÅª¨ú¨ì¤u§@ªí1ªºC1¤½¦¡©O? (·|±o¨ì­È63)
(§Ú¸Õ¹L¥Î=formulatext¡A¦ý¦n¹³¤£¯à¨Ï¥Î)

ªþ¤WªþÀÉ¡G ¬¡­¶Ã¯1.zip (7.58 KB)

¦A³Â·Ð¤j®a¨ó§U¡AÁÂÁ±z­Ì

ALT-F11 ¶}±ÒVB½s¿è¾¹¡A´¡¤J - ¼Ò²Õ¡A¨Ã¶K¤W¤U¦C¦Û­q¨ç¼Æ
Function fml(r)
    Application.Volatile 'True
    fml = Application.Evaluate(Mid(r.Formula, 2))
End Function

¤u§@ªí!C1 ¤½¦¡¿é¤J
=fml(¤u§@ªí1!C1)

¤u§@ªí1 ­Y¦³­×§ï
¤u§@ªí2 ­n«öF9­«·s­pºâ
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

¦^´_ 2# ML089


ÁÂÁ±z¡A¦ý½Ð°Ý¦³¥u¼g¤½¦¡´N¥i¥Hªº°µªk¶Ü?

TOP

¦^´_ 3# gaishutsusuru

³oºØ»Ý¨D¥ÎVBA¤ñ¸û¦n³B²z
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

        ÀR«ä¦Û¦b : ¤H¥Í¨S¦³©Ò¦³Åv¡A¥u¦³¥Í©Rªº¨Ï¥ÎÅv¡C
ªð¦^¦Cªí ¤W¤@¥DÃD