Ãö©ó§å¦¸³B²zÀx¦s®æ°ÝÃD ¨D¤j®aÀ°¦£¸Ñ´b
- ©«¤l
- 26
- ¥DÃD
- 8
- ºëµØ
- 0
- ¿n¤À
- 31
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN7
- ³nÅ骩¥»
- EXCEL2010
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2014-11-6
- ³Ì«áµn¿ý
- 2017-10-19
|
Ãö©ó§å¦¸³B²zÀx¦s®æ°ÝÃD ¨D¤j®aÀ°¦£¸Ñ´b
¤j®a¦n
¤p§Ìªì¾Çexcel vba¤£¤[¡A¦³Ó§å¦¸§ó§ïÀx¦s®æµ{¦¡°ÝÃD·Q½Ð¦U¦ìÀ°¦£¸Ñµª¡C
¤£ª¾¹D¯à§_§Q¥ÎVBA¼g¤@µ{¦¡¡AÅý"¬Y«ü©w¸ê®Æ§¨"¤º©Ò¦³excelÀɮתº¬YÀx¦s®æ¤º®e(EX:"A1")¡A¶ñ¤J©T©w¼ÆÈ(EX:"123")¡C
¥H¤Wµ{¦¡¾Þ§@¬O§_¥u¯à¥HAPI¹F¨ì©O? VBA¤]¦æ?
¦pVBA¥i¦æ¡A½Ð¤j®aÀ°À°¦£«Øij¸Ó¥Î¨º¨Ç¨ç¼Æ¼¶¼g¡C «D±`·PÁÂ~ |
|
|
|
|
|
|
- ©«¤l
- 549
- ¥DÃD
- 152
- ºëµØ
- 0
- ¿n¤À
- 691
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN7
- ³nÅ骩¥»
- OFFICE 2010
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-8-10
- ³Ì«áµn¿ý
- 2022-9-7
|
¦^´_ 1# rbktwi
test.rar (29.5 KB)
- Sub ¥¨¶°1()
- Application.ScreenUpdating = False 'Ãö³¬¿Ã¹õ
- ' myfloder="±zªºÀɮ׸ô®|¥]§t³Ì«á¤@Ón\"
- w1 = ActiveWorkbook.Name
- 'Y¬O·Qn§ä¨ì³oÓEXCELÀɮתº©Ò¦b¥Ø¿ý´N¨Ï¥Î
- Dim WrdArray() As String
- myfloder = ""
- WrdArray() = Split(ThisWorkbook.FullName, "\")
- For i = 0 To UBound(WrdArray) - 1
- myfloder = myfloder & "\" & WrdArray(i)
- Next i
- myfloder = Mid(myfloder, 2, Len(myfloder) - 1) & "\"
-
- '§ä¥X©Ò¦³ÀɮצWºÙ
- FILE1 = Dir(myfloder)
- Do While FILE1 <> ""
- ar = ar & "," & FILE1 '(¨S«ü©wþºØÀɮתºEXCEL)
- FILE1 = Dir '¨ú±o¤U¤@ÓÀɦW
- Loop
- ar = Split(Mid(ar, 2, 100000), ",") '©î¶}²Ä¤@Ó,
- '¶]¨CÓEXCELÀÉ
- For Each e In ar
- If e <> w1 Then '¤£°õ¦æ¦Û¤v¥»ªºÀÉ®×
- Workbooks.Open (myfloder & e)
- Cells(1, 1) = "123" 'A1¿é¤JÈ(¨S«ü©wSHEET)
- ActiveWindow.Close saveChanges:=True 'Ãö³¬¥BÀx¦s
- End If
- Next
- Application.ScreenUpdating = True '«ì´_¿Ã¹õ
- End Sub
½Æ»s¥N½X |
|
PKKO
|
|
|
|
|
- ©«¤l
- 26
- ¥DÃD
- 8
- ºëµØ
- 0
- ¿n¤À
- 31
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN7
- ³nÅ骩¥»
- EXCEL2010
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2014-11-6
- ³Ì«áµn¿ý
- 2017-10-19
|
·PÁÂBobÀ°¦£ ±ßÂI¨Ó½Õ¸Õ
¥i§_¥t¥~¦A½Ð±Ð ¦pªGEXCELÀɮפ@¥´¶}·|¸õ¥XÃþ¦ü ±Ò¥Î¥¨¶°or°Ýn¤£n§ó·s³sµ²µ¥µ¥¤§Ãþ¿ï¶µªº¸Ü,n«ç»òÅývba¥h¿ï¾Ü°Ê§@©O? ¨Ò¦p¿ï¾Ü±Ò°Ê¥¨¶° or ¿ï¾Ü¤£n§ó·s ¦A¦¸·PÁ |
|
|
|
|
|
|
- ©«¤l
- 549
- ¥DÃD
- 152
- ºëµØ
- 0
- ¿n¤À
- 691
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN7
- ³nÅ骩¥»
- OFFICE 2010
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-8-10
- ³Ì«áµn¿ý
- 2022-9-7
|
¦^´_ 3# rbktwi
¤@¡B±Ò°Ê¥¨¶°»Ýn¤H¬°¾Þ§@,ÁקK¯f¬r¤£»Ýn¸g¹L±zªº¦P·N,°õ¦æ¯f¬r½X
¥i¦b¦w¥þ©Ê³]©w,³]©w§¹²¦«áÃö³¬,¦A¥´¶}®É´N·|¬O±z³]©wªºµ²ªG,Y³]©w³Ì§C,«h·|µL±ø¥óª½±µ±Ò°Ê¥¨¶°
¤G¡B³sµ²ªº³¡¤À
¦bThisWorkbookªº¼Ò²Õ¸Ì±,Workbook_Openªº¨Æ¥ó¤º
³]©w Application.AskToUpdateLinks=False '¥Nªí¤£·|¸ß°Ý
³]©w Workbook.UpdateLinks =False ''¥Nªí¤£·|±Ò°Ê³sµ²
¤Ï¤§¥ç¦p~
¸Õ¸Õ¬Ý,¦³¿ù»~½Ð¤£§[ªÈ¥¿! |
|
PKKO
|
|
|
|
|
- ©«¤l
- 26
- ¥DÃD
- 8
- ºëµØ
- 0
- ¿n¤À
- 31
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN7
- ³nÅ骩¥»
- EXCEL2010
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2014-11-6
- ³Ì«áµn¿ý
- 2017-10-19
|
¦^´_ 4# PKKO
ì¨Ó¦p¦¹~ «D±`·PÁÂBobÀ°¦£¸Ñ´b ¨ü¯q¨}¦h~ |
|
|
|
|
|
|
- ©«¤l
- 26
- ¥DÃD
- 8
- ºëµØ
- 0
- ¿n¤À
- 31
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN7
- ³nÅ骩¥»
- EXCEL2010
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2014-11-6
- ³Ì«áµn¿ý
- 2017-10-19
|
¤£¦n·N«ä ·Q¦A½Ð°ÝBob
Ãö©ó·j´MÀx¦s®æ ¥H¤Uµ{¦¡½X
'¶]¨CÓEXCELÀÉ
For Each e In ar
If e <> w1 Then '¤£°õ¦æì¥ý¶}±ÒªºÀÉ®×
Workbooks.Open (myfloder & e)
s = Worksheets.Count
For j = 1 To s
Find = ActiveWorkbook.sheets(j).cells.Find(What:="Exchange Rate:", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, MatchByte:=False, SearchFormat:=False).Activate
Next
End If
Next
§Ú·Q°µªº¬O°Ñ·Ó§@¥Î¤¤¬¡¶Ã¯ ±µµÛ½ü¬y·j´M°Ñ·Ó§@¥Î¤¤¬¡¶Ã¯ªº¦U¤u§@ªí
¦ýexcelÅã¥Üª«¥ó¤£¤ä´©¦¹¥\¯à ½Ð°Ý§Ú¸Ó¥Îþ¤@ºØÄÝ©Ê©O? |
|
|
|
|
|
|
- ©«¤l
- 26
- ¥DÃD
- 8
- ºëµØ
- 0
- ¿n¤À
- 31
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN7
- ³nÅ骩¥»
- EXCEL2010
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2014-11-6
- ³Ì«áµn¿ý
- 2017-10-19
|
¤w¸Ñ¨M~
Dim fr As Range
Dim sh As Worksheet
For Each e In ar
If e <> w1 Then
Workbooks.Open (myfloder & e)
For Each sh In ActiveWorkbook.Worksheets
Set fr = sh.Cells.Find(what:="Exchange Rate:", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, MatchByte:=False, SearchFormat:=False)
If Not fr Is Nothing Then
Msgbox fr.Name
End If
Next sh
ActiveWindow.Close saveChanges:=True 'Ãö³¬¥BÀx¦s
End If
Next e |
|
|
|
|
|
|