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") & ".xls...

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

สอบถามเพิ่มเติม ปล้วสามารถเขียนโค๊ดเพื่อให้ส่งรูปกับไฟล์ 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 As Str...

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

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

ผมเชื่อมต่อ line notify เพื่อให้แสดงค่าปริมาณไม้ที่เบิกต่อวันในแต่ละประเภท แต่การแสดงผลใน line notify ให้ค่าไม่ครบทุกตัวอักษร เป็นแบบนี้สามารถแก้ไข VBA หรือ API ตรงไหนเพื่อให้แสดงค่าได้ครบได้บ้างครับ ตัวอย่างโค๊ดที่เขียนมา 'Code Line Notify V2 Sub Sendline() Dim S As Worksheet Dim LOL As String Dim ...

ขอบคุณอาจารย์มากครับ ผมแก้ไขได้แล้วตามคำแนะนำการอ้างอิง 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 = S1.ra...

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

ผมจะพยายามอธิบายนะครับอาจารย์ ขั้นแรก ใน VBA Module3 ใน Sub getsize หลักการทำงานโดยย่อคือ เมื่อค้นหาเจอคำที่กำหนด จะคัดลอกช่วงข้อมูลไปตามแต่ละ Sheet ที่กำหนดครับ โดยการสั่งทำงานผ่าน VBA โดยการกดปุ่ม F5 มันสามารถทำงานได้ตามโปรแกรม Microsoft Visual Basic for Applications - stock คลังไม้.xlsm - [Module...

รบกวนโหลดไฟล์ 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, S6 As Wo...

สอบถามวิธีแก้ไข
พอสั่ง 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 = s & m...

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

พอจะมีวิธีเขียนการเก็บข้อมูลแบบอาเรย์ที่ไม่จำเป็นต้องรูปขนาดของอาเรย์ที่ง่ายกว่านี้ไหมครับ 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.CountA(Worksheets(...