VBA Code (Create New Invoice).txt

Sub CreateNewInvoice()
invoiceno = Range("E3")
Range("b3,a9:d19,e5").ClearContents
MsgBox "Your Next Invoice No. is " & invoiceno + 1
Range("E3") = invoiceno + 1
ThisWorkbook.Save


End Sub

VBA Code (Save as PDF).txt


Sub SaveAsPDF()
InvoiceNo = Range("E3")
customername = Range("B3")
Path = "C:\Users\Back-UPS\Documents\Invoice\"
fname = InvoiceNo & " - " & customername

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, ignoreprintareas:=False, Filename:=path & fname

End Sub

// configuration
var apiToken = "YOU_TELEGRAM_TOKEN";
var appUrl   = "YOUR_APPSCRIPT_URL";
var apiUrl   = "https://api.telegram.org/bot"+apiToken;
var command  = {
  "/start": "welcome to my bot",
  "hi": "hello",
  "what is your name?": "my name is devisty bot"
}


// set webhook
function setWebhook(){
  var url = apiUrl + "/setwebhook?url="+appUrl;
  var res = UrlFetchApp.fetch(url).getContentText();
  Logger.log(res);
}


// handle webhook
function doPost(e){
  var webhookData = JSON.parse(e.postData.contents);
  var from = webhookData.message.from.id;
  var text = webhookData.message.text;

  if(typeof command[text] == 'undefined'){
    var sendText = encodeURIComponent("command not found");
  }else{
    var sendText = encodeURIComponent(command[text]);
  }

  var url  = apiUrl+"/sendmessage?parse_mode=HTML&chat_id="+from+"&text="+sendText;
  var opts = {"muteHttpExceptions": true}
  UrlFetchApp.fetch(url, opts).getContentText();
}


function doGet(e){
  return ContentService.createTextOutput("Method GET not allowed");
}

សម្រាប់កម្មវិធី 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