Excel Forum

เพราะบรรทัดไม่เท่ากัน เลยได้ผลลัพธ์มาแค่บรรทัดเดียว

ลองแบบนี่้ครับ

Sub RecordData()
Dim lastRow&

With Sheets("Database")
lastRow = .Range("a" & .Rows.Count).End(xlUp).Row + 1
.Range("a" & lastRow) = lastRow - 1
.Range("b" & lastRow, .Range("K" & lastRow)).Resize(5).Value = _
Sheets ...

ต้องการบันทึกข้อมูลจากหน้า Form ไปที่ หน้า Database แต่ข้อมูลไปแค่บรรทัดเดียว รบกวนขอคำแนะนำด้วยนะคะ


Dim lastRow&

With Sheets("Database")

lastRow = .Range("a" & .Rows.Count).End(xlUp).Row + 1

.Range("a" & lastRow) = lastRow - 1

.Range("b" & lastRow, .Range("K" & lastRow)).Value ...

:D ผมเข้าใจว่าต้องการจะให้ ComboBox สามารถขยายเพิ่มลดตามปริมาณข้อมูลในคอลัมน์ C ของชีต Address

หากผมเข้าใจถูกต้อง ให้ปรับ Code UserForm_Activate เป็นด้านล่างครับ


Private Sub Userform_Activate()
On Error Resume Next
Dim tambon1 As String
With Sheets("Address")
listtambon1.ColumnCount = 4 ...

ขอสอบถามเกี่ยวกับการใส่ข้อมูลใน Combo Box ค่ะ ต้องการให้ Drop down ขยายช่องให้พอดีกับข้อมูลค่ะ และ ให้สามารถพิมพ์แค่ชื่อ Drop down แสดงข้อมูลตามที่พิมพ์ ไม่ทราบว่าต้องแก้โค้ดยังไงบ้างค่ะ หรือมีคำแนะนำยังให้ให้ได้ตามความต้องการ ช่วยแนะนำด้วยนะคะ

เปิดใช้ Form ที่ไฟล์ Form-Copy จะไปดึงข้อมูลมาจาก ไฟล ...

จะรบกวนเพิ่มเติมค่ะ
พอดีต้องการให้เมื่อมีการเปลี่ยนแปลงที่อยู่ ในช่อง แขวง/ตำบล แล้วขึ้น อำเภอ จังหวัด รหัสไปรษณีย์ อัตโนมัติ เลยใช้ Fucntion Vlookup
แต่ติด Error ค่ะ ต้องปรับโค้ดยังไงคะ

Private Sub listtambon1_Change()
Me.listampor1 = Application.VLookup(listtambon1.Value, Worksheets("Address ...

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

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


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

ลองปรับตามนี้ดูครับ
Private ...

logic wrote: Tue Nov 20, 2018 11:15 am ไม่ทราบว่างงตรงไหนครับ อาจารย์บอกไว้ว่าถ้าเปิดอยู่แล้วไม่ต้องเปิดขึ้นมาอีก

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

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

ปัญหาในตอนแรกคือ ใช้คำสั่งเปิดไฟล์ด้วยทำให้ฐานข้อมูลเด้งขึ้นมาตอนกดบันทึก ไม่ต้องการให้เด้งขึ้นมาจึงเอาคำสั่ง Open ออก ไม่แน่ใจว่าทำตรงไหนผิด

:D ถ้าอ่านจากที่แจ้งมา ผิดตรงเอาการ Open ออกครับ หากจะบันทึกข้อมูลลงในไฟล์ต้นทาง เมื่อยังไม่เปิดไฟล์ต้นทางก็ต้องเปิดออกมาก่อน แต่เมื่อเปิดมาแล้วคำสั่งอ ...

ไม่ได้ใช้ค่ะ ต้องการค้นหาแล้วบันทึกกลับที่เดิมค่ะ

ปัญหาในตอนแรกคือ ใช้คำสั่งเปิดไฟล์ด้วยทำให้ฐานข้อมูลเด้งขึ้นมาตอนกดบันทึก ไม่ต้องการให้เด้งขึ้นมาจึงเอาคำสั่ง Open ออก ไม่แน่ใจว่าทำตรงไหนผิดจึงเกิด Error ตามรูปค่ะ

puriwutpokin wrote: Mon Nov 19, 2018 12:34 pm ตอนรันก็ปกตินะครับ ได้ใช้คำสั่งเปิดไฟล์ไว้ด้วยหรือไม่ครับ

อาจารย์คะ มันมี Error ไม่ทราบว่าต้องแก้ไขเพิ่มเติมตรงไหนอีกหรือไม่คะ


:D ตอนบันทึกไม่ต้องเขียนให้เปิดไฟล์ขึ้นมาใหม่ เพราะเปิดอยู่แล้วตอนค้นหา

Code ไหนที่เปิดการเปิดไฟล์ก็ให้ Mark เป็น Comment หรือลบทิ้งไปครับ

ListBox ตามภาพที่ถามเหมือนจับภาพมาจากเว็บ การสร้าง ListBox ก็แค่เพิ่ม ListBox เข้าไปคร ...

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

Private Sub CmdFind_Click()
Dim wb As Workbook
On Error Resume Next
'Err.Clear
Set wb = Workbooks.Open("C:\Users\THA0753H\Desktop\Employee Data.xlsx")
nRow = wb.Worksheets("Data").Columns(4).Find(Txtfind.Text).Row
'Other code
wb.Close false
End sub




ขอบคุณสำหร ...

:D แนบไฟล์นั้นมาพร้อมทั้งไฟล์ปลายทาง อธิบายสิ่งที่ต้องการว่าจะทำอะไร ต้องกรอกค่าทดสอบใดบ้าง คลิกปุ่มไหน ผลลัพธ์ที่ถูกต้องจะต้องเป็นอย่างไร ที่ทำมาแล้วติดขัดตรง Procedure ใด บรรทัดใด ฯลฯ จะได้ช่วยดูต่อไปจากนั้นครับ


ใช้ ไฟล์ userform-test ดึงข้อมูลจาก ไฟล์ Data มาแสดง ในขณะที่ ไฟล์ data ไม่ได้เป ...

แยกออกมาเป็นคนล่ะไฟล์แล้ว หนูต้องใส่สูตรไว้ตรงส่วนไหนคะ เพื่อค้นหาและบันทึกกลับไปที่ Database

ไม่รู้จะเริ่มจากตรงไหน รบกวนอาจารย์ชี้แนะด้วยนะคะ

ใช้ path และชื่อไฟล์ตามนี้ค่ะ
path C:\Users\THA0753H\Desktop
ชื่อไฟล์ Employee Data.xlsx

Private Sub CmdFind_Click()

On Error Resume Next
'Err.Clear ...

ขอบคุณค่ะอาจารย์ อาจารย์หมายถึง Shared Workbook ใช่ไหมค่ะ พอจะมีวิธีไหนแนะนำหรือไม่คะ ตั้งใจว่าเมื่อทำเสร็จแล้วอยากจะแชร์ไฟล์จากเครื่องตัวเองแล้วให้ให้ User เข้ามาใช้ไฟล์นี้เพื่อแก้ไขข้อมูลของตัวเองค่ะ

ขอถามอาจารย์เพิ่มเติมนะคะ เวลาใช้งานถ้า hide sheet data ที่เป็นฐานข้อมูลไว้ ทำให้ค้นหาข้อมูลไม่ได ...

User Form แบบนี้หากมีการแชร์ไฟล์ให้ user เข้ามาใช้งานจะสามารถใช้พร้อมๆกันได้หรือเปล่าคะ

ขอบคุณมากนะคะ ที่กรุณาตอบทุกคำถามเลย :D


:D แบบเดิมใช้ไม่ได้เพราะเขียนไม่ถูกต้องครับ

คอลัมน์ B ใน Worksheet คือ Number ส่วนค่าใน TxtID คือ Text จะต้องแปลงให้เป็น Number เสียก่อนจึงจะเทียบกันได้

กรณีมีการแก ...

ได้แล้วนะคะ ขอบคุณมากค่ะ
ขอทราบแนวคิดอาจารย์หน่อยได้ไหมคะ ว่าทำไมถึงใช้วิธีประกาศตัวแปร Dim msgRepns As Integer แล้วทำไมโค้ดชุดแรกถึงทำงานไม่ได้


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

Private Sub CmdSave_Click()
Dim irow As Integer
Dim msgRepns As Integer
Dim ws As Worksheet
Set ws = Worksheets("Data ...

puriwutpokin wrote: Thu Oct 25, 2018 7:27 pm ควรแนบตัวอย่างไฟล์ที่ เป็นปัญหามาด้วยครับ จะได้ทดสอบได้ครับ

แนบไฟล์มาแล้วค่ะ รบกวนด้วยนะคะ

สวัสดีค่ะ ขอสอบถามเกี่ยวกับการบันทึกข้อมูลที่มีอยู่แล้ว ผ่าน userForm

เมื่อค้นหาข้อมูลที่ต้องการจาก Sheet "Data" แก้ไขบันทึกกลับลงที่เดิมโดยใช้ปุ่ม "บันทึก" แต่ไม่สามารถทำได้ รบกวนผู้รู้ช่วยดูโค้ดให้หน่อยนะคะ เมื่อรันดู จะขึ้น Error type Mismatch
ขอบคุณค่ะ
Private Sub CmdSave_Click()
Dim irow As ...