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

[µo°Ý] ¦p¦ó§ä¨ì¦³¯S®í²Å¸¹ªºÀɦW

[µo°Ý] ¦p¦ó§ä¨ì¦³¯S®í²Å¸¹ªºÀɦW

½×¾Âªº¦U¦ì¤j¤j­Ì
½Ð°ÝVBA¦³¿ìªk§ì¨ì¦³¯S®í²Å¸¹ªºÀɦW¶Ü??
¨Ò¦p¡G🌟🌟🌟🌟🌟🌟🌟🌟2023.07.21¨C¤é¼Ò¨ã²§°Ê🌟🌟🌟🌟🌟🌟🌟🌟
§Ú¦³¹Á¸Õ±NÀɦW§ï¦¨"2023.07.21¨C¤é¼Ò¨ã²§°Ê"¡A³o¼ËªºÀɦW¬O¥i¥H§ì¨ìªº

¯S®í²Å¸¹ÀɦW.PNG

ÀɦW+¯S®í²Å¸¹.zip (660.4 KB)
¥¿±`ÀɦW.zip (660.34 KB)

¥ý§âÀɮשñ¦b¦P¸ê®Æ§¨¤¤//¥h±¼¯S®í¤å¦r..§ó§ïÀɦW//
©Îª½±µ¥Î¥["¤é´Á" ¥h like, ²Å¦X¶}±Ò(¦Û¤v§ï¬Ý¬Ý)

Sub TTT()
Dim PH$, xObj, xFiles, F, FN$, Nm$
PH = ThisWorkbook.Path & "\"
Set xObj = CreateObject("Scripting.FileSystemObject")
Set xFiles = xObj.GetFolder(PH).Files
For Each F In xFiles
    FN$ = F.Name: Nm = ""
    If FN Like "*¨C¤é¼Ò¨ã²§°Ê*.xlsx" Then
       For j = 1 To Len(FN)
           T = Mid(FN, j, 1)
           If Asc(T) <> 63 Then Nm = Nm & T
       Next j
       If FN <> Nm And Dir(PH & Nm) = "" Then F.Name = Nm
    End If
Next
End Sub

TOP

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


«D±`·PÁ­㴣³¡ªL¤j¤jªº¸Ñ´b

TOP

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

«D±`·PÁ­㴣³¡ªL¤j¤jªº¸Ñ´b
ÁÙ¬OµLªk§ì¨ú


¤w¸g½Ðªø©x¥h§äAL³æ¦ìªº¦P¤¯¨ó½ÕÀɦWªº³¡¤À

TOP

¦^´_ 4# cowww

ÀɦW+¯S®í²Å¸¹.zip (660.4 KB)

TOP

¦^´_ 5# singo1232001

«D±`·PÁÂsingo1232001¤j¤jªº¸Ñ´b

Â^¨ú.PNG

TOP

¦^´_ 6# cowww


    ·í¹q¸£¦³¦w¸Ë OneDrive ®É¡AOneDrive ·|§ïÅܹq¸£­ì¸ô®|¡A
EXCEL §ì¨ú¸ô®|®É³£¥u·|§ì¨ì§ó§ï«áªº¸ô®|¡A¦Ó¤£¬O¹q¸£¸Ì¹ê»Úªº¸ô®|¦ì¸m¡C
³o¼ËµLªkÅýEXCEL¨Ï¥Î¬Û¹ï¸ô®|¡C©Ò¥H·|«Ü³Â·Ð¡C

    §Ú¬Oª½±µ¨ø¸ü OneDrive »Ý­n¨Ï¥Î OneDrive ®Éª½±µºô­¶¶}±Ò¨Ï¥Î´N¦n¤F¡C

TOP

        ÀR«ä¦Û¦b : ¡i»X½ªªº¦Û¥Ñ¡j¤H±`¦b¤°»ò³£¥i¥H¦Û¥Ñ¦Û¦bªº®É­Ô¡A«o³Q³oºØÀH¤ß©Ò±ýªº¦Û¥Ñ»X½ª¡AµêÂY®É¥ú¦Ó²@µLıª¾¡C
ªð¦^¦Cªí ¤W¤@¥DÃD