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

5457001E01¡A³o¦b¥ÎVBA¦Û°Ê¤ñ¹ï±ø¥ó¼´¥X­È«áÅܦ¨546E+07¡A³oVBA­n¦p¦ó­×¥¿©O?

5457001E01¡A³o¦b¥ÎVBA¦Û°Ê¤ñ¹ï±ø¥ó¼´¥X­È«áÅܦ¨546E+07¡A³oVBA­n¦p¦ó­×¥¿©O?

5457001E01¡A³o¦b¥ÎVBA¦Û°Ê¤ñ¹ï±ø¥ó¼´¥X­È«áÅܦ¨546E+07¡A³oVBA­n¦p¦ó­×¥¿¤~¯à¦Û°Ê¼´¥X¥¿½Tªº­È©O?



¹Ï¤ù 1.jpg
2019-6-5 14:20

¹Ï¤ù 2.jpg
2019-6-5 14:20


²£«~¬d¸ß¨t²Înv.3.0.rar (75.88 KB)

¦^´_ 2# s13030029


    §Ú®æ¦¡¦Û¤v§ï³o¼Ë³o¤@µ§§ìªº¨ì¡A¦ý¨ä¥Lªº´N¤£½T©w¤F

Moule5 ¸Ì­±¥[¤J³o¨Ç

'¥H¤U¬°±NOE No E+®æ¦¡§ï¦¨E
    ActiveWindow.ScrollRow = 2
    ActiveWindow.ScrollRow = 3
    ActiveWindow.ScrollRow = 4
    ActiveWindow.ScrollRow = 5
    ActiveWindow.ScrollRow = 6
    ActiveWindow.ScrollRow = 8
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 13
    ActiveWindow.ScrollRow = 16
    ActiveWindow.ScrollRow = 18
    ActiveWindow.ScrollRow = 21
    ActiveWindow.ScrollRow = 23
    ActiveWindow.ScrollRow = 26
    ActiveWindow.ScrollRow = 29
    ActiveWindow.ScrollRow = 32
    ActiveWindow.ScrollRow = 36
    ActiveWindow.ScrollRow = 40
    ActiveWindow.ScrollRow = 45
    ActiveWindow.ScrollRow = 50
    ActiveWindow.ScrollRow = 54
    ActiveWindow.ScrollRow = 59
    ActiveWindow.ScrollRow = 64
    ActiveWindow.ScrollRow = 68
    ActiveWindow.ScrollRow = 72
    ActiveWindow.ScrollRow = 75
    ActiveWindow.ScrollRow = 78
    ActiveWindow.ScrollRow = 81
    ActiveWindow.ScrollRow = 85
    ActiveWindow.ScrollRow = 87
    ActiveWindow.ScrollRow = 89
    ActiveWindow.ScrollRow = 92
    ActiveWindow.ScrollRow = 94
    ActiveWindow.ScrollRow = 97
    ActiveWindow.ScrollRow = 99
    ActiveWindow.ScrollRow = 102
    ActiveWindow.ScrollRow = 104
    ActiveWindow.ScrollRow = 107
    ActiveWindow.ScrollRow = 110
    ActiveWindow.ScrollRow = 113
    ActiveWindow.ScrollRow = 116
    ActiveWindow.ScrollRow = 118
    ActiveWindow.ScrollRow = 120
    ActiveWindow.ScrollRow = 122
    ActiveWindow.ScrollRow = 123
    ActiveWindow.ScrollRow = 124
    ActiveWindow.ScrollRow = 125
    ActiveWindow.ScrollRow = 126
    ActiveWindow.ScrollRow = 127
    ActiveWindow.ScrollRow = 128
    ActiveWindow.ScrollRow = 129
    ActiveWindow.ScrollRow = 130
    ActiveWindow.ScrollRow = 131
    ActiveWindow.ScrollRow = 132
    ActiveWindow.ScrollRow = 133
    ActiveWindow.ScrollRow = 134
    Range("F2:F151").Select
    ActiveWindow.ScrollRow = 133
    ActiveWindow.ScrollRow = 132
    ActiveWindow.ScrollRow = 130
    ActiveWindow.ScrollRow = 129
    ActiveWindow.ScrollRow = 126
    ActiveWindow.ScrollRow = 121
    ActiveWindow.ScrollRow = 117
    ActiveWindow.ScrollRow = 112
    ActiveWindow.ScrollRow = 108
    ActiveWindow.ScrollRow = 102
    ActiveWindow.ScrollRow = 94
    ActiveWindow.ScrollRow = 86
    ActiveWindow.ScrollRow = 80
    ActiveWindow.ScrollRow = 74
    ActiveWindow.ScrollRow = 69
    ActiveWindow.ScrollRow = 65
    ActiveWindow.ScrollRow = 61
    ActiveWindow.ScrollRow = 57
    ActiveWindow.ScrollRow = 53
    ActiveWindow.ScrollRow = 48
    ActiveWindow.ScrollRow = 45
    ActiveWindow.ScrollRow = 41
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 34
    ActiveWindow.ScrollRow = 30
    ActiveWindow.ScrollRow = 27
    ActiveWindow.ScrollRow = 23
    ActiveWindow.ScrollRow = 20
    ActiveWindow.ScrollRow = 17
    ActiveWindow.ScrollRow = 15
    ActiveWindow.ScrollRow = 12
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 8
    ActiveWindow.ScrollRow = 7
    ActiveWindow.ScrollRow = 6
    ActiveWindow.ScrollRow = 5
    ActiveWindow.ScrollRow = 4
    ActiveWindow.ScrollRow = 3
    ActiveWindow.ScrollRow = 1
    Range("F2:F151,O2").Select
    Range("O2").Activate
    ActiveWindow.ScrollRow = 2
    ActiveWindow.ScrollRow = 3
    ActiveWindow.ScrollRow = 4
    ActiveWindow.ScrollRow = 5
    ActiveWindow.ScrollRow = 6
    ActiveWindow.ScrollRow = 7
    ActiveWindow.ScrollRow = 8
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 11
    ActiveWindow.ScrollRow = 13
    ActiveWindow.ScrollRow = 15
    ActiveWindow.ScrollRow = 17
    ActiveWindow.ScrollRow = 20
    ActiveWindow.ScrollRow = 23
    ActiveWindow.ScrollRow = 26
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 31
    ActiveWindow.ScrollRow = 34
    ActiveWindow.ScrollRow = 36
    ActiveWindow.ScrollRow = 39
    ActiveWindow.ScrollRow = 42
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 50
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 60
    ActiveWindow.ScrollRow = 66
    ActiveWindow.ScrollRow = 72
    ActiveWindow.ScrollRow = 76
    ActiveWindow.ScrollRow = 80
    ActiveWindow.ScrollRow = 84
    ActiveWindow.ScrollRow = 87
    ActiveWindow.ScrollRow = 89
    ActiveWindow.ScrollRow = 91
    ActiveWindow.ScrollRow = 93
    ActiveWindow.ScrollRow = 95
    ActiveWindow.ScrollRow = 97
    ActiveWindow.ScrollRow = 99
    ActiveWindow.ScrollRow = 102
    ActiveWindow.ScrollRow = 104
    ActiveWindow.ScrollRow = 107
    ActiveWindow.ScrollRow = 109
    ActiveWindow.ScrollRow = 112
    ActiveWindow.ScrollRow = 114
    ActiveWindow.ScrollRow = 117
    ActiveWindow.ScrollRow = 120
    ActiveWindow.ScrollRow = 121
    ActiveWindow.ScrollRow = 124
    ActiveWindow.ScrollRow = 126
    ActiveWindow.ScrollRow = 127
    ActiveWindow.ScrollRow = 129
    ActiveWindow.ScrollRow = 131
    ActiveWindow.ScrollRow = 133
    ActiveWindow.ScrollRow = 134
    Range("F2:F151,O2:O151").Select
    Range("O2").Activate
   
     Selection.NumberFormatLocal = "0??0#!E01"                     '³o¤@¦æ¥i¥HÅýE§ìªº¨ì

TOP

±NFÄæ³]¬°[¤å¦r]®æ¦¡, ­«·s¿é¤J5457001E01

TOP

¦^´_ 4# ­ã´£³¡ªL


    ­ã¤j¨Á¥D±z¦n¡G

            §Ú­è­è¦³·Ó±z»¡ªº¸Õ¹L¡A¦ý¤´µM¤£¦æ¡A¤ñ¹ï«áµ²ªG¬° 5.46E+07 ¡A¦ýÀx¦s®æ¹ê»Ú¬O5470010¡A´Nı±o«Ü©_©Ç¡C

   §Ú¤]¤£½T©w¬O¤£¬Oª©¥»ªº°ÝÃD¡A§Ú¬OExcel 2007¦~ª©¡C

         ¥t¥~³oºØ¸Ì­±³£¬O¼Æ¦r¥u¦³¤@½X¬OE©ñ¦b­Ë¼Æ²Ä3©Î4½X¦n¹³´N·|¦³³oºØ°ÝÃD¡C


ÁÙ¬O¥i¥H½Ð°Ý¬°¤°»ò³o­ÓÀÉ®×¼´¥Xªºµ²ªG´N¥i¥H²£¥Í¥¿½Tªºµ²ªG©O?
¦pªG­n§ïVBA µ{¦¡½X¡A­n¦p¦ó§ï¨ì1FªºÀɮפ¤©O?
·Ð½Ð¤£§[½ç±Ð¡AÁÂÁ¡C

¹Ï¤ù 1.jpg
2019-6-6 14:12



¹Ï¤ù 2.jpg
2019-6-6 14:12


VBA ¿é¤J§¹¾ã¦r¦ê+¼Æ¦r¼´¥X¸ê®Æ®w¸ê®Æ.rar (16.71 KB)

TOP

MsgBox [Sheet1!B18] & "   " & [Sheet2!B9]
¨â­Ó¤@¼Ëªº,

¼´¸ê®Æ«e, ­n¥ý±NÀx¦s®æ³]¬°¤å¦r®æ¦¡~~

TOP

¦^´_ 6# ­ã´£³¡ªL


    ª©¥D­ã¤j±z¦n¡G

    §Ú¦³·Ó±z»¡ªº¸Õ¹L¡A¦ý¤´µM¤£¦æ¡A¤ñ¹ï«áµ²ªG¬° 5.46E+07 (¦p¹Ï1) ¡A¦ýÀx¦s®æ¹ê»Ú¬O5470010 (¦p¹Ï2)(³o¬OÂà´«¬°¤å¦r«á´NÅܦ¨³o¼Ë¤Ö¤FE«á­±´X½X)

    ¤£¦n·N«ä¡A¤@ª½³Â·Ð±z¡C

003-01.jpg
2019-6-6 18:10


¹Ï¤ù3.jpg
2019-6-6 18:10

TOP

¥»©«³Ì«á¥Ñ mistery ©ó 2019-6-6 18:52 ½s¿è

³]©w¸Ó¿ï¨ú½d³ò¬°¤å¦r®æ¦¡ --> Selection.NumberFormatLocal =@
©Î¬O¨ú­È·í¤U´Nµ¹¤© ¤å¦r®æ¦¡ --> Cstr (¨ú¦^ªº­È )

TOP

¦^´_ 8# mistery


    Selection.NumberFormatLocal = " @ "

    ©Î¥H¤U

    Selection.NumberFormatLocal = Chr(64)


    ³o2­Ó³£¸Õ¹L¤£¦æ!!

TOP

¥»©«³Ì«á¥Ñ n7822123 ©ó 2019-6-6 22:40 ½s¿è

¦^´_ 9# jeffrey628litw


§Ú¦b§Aªºµ{¦¡³Ì¤U­±¡A­Ë¼Æ²Ä2¦C¥[¤J¥H¤Uµ{¦¡¡A°ÝÃD´N¸Ñ¨M¤F!

Columns("F:F").NumberFormatLocal = "@"

¦b°õ¦æ¤¤§Aªºµ{¦¡¦³¤@¬qµ{¦¡¬O°µ¶K¤Wªº°Ê§@¡AÀ³¸Ó¦³¶K¨ì§O®æªº®æ¦¡¡A
©Ò¥H°õ¦æ¹Lµ{¤¤¡A¤~·|Åܦ¨¬ì¾Ç°O¸¹¡A¥u­n³Ì«á´«¦¨¤å¦r´N¥i¥H¤F!

²£«~¬d¸ß¨t²Înv.3.0.rar (73.86 KB)
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

TOP

¦^´_ 10# n7822123


    n7822123  ¤j±z¦n¡G

      ³o³¡¤À¦³¸Ñ¨M  ®æ¦¡ªº°ÝÃD¡A¤£¹L¥X¨Óªºµ²ªG¤´µM¤£¥¿½T¡A5457001E01  ¤´µM·|Åܦ¨³Ñ¤U  54571010¡C

TOP

        ÀR«ä¦Û¦b : ÁÀ¨¥¹³¤@¦·²±¶}ªºÂAªá¡A¥~ªí¬üÄR¡A¥Í©Rµu¼È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD