ªð¦^¦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 : ¡i¥Í©R¦b©I§l¶¡¡j¦òªû»¡¡G¡u¥Í©R¦b©I§l¶¡¡C¡v¤HµLªkºÞ¦í¦Û¤vªº¥Í©R¡A§óµLªk¾×¦í¦º´Á¡AÅý¦Û¤v¥Ã¦í¤H¶¡¡C¬JµM¥Í©R¥h¨Ó³o»òµL±`¡A§Ú­Ì§óÀ³¸Ó¦n¦n¦a·R±¤¥¦¡B§Q¥Î¥¦¡B¥R¹ê¥¦¡AÅý³oµL±`¡BÄ_¶Qªº¥Í©R¡A´²µo¥¦¯uµ½¬üªº¥ú½÷¡A¬M·Ó¥X¥Í©R¯u¥¿ªº»ù­È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD