សម្រាប់កម្មវិធី Microsoft Excel រក្សាជាឯកសារ PDF

Sub SaveAsPDFODS()

    Dim invoiceno As String
    Dim ordersheet As String
    Dim customername As String
    Dim Path As String
    Dim fname As String
    Dim OldPA As String

    customername = Range("D5").Value
    ordersheet = Range("D3").Value
    invoiceno = Range("G3").Value
    
    customername = Replace(customername, "\", "_")
    customername = Replace(customername, "/", "_")
    customername = Replace(customername, ":", "_")
    customername = Replace(customername, "*", "_")
    customername = Replace(customername, "?", "_")
    customername = Replace(customername, """", "_")
    customername = Replace(customername, "<", "_")
    customername = Replace(customername, ">", "_")
    customername = Replace(customername, "|", "_")

    Path = "C:\Users\Back-UPS\Documents\Invoice\"
    'fname = invoiceno & " - " & customername & ".pdf"
    ' ? Add OrderSheet into the filename
    fname = customername & " - ord" & ordersheet & " - inv" & invoiceno & ".pdf"

    OldPA = ActiveSheet.PageSetup.PrintArea
    ActiveSheet.PageSetup.PrintArea = "$B$1:$H$47"

    With ActiveSheet.PageSetup
        .Orientation = xlPortrait
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
        
        'Center horizontally only
        .CenterHorizontally = True
        .CenterVertically = False   '<<<< MUST BE OFF to push up
        
        'Margins (1 cm top)
        .TopMargin = Application.CentimetersToPoints(1)      ' 1 cm
        .BottomMargin = Application.CentimetersToPoints(0.3) ' 0.3 cm
        .LeftMargin = Application.CentimetersToPoints(0.3)
        .RightMargin = Application.CentimetersToPoints(0.3)
    End With

    ActiveSheet.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=Path & fname, _
        IgnorePrintAreas:=False

    ActiveSheet.PageSetup.PrintArea = OldPA

    MsgBox "PDF Order Sheet Successfully!", vbInformation

End Sub

រូបមន្តថ្ងៃខែឆ្នាំខ្មែរ Cell


=CHOOSE(WEEKDAY(NOW()),
"អាទិត្យ","ច័ន្ទ","អង្គារ","ពុធ","ព្រហស្បតិ៍","សុក្រ","សៅរ៍")
& " " &
DAY(NOW()) & " " &
CHOOSE(MONTH(NOW()),
"មករា","កុម្ភៈ","មីនា","មេសា","ឧសភា","មិថុនា",
"កក្កដា","សីហា","កញ្ញា","តុលា","វិច្ឆិកា","ធ្នូ")
& " " &
YEAR(NOW()) & " " &
TEXT(NOW(),"hh:mm") & " " &
IF(HOUR(NOW())<12,"ព្រឹក","ល្ងាច")

Function Translate(text As String, fromLang As String, toLang As String) As String
    ' If empty cell ? return blank
    If Trim(text) = "" Then
        Translate = ""
        Exit Function
    End If

    Dim url As String, json As String
    url = "https://api.mymemory.translated.net/get?q=" & text & "&langpair=" & fromLang & "|" & toLang

    On Error GoTo ErrHandler
    json = WorksheetFunction.WebService(url)
    Translate = Split(Split(json, """translatedText"":""")(1), """")(0)
    Exit Function

ErrHandler:
    Translate = ""
End Function

=OR(CELL("row")=ROW(),CELL("col")=COLUMN())
=AND(CELL("row")=ROW(),CELL("col")=COLUMN())
VBA code
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Target.Calculate
End Sub