Excel User Form สร้างฟอร์มกรอกข้อมูล | PART#11 ปุ่มกำหนดรหัสพนักงานแบบอัตโนมัติ Auto Id Number

Поділитися
Вставка
  • Опубліковано 16 гру 2024

КОМЕНТАРІ • 23

  • @antaresstamp4785
    @antaresstamp4785 7 місяців тому

    ขอขอบคุณ

    • @roon
      @roon  7 місяців тому

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

  • @kraiwits.h.c6610
    @kraiwits.h.c6610 10 місяців тому

    ในช่อง txtid ไม่สามารถค้นหาข้อมูลที่อยู่ในแถวที่มากกว่า 543 ได้ครับ ถ้าข้อมูลที่อยู่ต่ำกว่านั้นมันหาไม่เจอแก้อย่างไงครับ

    • @roon
      @roon  10 місяців тому

      ลองตรวจสอบรูปแบบเซลล์ตั้งแต่แถว 543 ว่าเหมือนกันกับด้านบนมั้ยครับ

  • @Phetyodmongkut
    @Phetyodmongkut 5 місяців тому

    สอบถามค่ะ ถ้าเขียนตัวนี้ มีโค้ดที่run แล้ว ขึ้นเตือนmsgbox ว่าข้อมูลซ้ำไหมคะ

    • @roon
      @roon  5 місяців тому

      @@Phetyodmongkut มีการตรวจสอบข้อมูลช้ำครับ

  • @ขวัญจิราชูเชิด

    ขออนุญาติสอบถามค่ะถ้าช่องรหัสอยากจะให้แสดง Format เป็น CL01-รหัส 3 ตัว ต้องกำหนด Format อย่างไรดีคะ

    • @roon
      @roon  7 місяців тому

      ลองดูคลิปนี้คงรับ
      ua-cam.com/video/2aRgZGmv5Qk/v-deo.html

  • @yadom6548
    @yadom6548 6 місяців тому

    ถ้าเราอยากได้ ตัวอักษรนำหน้าตัวเลข ต้องเขียนแบบไหนหรอครับ

    • @roon
      @roon  5 місяців тому

      ในบรรทัดนี้ Me.txtid.Value = tempid
      เพิ่มแบบนี้ได้เลยครับ Me.txtid.Value = "ข้อความที่ต้องการ" & tempid
      ขอบคุณครับ

    • @yadom6548
      @yadom6548 5 місяців тому

      @@roon ขอบคุฯมากครับ เดี๋ยวลองดู

    • @yadom6548
      @yadom6548 5 місяців тому

      @@roon ผมลองใส่ตามแล้ว แต่พอมันหาเลขต่อไป มันขึ้น error missmatch เด้งไปที่ vid = CInt(Sheet1.Cells(i, "A").Value) ครับ

  • @khunpungpapayaza2680
    @khunpungpapayaza2680 9 місяців тому

    อยากให้อาจารย์สอนเพิ่มข้อมูลไป Sheet อื่นๆได้ค่ะ อยากได้ข้อมูล Sheet เป็นส่วน/แผนกค่ะ

    • @roon
      @roon  9 місяців тому

      จริงแล้ว เราจะแทรกไปที่ sheet ไหนก็ได้ครับ
      คำสั่งเดิมแต่เปลี่ยนชื่อ sheet โดย form จะอยู่ sheet ไหนก็ได้
      ลองดูน่ะครับ ถ้าไม่ได้จะทำคลิปเพิ่มเติมให้ครับ

  • @Ptrn79
    @Ptrn79 10 місяців тому

    ขอสอบถามหน่อยค่ะ หากใส่ตัวอักษรด้วย ต้องเขียนแบบไหนค่ะ เช่น TM00001 ค่ะ

    • @roon
      @roon  10 місяців тому +1

      ในบรรทัดนี้ Me.txtid.Value = tempid
      เพิ่มแบบนี้ได้เลยครับ Me.txtid.Value = "TM" & tempid
      ขอบคุณครับ

    • @Ptrn79
      @Ptrn79 9 місяців тому

      @@roon ขอบคุณมากๆค่ะ รันได้ตามที่แจ้งเลยค่ะ *-*

  • @ADDAER11234
    @ADDAER11234 7 місяців тому

    บรรทัด vid=cint(sheet3.cells(i,"a").value
    กดรันมันแจ้ง type mismatch แก้ไขยังไงคะ

    • @roon
      @roon  7 місяців тому +1

      ลองลบ cint ออกครับ
      Cint เป็นคำสั่งสำหรับเปลี่ยน text ให้เป็น integer ครับ

    • @ADDAER11234
      @ADDAER11234 7 місяців тому

      ขอบคุณค่ะ จะลองดูนะคะ

  • @tachapoltanikchokkobkul558
    @tachapoltanikchokkobkul558 9 місяців тому

    อาจารย์ครับ รบกวนสอบถาม ถ้า รหัสของเรา ไม่ได้เป็นตัวเลขเรียงกัน อย่างของผม รหัสนักเรียน 0500012 พอกด Run มันขึ้น error "6" overflow ครับ

    • @roon
      @roon  9 місяців тому

      Error ตอนไหนครับ
      ตอนเพิ่มรหัส หรือตอน save ครับ

    • @tachapoltanikchokkobkul558
      @tachapoltanikchokkobkul558 9 місяців тому

      ผมลองเอา Clnt ออก รันได้แล้วครับ รบกวนสอบถามครับ CInt มันคืออะไรครับ