­ã´£³¡ªL

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

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

jeffrey628litw

¦^´_ 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

¤U¸ü (39.4 KB)

2019-6-6 14:12

¤U¸ü (30.79 KB)

2019-6-6 14:12

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

¤U¸ü¦¸¼Æ: 3

2019-6-6 14:10

­ã´£³¡ªL

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

jeffrey628litw

¦^´_ 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§ìªº¨ì