ตรวจสอบและปรับปรุงไฟล์ Excel ให้เร็วและเสถียรด้วย File Anatomy Add-in
เครื่องมือนี้ช่วยวิเคราะห์โครงสร้างไฟล์อย่างละเอียด เช่น สูตร, ลิงก์, PivotTable, Styles และ Objects
พร้อมฟังก์ชันล้างสิ่งเกินจำเป็นที่ทำให้ไฟล์ช้า หรือเสียหายได้ในคลิกเดียว
เหมาะสำหรับผู้ใช้ Excel ที่ต้องการควบคุมคุณภาพไฟล์อย่างมืออาชีพ
ทดลองใช้ Add-in
snasui.com ยินดีต้อนรับ 
สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ 
ระบุ Version ของ Excel 
โปรดทราบ สมัครสมาชิก
Login ผ่าน Facebook Reset รหัสผ่าน ติดต่อผู้ดูแลระบบ ตั้งค่าส่วนตัว วิธีการตั้งและตอบกระทู้ จัดรูปแบบตัวอักษร กำหนดขนาดตัวอักษรใน Browser
คำแสดงเจตนา[code] และปิดด้วย [/code] ตัวอย่างเช่น [code]dim r as range[/code] เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)
Code: Select all
'Code Line Notify V2
Sub Sendline()
Dim S As Worksheet
Dim LOL As String
Dim R As Integer
Dim X As String
Dim A1 As String
Dim A2 As String
Dim A3 As String
Dim A4 As String
Dim B1, B2, B3, B4, Y As Long
Set S = ThisWorkbook.Sheets("เบิกไม้")
R = S.Range("B2", S.Range("B2").End(xlDown)).Rows.Count + 1
For i = 4 To R
If S.Cells(i, 7).Value = "อบ" Then
X = S.Cells(i, 20)
A1 = A1 + X + " "
Y = S.Cells(i, 9).Value
B1 = B1 + Y
ElseIf S.Cells(i, 7).Value = "ขาย" Then
X = S.Cells(i, 20)
A2 = A2 + X + " "
Y = S.Cells(i, 9).Value
B2 = B2 + Y
ElseIf S.Cells(i, 7).Value = "ผ่า" Then
X = S.Cells(i, 20) & S.Cells(i, 9) & " "
A3 = " " + A3 + X
Y = S.Cells(i, 9).Value
B3 = B3 + Y
ElseIf S.Cells(i, 7).Value = "แปลง" Then
X = S.Cells(i, 20)
A4 = A4 + X + " "
Y = S.Cells(i, 9).Value
B4 = B4 + Y
End If
Next i
Debug.Print (A3)
Call LineNotify(A3, 0, 0)
End Sub
Sub LineNotify(msg As String, Optional stickID As Integer, Optional stickPack As Integer)
Dim LineToken As String
Dim lineMessage As String
Dim objectXML As Object
Dim URL As String
'Line Notify Token ที่ Generate มา
LineToken = "ไลน์โทเค่น"
'Line Message
'yourMessage = msg
lineMessage = "message=" & msg
'เพิ่มเงื่อนไข Sticker
If stickPack = 0 Or stickID = 0 Then
Else
lineMessage = lineMessage & "&stickerPackageId=" & stickPack & "&stickerId=" & stickID
End If
Set objectXML = CreateObject("Microsoft.XMLHTTP")
URL = "https://notify-api.line.me/api/notify"
With objectXML
.Open "POST", URL, 0
.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
.SetRequestHeader "Authorization", "Bearer " & LineToken
.send (lineMessage)
' Debug.Print objectXML.responseText
End With
Set objectXML = Nothing
End Sub
ปรับการกำหนดค่าให้ตัวแปร lineMessage จากlineMessage = "message=" & msglineMessage = "message=" & VBA.Trim(msg) เข้าใจว่าต้องส่งเป็นภาพเท่านั้นCode: Select all
Sub LineNotify3(msg As String, Optional stickID As Integer, Optional stickPack As Integer)
Dim LineToken As String
Dim lineMessage As String
Dim objectXML As Object
Dim URL As String
'Line Notify Token ที่ Generate มา
LineToken = "ไลน์โทเค่น"
'Line Message
'yourMessage = msg
lineMessage = "message=" & VBA.Trim(msg)
'เพิ่มเงื่อนไข Sticker
If stickPack = 0 Or stickID = 0 Then
Else
lineMessage = "message=" & VBA.Trim(msg)
End If
Set objectXML = CreateObject("Microsoft.XMLHTTP")
URL = "https://notify-api.line.me/api/notify"
With objectXML
.Open "POST", URL, 0
.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
.SetRequestHeader "Authorization", "Bearer " & LineToken
.send (lineMessage)
' Debug.Print objectXML.responseText
End With
Set objectXML = Nothing
End Sub