åæ¶æAltåF11è¿å
¥å®çé¢ï¼ç¹èåçæå
¥ï¼æ¨¡åï¼ç²è´´å¦ä¸ä»£ç ï¼
èªå®ä¹å½æ°ï¼
Function ZHSHU(x As Long) As String
Dim i As Long
If x = 1 Then ZHSHU = "??": Exit Function
If x = 2 Or x = 3 Then ZHSHU = "è´¨æ°": Exit Function
For i = 2 To Int(Sqr(x))
If Int(x / i) = x / i Then
ZHSHU = "åæ°"
Exit Function
Else
ZHSHU = "è´¨æ°"
End If
Next i
End Function
åå°Excelä¸ï¼å¨æåå
æ ¼è¾å
¥=ZHSHU(A1) å°±å¯ä»¥è¿åA1æ¯è´¨æ°è¿æ¯åæ°ã
ä¹å¯ä»¥ä¸ç¨èªå®ä¹å½æ°ï¼ç´æ¥è¾å
¥ =IF(A1=1,"??",IF(OR(A1=2,A1=3),"è´¨æ°",IF(OR(INT(A1/ROW((INDIRECT("2:"&INT(SQRT(A1))))))=A1/ROW((INDIRECT("2:"&INT(SQRT(A1)))))),"åæ°","è´¨æ°")))
ä½è¦åæ¶æCtrlãShiftãEnterï¼æ°ç»å
¬å¼ï¼
温馨提示:答案为网友推荐,仅供参考