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

[µo°Ý] ¥i§_­­©w¸Õºâªí ¶È¬Y³¡¤À¦Û°Ê­pºâ

[µo°Ý] ¥i§_­­©w¸Õºâªí ¶È¬Y³¡¤À¦Û°Ê­pºâ

¦U¦ì¤j¤j¡A§Ú²{¦b»s§@¤@­Ó¸Õºâªí¡A¤£¹L¦]¬°¦b«á´X­Ó¤À­¶¦³¤j¶q­pºâ¤ñ¸û¦¡¡A¾É­P¹Bºâ®É³£·|¾ã­Ó­«·s­pºâ
¼vÅT¸Õºâªí³t«×¡A¦ý¹ê»Ú¤W§Úªº«á­±´X­Ó¤À­¶¤w¸g¤£·|¦AÅܧó(¼È®É)¡A©Ò¥H¦³¿ìªk¶È­­©w²Ä¤@¤À­¶¥i¥H¦Û°Ê­pºâ¶Ü???
«á´X­Ó¤À­¶¬O¤£°µ¥ô¦ó­«·s­pºâªº°Ê§@



1.part01.rar (1 MB)
1.part02.rar (1 MB)
1.part03.rar (939.08 KB)

¦^´_ 1# lichang

Excel ¨Ï¥Î»¡©ú¡G
­«·s­pºâ²{¥Î¤u§@ªí¡A¦Û¤W¦¸­pºâ«á¤w¸gÅܧ󪺤½¦¡¥H¤Î¨ä±qÄݤ½¦¡¡C SHIFT+F9 Áä   

Excel VBA ¥i¥H«ü©w½d³ò

TOP

DEAR SIR
¦p¤U¥i¦Û¦æ«ü©w »Ý¨D­pºâ¤§ SHEET

Sub «ü©wSHEET­pºâ()
    Sheet2.Select
    ActiveWorkbook.PrecisionAsDisplayed = False
    ActiveSheet.Calculate
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheet2.Select
End Sub

Sub ¦Û°Ê­pºâ()
    With Application
        .Calculation = xlAutomatic
        .MaxChange = 0.001
        .CalculateBeforeSave = True
    End With
    ActiveWorkbook.PrecisionAsDisplayed = False
    Range("A1").Select
End Sub

Sub ¤â°Ê­pºâ()
    With Application
        .Calculation = xlManual
        .MaxChange = 0.001
        .CalculateBeforeSave = False
    End With
    ActiveWorkbook.PrecisionAsDisplayed = False
    Range("A1").Select
End Sub
ù

TOP

        ÀR«ä¦Û¦b : «Ý¤H°h¤@¨B¡A·R¤H¼e¤@¤o¡A´N·|¬¡±o«Ü§Ö¼Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD