Snasui Excel Forum

ขอบคุณมากครับผม

ขอบคุณครับอาจารย์
สามารถใช้งานได้แล้วครับ

สอบถามเพื่อเพิ่มความรู้เกี่ยวกับ KeyCode ครับ
แต่ละเลขของ KeyCode หมายถึงอะไรเหรอครับ ผมไปหามามีคนบอกให้ใช้ KeyCode = 9 แต่ผมใช้แล้วย้ายไปที่ TextBox ทันที เลยอยากทราบแต่ละเลขหมายความว่ายังไงครับ

ผมได้สร้าง Frame ในการกรอกข้อมูลหลายอัน โดยที่แต่ละอันมี TextBox ในการ input ข้อมูล
ผมติดปัญหาในการตั้งค่า Tab Order ให้ลำดับการทำงานของ TextBox1 ใน Frame1 แล้วต่อไปยัง TextBox3 ใน Frame3 ไม่ได้ครับ
โดยโค๊ดที่เขียนข้างต้นขึ้น Error ครับ
สอบถามผู้รู้ว่าสามารถตั้งให้หลังจากกรอกข้อมูลใน TextBox แล ...

ขอบคุณทุกคนมากครับ

สามารถนำมาปรับใช้กับงานได้เลยครับ
ขอบคุณที่ชี้แนะครับ

ผมหาวิธีการเซฟไฟล์แยกเพื่อนำไฟล์ไปเก็บเป็น Backup
แต่ทุกครั้งที่ Save as ไฟล์ที่ทำอยู่จะไปแก้ไขเป็นไฟล์ที่บันทึกใหม่

ความต้องการคือ เซฟไฟล์ไปยังที่เก็บ ในขณะที่ทำงานไฟล์เก่าต่อไปได้ครับ

Sub SaveBackup()
Dim D As String
D = "Backup " & Format(Date, "dd-mm-yy") & ".xlsm"
Application ...

ขอบคุณครับอาจารย์

สอบถามเพิ่มเติม ปล้วสามารถเขียนโค๊ดเพื่อให้ส่งรูปกับไฟล์ excel ได้รึป่าวครับ

อาจารย์ครับ
พอแก้ไขโค๊ดตามที่บอก ก็ยังไม่เพียงพอที่ส่งได้ครับ
LINE Notify 31_7_2563 10_17_56.png

จะปรับตรงไหนได้บ้างครับ

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 ...

ขอบคุณครับอาจารย์

สอบถามเพิ่มเติมครับ
พอจะมีวิธีที่สามารถทำให้ line notify ส่งค่าเป็นตารางบ้างไหมครับผม

ผมเชื่อมต่อ line notify เพื่อให้แสดงค่าปริมาณไม้ที่เบิกต่อวันในแต่ละประเภท
แต่การแสดงผลใน line notify ให้ค่าไม่ครบทุกตัวอักษร เป็นแบบนี้สามารถแก้ไข VBA หรือ API ตรงไหนเพื่อให้แสดงค่าได้ครบได้บ้างครับ

ตัวอย่างโค๊ดที่เขียนมา
'Code Line Notify V2
Sub Sendline()
Dim S As Worksheet
Dim LOL As String ...

ขอบคุณอาจารย์มากครับ
ผมแก้ไขได้แล้วตามคำแนะนำการอ้างอิง cell ของชีทครับ

ผมมีอีกคำถาม
ในส่วนของ Sheet รายละเอียดไม้
เงื่อนไขการทำงาน ถ้าใน column C ตั้งแต่ C4 พบค่าเป็น 0 ให้ลบ Row นั้นทิ้ง

Sub clear0()
Dim S1, S2 As Worksheet
Dim R1 As Integer
Set S1 = Worksheets(1)
Set S2 = Worksheets(2)
R1 ...

ผลลัพท์ที่ได้ผิดพลาดครับ ไม่เหมือนการสั่งทำงานผ่าน VBA มีการทำงานในส่วนของ Select case ผิดพลาดครับอาจารย์
ผมไม่ทราบว่าเป็นเพราะอะไรครับ

ผมจะพยายามอธิบายนะครับอาจารย์

ขั้นแรก
ใน VBA Module3 ใน Sub getsize
หลักการทำงานโดยย่อคือ เมื่อค้นหาเจอคำที่กำหนด จะคัดลอกช่วงข้อมูลไปตามแต่ละ Sheet ที่กำหนดครับ

โดยการสั่งทำงานผ่าน VBA โดยการกดปุ่ม F5 มันสามารถทำงานได้ตามโปรแกรม
Microsoft Visual Basic for Applications - stock คลังไม้.xlsm ...

รบกวนโหลดไฟล์ excel ของผมครับ
(ขอโทษด้วยครับ พอดีผมอธิบายไม่ค่อยเก่งครับ)
ตัวโค๊ดอยู่ใน module3 ชื่อ Sub getsize ครับ
ส่วนปุ่มmacro ที่ลิ๊งค์กับโค๊ด อยู่sheetชื่อ เบิกไม้ครับ

**สิ่งที่ไม่เข้าใจคือ มันสมควรที่จะได้ผลลัพท์เหมือนกัน แต่การสั่งผ่านปุ่มได้ค่าผิดจากการสั่งผ่านชุดคำสั่งครับ**

คือผมสั่งทำงานผ่านปุ่มmacro แต่ผลลัพท์ที่ได้ไม่เหมือนการสั่งทำงานผ่านโค๊ด VBA
ไม่ทราบว่ามันติดที่ตรงไหนรึป่าวครับ

อันนี้คือส่วนโค๊ดที่ผูกกับปุ่มที่ชื่อว่า ยืนยันการเบิก ได้ผลไม่ตรงกันครับ

Sub getsize()

Dim rng As range
Dim X
Dim i As Integer
Dim R1, R2, R3 As Integer
Dim S1, S2, S3, S4, S5 ...

สอบถามวิธีแก้ไข
พอสั่ง Run ผ่าน VBA โปรแกรมสามารถทำงานได้ปกติ
แต่เมื่อ Run ผ่านปุ่มที่เชื่อมกับ VBA โปรแกรมทำงานผิดพลาด
(ไฟล์ตัวอย่างด้านล่างครับ)
รบกวนช่วยชี้แนะทีครับ

ขอบคุณมากครับอาจารย์

ต้องการให้ VBA แสดงค่าของวันที่ในกรณีที่เป็นเลขเดี่ยวให้เติม 0 ด้านหน้า
มีสูตรที่สามารถแสดงวันที่เป็นเลข 2 หลักได้ไหมครับ โดยไม่ต้องเขียนเงื่อนไข If


Function createcode(sname As String, mtype As String, _
d As Date) As String

s = Left(UCase(sname), 2)
m = Left(UCase(mtype), 1)

createcode ...

ขอบคุณครับอาจารย์
ลดการเขียนลงได้เยอะเลยครับ

พอจะมีวิธีเขียนการเก็บข้อมูลแบบอาเรย์ที่ไม่จำเป็นต้องรูปขนาดของอาเรย์ที่ง่ายกว่านี้ไหมครับ


Dim i As Long
Dim j As Long
Dim rng As Range
Dim myar As Variant
Dim rowC As Integer
Dim columnC As Integer

columnC = WorksheetFunction.CountA(Worksheets(1).Rows(1))
rowC = WorksheetFunction ...