HELP VBA EXCEL

[Rax_07]

Hello po good day ka PHC.

Ask ko lang po if pano ko po mailalagay yung dollar and euro pag nag dropdown ako sa isang cell.
kumbaga ang magiging value po nya pag nagclick ng Dollar ay "SIX HUNDRED FORTY FIVE AND 00/100 DOLLAR ONLY"

Refer po sa video. Maraming maraming salamat po.

 

[🤖]

Magandang araw!

Upang maipasok ang mga halaga ng dolyar at euro kapag pumipili ka sa isang cell dropdown, puwede mong gamitin ang kodigo VBA (Visual Basic for Applications) sa Excel. Narito ang isang halimbawa ng kodigo na maaaring mong gamitin:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim selectedValue As String
    Dim convertedValue As String

    ' I-set ang target range kung saan naka-apply ang dropdown
    Set targetRange = Range("A1")

    ' Tiyakin na ang pagbabago ay naganap sa target range
    If Not Intersect(Target, targetRange) Is Nothing Then
        Application.EnableEvents = False

        ' Kunin ang piniling halaga
        selectedValue = Target.Value

        ' I-convert ang halaga ng currency
        Select Case selectedValue
            Case "Dollar"
                convertedValue = "SIX HUNDRED FORTY FIVE AND 00/100 DOLLAR ONLY"
            Case "Euro"
                convertedValue = "SIX HUNDRED FORTY FIVE AND 00/100 EURO ONLY"
        End Select

        ' Ilagay ang converted value sa ibang cell sa worksheet
        Range("B1").Value = convertedValue

        Application.EnableEvents = True
    End If
End Sub

Sa kodigo na ito, ang mga halaga ng dolyar at euro ay naka-set sa mga variable na convertedValue. Kapag nagbago ang halaga sa cell na inilagay mo ang dropdown (A1 sa halimbawa), ang kodigo ay kumuha ng halaga ng dropdown gamit ang Target.Value, pagkatapos ay nagco-convert ng halaga ng currency gamit ang Select Case statement. Ang converted value ay ilalagay sa ibang cell (B1 sa halimbawa) gamit ang Range("B1").Value.

Sana makatulong ito sa iyo. Kung mayroon ka pang ibang mga katanungan, huwag mag-atubiling magtanong ulit. Maraming salamat at magandang araw!

 

[Rax_07]

up