Excel VBA Switch Random File Name

Ni aku kongsikan VBA untuk switch file yang random ending file name


Sub CopyAllJobs()
    Dim myWindow As Window
    For Each myWindow In Windows
        If Left(myWindow.Caption, 8) = "All Jobs" Then myWindow.Activate '''': Exit Sub
    Next myWindow
   
End Sub

Excel VBA Only Allow Workbook To Run From Specific Location

Check current workbook link and compared to custom address


Sub Success()

'check current path
Path = ActiveWorkbook.Path
'Range("A1") = ActiveWorkbook.Path


'if current path not same, exit
If Path <> "C:\Users\othmmohd\Desktop" Then
MsgBox "Please use Jobs in Lab - Macro from shared drive."
ThisWorkbook.Close savechanges:=False
End If

End Sub

Excel VBA Check Current Workbook Path

Sub test1()

Path = ActiveWorkbook.Path
Range("B3") = ActiveWorkbook.Path

link = ActiveWorkbook.Path
Range("B4") = ActiveWorkbook.Path

End Sub

Wireless Bluetooth Earphones

Ok. Earphones ni takda jenama khusus aku rasa.
Order dari Lazada dengan harga rm35+.
Ni screen shot pada hari Singles' Day.
Jilake murah.

Unboxing
Ada Manual, kabel charger, klip kabel, dan pemegang telinga.
Free gift ear plug.














 



Test.

Charge 30 minit untuk led biru menyala yang bermaksud bateri penuh.
Boleh bertahan 3 jam playback.

Bulan

Anis Demam

Demam, tak mau kena.
Ayah bawa ronda dengan kereta baru tak merengek.

Lepastu bawa pi klinik.
Alhamdulillah. Koi lega.