How to Merge Rank, Full Name, and Suffix in Excel Using TEXTJOIN

Learn how to combine rank, full name, and suffix in Excel using the TEXTJOIN function! This tutorial shows you how to merge names into a single cell with proper formatting, perfect for military or formal lists.

Get Ready for a Sulit Food Trip LIKE NO OTHER with Mang Gyupsal!

What’s up, mga ka-foodtrip! If you’re looking for a dining spot that won’t hurt your wallet but will definitely satisfy your cravings, check out Mang Gyupsal! Located just a short walk from Enverga University, Univesity Site, Lucena City in Quezon province. It’s the perfect go-to place for Korean BBQ lovers.

Imagine this: unlimited BBQ and street food without needing to order straight from Korea! They’ve got BBQ, fried noodles, fish cakes, corndogs, tteokbokki, and even a kimchi burger! Yup, you heard that right, a kimchi burger! You won’t find that everywhere.

But wait, there’s more! If you love sizzling dishes, you’re in for a treat. Mang Gyupsal serves up Korean Soy Garlic Chicken, Sizzling Kare-Kare, and the crispiest, most flavorful sisig. Trust me, the sisig here is next-level - crispy and creamy all at once, like a fiesta in your mouth!

Feeling adventurous? Try their Do-It-Yourself ramen, where you can customize the flavors to your heart’s content. Plus, they’ve got classics like chao pan, pansit canton, and lutong-bahay dishes, making it the ultimate comfort food destination.

The vibe? Super chill! With an al fresco setup and a cozy second floor, it’s the perfect spot to unwind after class or hang out with friends. Best of all, it’s easy on the student budget, so you can enjoy that unli BBQ without feeling guilty about your allowance.

And don’t forget the extras - Korean eggdrop sandwiches, chicken pastil, fries, and refreshing coolers to wash down all the deliciousness. If you’re looking for an all-in-one dining experience that’s both sulit and satisfying, Mang Gyupsal is the place to be.

So, what are you waiting for? Unli BBQ, sizzling dishes, Korean street food, and more, it’s all here! Perfectly located near Enverga University, Mang Gyupsal is your new post-class hangout. Kita-kits sa Mang Gyupsal!

Ano ang Kailangan Mong Malaman Bago Bumili ng Laptop?

Speed Up Your PC: Disable Apps from Running at Startup!

Disabling applications from running on startup can help speed up your computer's boot time and improve performance. Here's how to do it on various platforms:

Windows:

1. Task Manager:
• Right-click the taskbar and select Task Manager.
• Go to the Startup tab.
• Right-click any program you want to disable and choose Disable.
2. Settings (Windows 11/10):
• Go to Settings > Apps > Startup.
• Toggle off any app you don't want to run at startup.

Mac:

1. System Preferences:
• Click the Apple menu and go to System Preferences.
• Open Users & Groups, then select your user account.
• Click the Login Items tab.
• Select the app you want to disable and click the minus (-) button.

Ubuntu/Linux:

1. Startup Applications:
• Open the Startup Applications tool.
• Find the program in the list and uncheck it, or select it and click Remove.

Disabling unnecessary apps can make your system start faster and run smoother.

 

Elon Musk's Futuristic ROBOTAXI, ROBOVAN, and HUMANOID ROBOTS: Welcome to the Future!

Okay, Elon Musk is at it again, folks! The man just dropped some news that feels like straight out of a sci-fi movie—except, you know, it's happening for real. So let’s break it down because wow.

First off, Tesla’s Robotaxi. Fully autonomous and… wait for it… under 30k! Like, imagine telling your car, ‘Hey, take me to the grocery store,’ while you’re sitting back eating chips. Is this the future, or just a lazy person’s dream come true? Either way, I’m here for it!

And look at it go! No more ‘I’m stuck in traffic’ excuses, my friends. This thing just knows what to do. Honestly, does it come with a therapist feature? ‘Cause I could use one during rush hour.

But wait, there’s more! Introducing the Robovan! Yes, a 20-passenger van that probably runs smoother than my group of friends trying to decide where to eat. It’s like Musk just said, ‘Why stop at taxis? Let’s make carpooling futuristic, too!’ Imagine the road trips with this thing! No one’s fighting over shotgun anymore—because it’s driving itself!

I have one question though - if I host karaoke in this van, do I have to pay the van extra for keeping up with my terrible singing?

Then comes Optimus, the humanoid robot. Oh great, now I’m officially out of excuses for why I haven’t cleaned my room. Thanks, Elon.

Look at this robot doing all the human stuff. I feel attacked. Next thing you know, it’ll be better at small talk than I am - and that’s just unfair!

And Elon’s over here casually mentioning that these robots are gonna replace some human jobs. Meanwhile, I’m like, ‘Can they replace my stress levels?’ But in all seriousness, these robots are cool... and a tiny bit terrifying.

So, in summary: robot taxis, van parties, and humanoid robots. Elon Musk just keeps pulling us deeper into the future. I’m excited, slightly scared, but mostly just hoping these robots won’t judge my life choices. What do you guys think? Drop a comment below, and let’s chat about our future robot overlords - I mean, assistants. Same thing, right?

Ang Sarap ng Pancit Guisado sa Kwatogs!!!

Finally got to taste the famous Pansit Guisado at Kwatogs Lucena Poblacion - wow, ang sarap nga! Perfect balance ng savory at saucy, with just the right amount of crunch! Shoutout sa generous sponsor, libre is life! 

Kwatogs is a Filipino casual dining restaurant that serves mouth-watering noodle dishes, thereby empowering its famous Pansit Guisado. They serve different kinds of comfort foods in Filipino cuisine such as lomi, miki bihon, and rice meals. Starting from its original branches in the Batangas area, Kwatogs has now expanded into many places, one of which is here in Lucena City.

Food at this restaurant is highly affordable, highly filling, and exudes typically Filipino flavor, thus attracting people who want real food with good portions. If you're still craving that home-style cooking, then Kwatogs isn't a bad try at all.

 

Convert Numbers into Words in Microsoft Excel (Code)

 Option Explicit

'Main Function

Function SpellNumber(ByVal MyNumber, Output)

Dim Dollars, Cents, Temp

Dim DecimalPlace, Count

ReDim Place(9) As String

Place(2) = " Thousand "

Place(3) = " Million "

Place(4) = " Billion "

Place(5) = " Trillion "

' String representation of amount.

MyNumber = Trim(Str(MyNumber))

' Position of decimal place 0 if none.

DecimalPlace = InStr(MyNumber, ".")

' Convert cents and set MyNumber to dollar amount.

If DecimalPlace > 0 Then

    Cents = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & "00", 2))

    MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))

End If

Count = 1

Do While MyNumber <> ""

    Temp = GetHundreds(Right(MyNumber, 3))

    If Temp <> "" Then Dollars = Temp & Place(Count) & Dollars

        If Len(MyNumber) > 3 Then

            MyNumber = Left(MyNumber, Len(MyNumber) - 3)

        Else

            MyNumber = ""

    End If

    Count = Count + 1

Loop

If Output = 0 Then

Select Case Dollars

    Case ""

        Dollars = ""

    Case "One"

        Dollars = ""

    Case Else

        Dollars = Dollars

End Select

Select Case Cents

    Case ""

        Cents = ""

    Case "One"

        Cents = "Point One"

    Case Else

        Cents = " Point " & Cents

End Select

End If

If Output = 1 Then

Select Case Dollars

    Case ""

        Dollars = "No Dollars"

    Case "One"

        Dollars = "One Dollar"

    Case Else

        Dollars = Dollars & " Dollars"

End Select

Select Case Cents

    Case ""

        Cents = " and No Cents"

    Case "One"

        Cents = " and One Cent"

    Case Else

        Cents = " and " & Cents & " Cents"

End Select

End If

If Output = 2 Then

Select Case Dollars

    Case ""

        Dollars = "No Pesos"

    Case "One"

        Dollars = "One Peso"

    Case Else

        Dollars = Dollars & " Pesos"

End Select

Select Case Cents

    Case ""

        Cents = " and No Cents"

    Case "One"

        Cents = " and One Cent"

    Case Else

        Cents = " and " & Cents & " Cents"

End Select

End If

If Output = 3 Then

Select Case Dollars

    Case ""

        Dollars = "No Pounds"

    Case "One"

        Dollars = "One Pound"

    Case Else

        Dollars = Dollars & " Pounds"

End Select

Select Case Cents

    Case ""

        Cents = " and No Pence"

    Case "One"

        Cents = " and One Pence"

    Case Else

        Cents = " and " & Cents & " Pence"

End Select

End If

If Output = 4 Then

Select Case Dollars

    Case ""

        Dollars = "No Euros"

    Case "One"

        Dollars = "One Euro"

    Case Else

        Dollars = Dollars & " Euros"

End Select

Select Case Cents

    Case ""

        Cents = " and No Cents"

    Case "One"

        Cents = " and One Cent"

    Case Else

        Cents = " and " & Cents & " Cents"

End Select

End If

SpellNumber = Dollars & Cents

End Function

' Converts a number from 100-999 into text

Function GetHundreds(ByVal MyNumber)

Dim Result As String

If Val(MyNumber) = 0 Then Exit Function

MyNumber = Right("000" & MyNumber, 3)

' Convert the hundreds place.

If Mid(MyNumber, 1, 1) <> "0" Then

    Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred "

End If

' Convert the tens and ones place.

If MyNumber <= 99.99 Then

    If Mid(MyNumber, 2, 1) <> "0" Then

        Result = Result & GetTens(Mid(MyNumber, 2))

    Else

        Result = Result & GetDigit(Mid(MyNumber, 3))

    End If

    

Else

    If Mid(MyNumber, 2, 1) <> "0" Then

        Result = Result & "and " & GetTens(Mid(MyNumber, 2))

    Else

        Result = Result & "and " & GetDigit(Mid(MyNumber, 3))

    End If

End If

GetHundreds = Trim(Result)

End Function

' Converts a number from 10 to 99 into text.

Function GetTens(TensText)

Dim Result As String

Result = "" ' Null out the temporary function value.

If Val(Left(TensText, 1)) = 1 Then ' If value between 10-19...

    Select Case Val(TensText)

        Case 10: Result = "Ten"

        Case 11: Result = "Eleven"

        Case 12: Result = "Twelve"

        Case 13: Result = "Thirteen"

        Case 14: Result = "Fourteen"

        Case 15: Result = "Fifteen"

        Case 16: Result = "Sixteen"

        Case 17: Result = "Seventeen"

        Case 18: Result = "Eighteen"

        Case 19: Result = "Nineteen"

        Case Else

    End Select

Else ' If value between 20-99...

    Select Case Val(Left(TensText, 1))

        Case 2: Result = "Twenty "

        Case 3: Result = "Thirty "

        Case 4: Result = "Forty "

        Case 5: Result = "Fifty "

        Case 6: Result = "Sixty "

        Case 7: Result = "Seventy "

        Case 8: Result = "Eighty "

        Case 9: Result = "Ninety "

        Case Else

    End Select

Result = Result & GetDigit(Right(TensText, 1))  ' Retrieve ones place.

End If

GetTens = Trim(Result)

End Function

' Converts a number from 1 to 9 into text.

Function GetDigit(Digit)

Select Case Val(Digit)

    Case 1: GetDigit = "One"

    Case 2: GetDigit = "Two"

    Case 3: GetDigit = "Three"

    Case 4: GetDigit = "Four"

    Case 5: GetDigit = "Five"

    Case 6: GetDigit = "Six"

    Case 7: GetDigit = "Seven"

    Case 8: GetDigit = "Eight"

    Case 9: GetDigit = "Nine"

    Case Else: GetDigit = ""

End Select

End Function