Snasui Excel Forum

chinnapong

:D ลองทดสอบด้วย Code ด้านล่างว่าส่งภาษาไทย (คำว่า "สวัสดี") ได้หรือไม่ครับ

Sub Test0()
Dim winReq As Object, iMsg As String
Dim tk As String, postdata As String

Set winReq = CreateObject("Microsoft.XMLHTTP")
tk = "I2UXLTEOlMmiHPkTu7VFHmrORRUFt9COHLPKL4ZPYSy"
myURL = "https://notify-api ...

chinnapong

ตามหัวข้อเลยครับ LineNotify ข้อความภาษาไทยเป็น ???? แต่ภาษาอังกฤษได้แก้ยังไงครับ
Excel version 2016
https://sv1.img.in.th/TZRp7.jpeg

Sub LineNotifyUploadPic(msg As String, Optional UploadFilePath As String = "none")
Dim sFilepath As String
Dim nFile As Integer
Dim baBuffer() As Byte
Dim ...

chinnapong

สวัสดีครับผมของคำแนะนำ VBA ตามหัวข้อครับ รบกวนด้วยครับ

เมื่อเราได้ข้อมูลมาแล้วจะทำการวาง กำหนดให้คอลั้ม B เมื่อมีข้อมูลให้วางและให้นับไป 20 บรรทัด โดยรวมที่มีข้อมูลบรรทัดแรกด้วย
ให้เป็นข้อมูลใหม่ และผมได้แนบตัวอย่างที่ต้องการไว้ครับ เพราะผมไม่รู้จะเริ่มกำหนดอย่างไร
ขอตัวอย่าง Code ด้วยครับ ขอบคุณครับ

chinnapong

:D ตัวอย่างการปรับ Code ครับ

'Other code
With Sheets("GAP")
Range("C1").Select
ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
False, NoHTMLFormatting:=True
ActiveSheet.Range("$W$4:$AP$400").AutoFilter Field:=13, Criteria1:="<>"
MsgBox "วางข้อมูลเรียบร้อย ALC ...

chinnapong

ปัญหาเมื่อเรา Copy จากไฟล์ Word ที่นามสกุล (.rtf) ที่เปิดไฟล์แล้วกด Ctrl + C แล้วมา กดวางปุ่มวางใน Excel ต้องกำหนดค่า Code VBA
ยังไงครับ กำหนดแล้วค่าที่เรา Copy ใน Code แล้วข้อมูลไม่มาครับ ขอแนวทาง Code ด้วยครับอาจารย์.
Sub Paste()
Range("C1").Select
With Sheets("GAP")
If Application ...

chinnapong

:D กรณีนี้ต้องแก้ไข Code เดิมแทบทั้งหมดเพราะเป็นการ Loop เช็คไปทีละบรรทัด ซึ่งตัวอย่างที่ผมเขียนให้ไปนั้นเป็นการนำข้อมูลใน Sheet1 ไปวางใน Sheet2 พร้อมกันทีเดียวทุกบรรทัด โดยไม่สนใจว่ามีค่าซ้ำหรือไม่ ทั้งนี้เนื่องจากไม่ได้แจ้งมาด้วยว่าหากมีรายการนั้นใน Sheet2 แล้วจะไม่นำรายการนั้นไปวางต่อท้ายข้อม ...

chinnapong

รวมคอลัมน์ไหนบ้าง เขียนไว้แล้วหรือไม่ ถ้ายังไม่เขียนให้เขียนมาเองก่อน ได้เท่าไรก็เท่านั้นแต่จะต้องสอดคล้องกับคำถามครับ

อ้างอิงจากเมื่อ Sheet1 Column D ตั้งแต่แถวที่ 2 ลงไป ถ้า Sheet2 Column E แถวที่ 2ลงไปมีข้อมูลของ Sheet1 Column D อยู่แล้วให้เอาค่าต่อไปของ Sheet1 Column D ที่ไม่ซ้ำกันเอาข้อม ...

chinnapong

:D กรุณาปรับ Code มาเองก่อน หากยังติดปัญหาให้แนบไฟล์ล่าสุดที่ได้ปรับ Code เอาไว้เองแล้วมาด้วยจะได้ตอบต่อไปจากนั้นครับ

ผมลองปรับแล้วครับอาจารย์ ปัญหาไม่ยอมต่อลงบรรทัดสุดท้ายครับ กับไม่รันนัมเบอร์ครับ กับไม่เอาค่าจากชีท 1 ที่ซ้ำกันมารวมกันกับชีท2ด้วยครับ
ผมเองไม่เก่ง VBA ยังไม่ค่อยเข้าใจครับรบกวนด ...

chinnapong

:D ตัวอย่างการปรับ Code ครับ

'Other code
Dim rngAll As Range
Dim j As Long, r As Range
Dim i As Integer, k As Integer
With Sheets("Sheet1")
Set rngAll = .Range("e2", .Range("a" & .Rows.Count).End(xlUp))
i = rngAll.Rows.Count
End With
With Sheets("Sheet2")
If .Range("a2").Value = "" Then
j ...

chinnapong

Sub test()
Columns("A:E").Select
Selection.Copy
Sheets("Sheet2").Select
Columns("A:A").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Sheets("Sheet1").Select
Application.CutCopyMode = False
Range("A1 ...

chinnapong

:D ตัวอย่าง Code ครับ

Range("A1").Select
Windows("Book1.xlsm").Activate
If Application.CutCopyMode Then
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Else
MsgBox "Please copy first.", vbExclamation
End If

ขอบคุณครับผมกำลังฝึกฝนครับ

chinnapong

Sub p()
Range("A1").Select
Windows("Book1.xlsm").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

ปัญหาคือ พอกดที่ตอนยังไม่กด Ctrl + C ข้อมูลมา และ พอจะมากดปุ่มให้วางให้มันขึ้น Error ผมอยากให้เมื่อกดปุ่ม วางแล้วข้อมูลที่ย ...

chinnapong

สมมุติวันที่ 1/11/18 เป็นที่ข้อมูลล่าสุดแล้วจะกำหนดให้ถ้าเกิน 15 วันแล้วให้มันขึ้นว่า "คืนได้" จะกำหนดสูตรยังไงครับ
ตัวอย่าง
ข้อมูลล่าสุด 1/11/18
กำหนดคืน 16/11/18

chinnapong

parakorn wrote: Tue Aug 14, 2018 12:29 am ยกตัวอย่างผลลัพท์ที่ต้องการมาด้วยครับ จะได้เข้าใจตรงกันครับ

พอเรารู้วันหมดอายุของแล้ว อยากทราบสูตรนับถอยหลัง 30 วัน ของคอลัมน์ E ครับ

chinnapong

อยากทราบการเขียนสูตรครับ

chinnapong

parakorn wrote: Fri Aug 10, 2018 11:29 am อธิบายสิ่งที่ต้องการด้วยครับ ซ่อนสูตรยังไงครับ ซ่อน Column หรือ ถอดสูตรครับ

chinnapong

ตามหัวข้อเลยครับ

chinnapong

logic wrote: Wed Aug 08, 2018 9:17 pm ใช้ If ครับ

D2 =IF(C2-TODAY()>7,"",IF(C2-TODAY()<=0,"หมดอายุ",C2-TODAY()))

ถ้ามีร้อยรายการต้องทำร้อยครั้งเลยใช่ไหมครับ

chinnapong

อ่อได้ละครับขอบคุณครับ

chinnapong

logic wrote: Wed Aug 08, 2018 9:17 pm ใช้ If ครับ

D2 =IF(C2-TODAY()>7,"",IF(C2-TODAY()<=0,"หมดอายุ",C2-TODAY()))

คือมันไม่นับถอยหลังให้ทีละวันหรอครับ

Snasui Excel Forum

EXCEL TOOLS

Search found 21 matches

Re: LineNotify ข้อความภาษาไทยเป็น ???? แต่ภาษาอังกฤษได้แก้ยังไงครับ

LineNotify ข้อความภาษาไทยเป็น ???? แต่ภาษาอังกฤษได้แก้ยังไงครับ

ขอแนวทางกำหนด VBA ให้เว้นบรรทัดไป 20 บรรทัดแล้วเริ่มตัวหนังสือบรรดทัดใหม่

Re: กำหนดค่า Macro VBA เมื่อ Copyจากไฟล์ Word มาวางใน Excelยังไงครับ

กำหนดค่า Macro VBA เมื่อ Copyจากไฟล์ Word มาวางใน Excelยังไงครับ

Re: กำหนดVba Copy ข้อมูลต่อลงแถวไปเรื่อยๆยังไงครับ

Re: กำหนดVba Copy ข้อมูลต่อลงแถวไปเรื่อยๆยังไงครับ

Re: กำหนดVba Copy ข้อมูลต่อลงแถวไปเรื่อยๆยังไงครับ

Re: กำหนดVba Copy ข้อมูลต่อลงแถวไปเรื่อยๆยังไงครับ

กำหนดVba Copy ข้อมูลต่อลงแถวไปเรื่อยๆยังไงครับ

Re: กำหนดให้มีใส่ข้อมูลก่อนเท่านั้น ถ้าไม่มีให้ขึ้น vba msgbox เตือน

กำหนดให้มีใส่ข้อมูลก่อนเท่านั้น ถ้าไม่มีให้ขึ้น vba msgbox เตือน

การกำหนดเงื่อนไข

Re: อยากให้นับวันถอยหลังวันหมดอายุครับ เป็นเดือน เป็นปี และเป็นวัน

อยากให้นับวันถอยหลังวันหมดอายุครับ เป็นเดือน เป็นปี และเป็นวัน

Re: ซ่อนสูตรยังไงครับ

ซ่อนสูตรยังไงครับ

Re: เกี่ยวกับวันหมดอายุสินค้าครับ

Re: เกี่ยวกับวันหมดอายุสินค้าครับ

Re: เกี่ยวกับวันหมดอายุสินค้าครับ