µù¥U
µn¿ý
º¶
½×¾Âª©³W
¸T¤î¦Cªí
»¡©ú
¦a¹Ï
¼Æ¦ì®Ñ»
¨p¤H®ø®§ (0)
¤½¦@®ø®§ (0)
½×¾Â¥ô°È (0)
¨t²Î®ø®§ (0)
¦n¤Í®ø®§ (0)
©«¤l®ø®§ (0)
³Â»¶®a±Ú°Q½×ª©ª©
»
VB »P VB.Net
» Ãö©óVBA ¥Î©óVB«ö¶s°ÝÃD¡C
ªð¦^¦Cªí
¤U¤@¥DÃD
¤W¤@¥DÃD
µo©«
[µo°Ý]
Ãö©óVBA ¥Î©óVB«ö¶s°ÝÃD¡C
stephenlee
µoµu®ø®§
¥[¬°¦n¤Í
stephenlee
·í«eÂ÷½u
UID
31962
©«¤l
63
¥DÃD
32
ºëµØ
0
¿n¤À
125
ª÷¿ú
125
ÂI¦W
0
§@·~¨t²Î
WIn10
³nÅ骩¥»
OFFICE2013
¾\ŪÅv
20
¦b½u®É¶¡
7 ¤p®É
µù¥U®É¶¡
2018-7-19
³Ì«áµn¿ý
2022-8-11
¤¤¾Ç¥Í
©«¤l
63
¥DÃD
32
ºëµØ
0
¿n¤À
125
ÂI¦W
0
§@·~¨t²Î
WIn10
³nÅ骩¥»
OFFICE2013
¾\ŪÅv
20
µù¥U®É¶¡
2018-7-19
³Ì«áµn¿ý
2022-8-11
1
#
¸õÂà¨ì
»
˧Ǭݩ«
¥´¦L
¦rÅé¤j¤p:
t
T
µoªí©ó 2018-10-4 09:41
|
¥u¬Ý¸Ó§@ªÌ
[µo°Ý]
Ãö©óVBA ¥Î©óVB«ö¶s°ÝÃD¡C
·Q½Ð±Ð¤j®a¦p¦ó±NVBAªº·½½X·h¶iVBªº«ö¶s¤º,·í§Ú«ö¤UVBªº«ö¶s«á¥L·|°õ¦æ¬ÛÃöªº
°Ê§@,·Q½Ð±Ð¥H¤U¨â¤j¬qVBA ·½½XÀ³¦p¦óקï¦ÜVB¤º,·PÁ¡C
Sub Job_No()
Dim a As Integer
Dim b As Integer
Dim rowNum As Integer
Dim Book As Integer
Dim BookName As String
BookNum = Workbooks.Count
'MsgBox BookNum
For a = 1 To BookNum
BookName = Workbooks(a).Name
Workbooks(BookName).Activate
Range("V:AE").Select
Selection.Delete Shift:=xlToLeft
x = 0
Range("b5").Select
Do
If ActiveCell.Value <> "" Then
x = 0
ActiveCell.Offset(1, 0).Select
Else
Selection.EntireRow.Delete
x = x + 1
End If
Loop Until x > 300
Range("A1").Select
Range("U4") = "#"
Range("U5").Formula = "=LEFT(G1,5)&U4&MID(G1,6,6)"
Range("U5").Select
Selection.Copy
Range("U5").PasteSpecial xlPasteValuesAndNumberFormats
[U5].Copy
With Range("U6:U" & [A65536].End(xlUp).Row)
.PasteSpecial xlPasteFormulas
.Value = .Value
End With
Next a
End Sub
Sub unite_data()
Dim BookNum As Integer, rowNum As Integer, currentRow As Integer
Dim i As Integer
Dim j As Integer
Dim BookName As String
currentRow = 2
BookNum = Workbooks.Count
'MsgBox BookNum
For i = 1 To BookNum
BookName = Workbooks(i).Name
If BookName <> "Data.xlsx" Then
For j = 1 To 1
Workbooks(BookName).Activate
rowNum = Workbooks(BookName).Worksheets("result").UsedRange.Rows.Count
'MsgBox rowNum
If (rowNum - 1 >= 1 And Workbooks(BookName).Worksheets("result").Cells(5, 1).Value <> "") Then
Workbooks(BookName).Worksheets("result").Rows("5:" & rowNum).Select
Selection.Copy
Windows("Data.xlsx").Activate
Rows(currentRow).Select
ActiveSheet.Paste
currentRow = currentRow + (rowNum - 4)
Windows(BookName).Activate
End If
Next j
End If
Next i
Windows("Data.xlsx").Activate
Range("V2:V500").Value = "1"
Range("W2").Formula = "=P2"
[W2].Copy
With Range("W3:W" & [A65536].End(xlUp).Row).PasteSpecial
Range("X2").Formula = "=P2"
[X2].Copy
With Range("X3:X" & [A65536].End(xlUp).Row).PasteSpecial
Range("Y2").Formula = "=U2"
[Y2].Copy
With Range("Y3:Y" & [A65536].End(xlUp).Row).PasteSpecial
Range("V2:V500").Select
With Selection.font
.Size = 15
Range("X2:X500").Select
With Selection.font
.Size = 15
Range("V2:V500").Select
With Selection.font
.Size = 15
Range("W2:W500").Select
With Selection.font
.Size = 15
Range("Y2:Y500").Select
With Selection.font
.Size = 15
End With
End With
End With
End With
End With
End With
End With
End With
End Sub
¼Ó¥D¼ö©«
²³æ²Õ¦X°ÝÃD¡C
Excel ¿z¿ï«á½Æ»s¡C
¸ê®Æ½Æ»s¶K¤W°ÝÃD¡C
Excel ¦X¨Ö¹ïÀ³¸ê®Æ
ÅçÃÒÄæ¦ì¦WºÙ°ÝÃD¡C
¼Æ¶q¤À©î¹j¦æ°ÝÃD¡C
¸ê®Æ¤À©î°ÝÃD¡C
¥ÎVBA °µSumif °ÝÃD
¦hÓ±ø¥ó¼Æ¶q¤À©î¤Î¹j¦æ¡C
¨ú¦r¦êµ¥°ÝÃD¡C
¦¬ÂÃ
¤À¨É
faye59
µoµu®ø®§
¥[¬°¦n¤Í
faye59
(温©_)
·í«eÂ÷½u
ij½×ªÌ
UID
30039
©«¤l
104
¥DÃD
5
ºëµØ
0
¿n¤À
110
ª÷¿ú
110
ÂI¦W
0
§@·~¨t²Î
win7
³nÅ骩¥»
Office2007
¾\ŪÅv
20
©Ê§O
¨k
¦b½u®É¶¡
116 ¤p®É
µù¥U®É¶¡
2017-11-14
³Ì«áµn¿ý
2019-4-30
¡@¼ÊºÙ:
温©_
¡@ÀY»Î:
ij½×ªÌ
¤¤¾Ç¥Í
©«¤l
104
¥DÃD
5
ºëµØ
0
¿n¤À
110
ÂI¦W
0
§@·~¨t²Î
win7
³nÅ骩¥»
Office2007
¾\ŪÅv
20
©Ê§O
¨k
µù¥U®É¶¡
2017-11-14
³Ì«áµn¿ý
2019-4-30
2
#
µoªí©ó 2018-10-4 21:47
|
¥u¬Ý¸Ó§@ªÌ
¦^´_
1#
stephenlee
¤jP¤W¨ÃµL®t²§¡A
Ranger§Ú·|¥ÎCells¨Ó¼g¡A
VB.net¥hºâExcelªºÀx¦s®æ¦ì¸m¡A
¦b¦ì¸m¤WªºÅܤƩʰª¤S²³æpºâ¡C
¤£¯à°õ¦æªº³¡¤ÀÀ³¸Ó¬O
End(xlUp)
¦bVB.net¤¤n¦bForm¯S§O«Å§iExcelpºâÈ¡A
¥un¦b³Ì¤W±¥[¤J³oÓ´N¸òVBAºâªk¤@¼Ë¤F¡C
Const xlUp = -4162
Const xlDown = -4121
½Æ»s¥N½X
¤@¤À§V¤O¡A¤@¤À¦¬Ã¬¡C
µo°ÝÃD«e¥i¥H¥ý·j¯Á¤º¤å¬O§_¦³¬ÛÃö½d¨Ò¡C
TOP
ÀR«ä¦Û¦b :
¡i»X½ªªº¦Û¥Ñ¡j¤H±`¦b¤°»ò³£¥i¥H¦Û¥Ñ¦Û¦bªº®ÉÔ¡A«o³Q³oºØÀH¤ß©Ò±ýªº¦Û¥Ñ»X½ª¡AµêÂY®É¥ú¦Ó²@µLıª¾¡C
ªð¦^¦Cªí
¤U¤@¥DÃD
¤W¤@¥DÃD
Excel£¸¯ë°Ï
EXCEL±MÄÝ°Q½×°Ï
Excel£¸¯ë°Ï
Excelµ{¦¡°Ï
¶i¶¥À³¥Î±M°Ï
OFFICE ¨t¦C
Word
PowerPoint
Access
Office¤£¤À°Ï
µ{¦¡»y¨¥
VB »P VB.Net
C »P C#
Java »P J#
µ{¦¡³]p¤£¤À°Ï
¸ê®Æ®w
ORACLE
My SQL
MS SQL
ºô¶³]p
ASP »P ASP.NET
PHP
PHP+MySQL ¤Jªù¹ê§@
JavaScript
FLASH / ActionScript
HTM/ HTML/ CSS
ºô¶³]p¤£¤À°Ï
¹q¸£»P§@·~¨t²Î
¹q¸£¦UºØµwÅé°Q½×
¤@¯ë¹q¸£³nÅé°Q½×
½×¾Â¨Æ°È
ºÞ²z¤½§i
§ë¶D¤Ï¬M
·s¤â´ú¸Õ
·R ¡E ¥Í¬¡
¤½¯q§G§iÄæ
¥Í¬¡»P·P°Ê
[¦¬Âæ¹¥DÃD]
[Ãöª`¦¹¥DÃDªº·s¦^´_]
[³q¹L QQ¡BMSN ¤À¨Éµ¹ªB¤Í]
¥Ó½Ð¤Í±¡Ãì±µ
Facebook¯»µ·