Snasui Excel Forum

ลองเขียนโค้ดแล้วค่ะ ลองก๊อบจากกระทู้ด้านล่าง ที่คุณ bank ให้มาเป็นตัวอย่าง และลองเอามาประยุกต์ใช้ดูแล้ว
ก็ไม่ค่อยเข้าใจ ลองทำแล้ว มันออกให้ค่ะ แต่มันโดดๆ ไม่เรียงตั้งแต่บรรทัดแรก อยากให้ช่วยอธิบายคำสั่ง
แต่ละบรรทัดได้มั้ยคะ คงง่ายกว่าไปหาซื้อหนังสือมาอ่าน (ตอนนี้อยู่แนวหุบเขาค่ะ) หรือ search แบบจับต้นชนปลายไม่ถูก

โค้ดของคุณ bank ที่เคยให้ไว้

Private Sub CommandButton1_Click()
If Me.TextBox1.Value <> "" Then
Dim irow As Long
Dim ws As Worksheet
Set ws = Worksheets("Data")
Me.TextBox1.Text = Application.Trim(Me.TextBox1.Text)
'Find first empty row in database
irow = ws.Cells(Rows.Count, 2) _
.End(xlUp).Offset(1, 0).Row

'Copy The Data To The Database
ws.Cells(irow, 1).Value = Me.TextBox1.Value
ws.Cells(irow, 8).Value = Me.TextBox2.Value
Unload Me
UserForm1.Show
Else
MsgBox "¡ÃسÒÃкت×è͹Ó˹éÒ¡è͹¤ÃѺ", vbCritical
End If

End Sub

และแนนก็ลองปรับเปลี่ยนนิดหน่อย ขั้นแล้วแต่ปัญหาอยู่ที่ภาพค่ะ
แต่ว่ามันไม่เรียงลำดับกันจากด้านบนลงมา ต้องแก้ที่ตรงไหนคะ รบกวนช่วยอธิบาย
โค้ดแต่ละบรรทัดให้ปรับใช้ได้มั้ยคะ ถ้าอยากจะเพิ่ง box ขึ้นมา

2. เวลาเข้าใช้กับวันที่ สามารถปรับแก้ไขให้ไม่เปลี่ยนทุกบรรทัดได้มั้ยคะ จริงๆ มันก็น่าจะแค่ cell ใคร cell มัน
3. คุณ bank เคยเห็นตัวอย่างตัวอยาง list box ในนี้มั้ยคะ ถ้าเคยเห็น รบกวนแปะลิงค์ให้แนนทีค่ะ
ตั้งใจอยากจะลองทำ เลือกเวลาเพิ่มเข้าไปใน text box ดูค่ะ

ขอบคุณค่ะ

อ่อ.. ลืมอีกข้อค่ะ ตอนแรกตั้งค่าให้ใส่รหัสประจำตัว แล้วสามารถดุง ชื่อ นามสกุล เพศ ระดับชั้นมาได้หมด
แต่พอเพิ่ม text box เข้าไป ขึ้นเฉพาะแค่เวลาค่ะ ส่วนที่เหลือไม่ขึ้นเลย ต้องปรับแก้ตรงไหนเพิ่มเติมคะ

ขอบคุณค่ะ

ที่มันกระโดดข้ามบรรทัด เป็นเพราะ ที่เซลล์ B7 ถึง B11 ไม่ใช่เซลล์ว่าง
ด้วยคำสั่ง นั้นให้หาแถวว่างจากเซลล์โดยใช้เซลล์อ้างอิงในคอลัมภ์ที่2
เมื่อตรวจสอบแล้วพบว่าในคอลัมภ์ที่2 ซึ่งก็คือ คอลัมภ์ B ในแถวที่ 7 ถึง 11 มีการบันทึกสูตรไว้
VBA ถือว่าเป็นเซลล์ที่ไม่ว่างครับ ลองลบ ข้อมูลในเซลล์ที่ว่า นั่น ออก แล้วบันทึกข้อมูลใหม่ดูนะครับ

ลองตรวจสอบชื่อของ userform ให้แน่ชัดด้วยนะครับ เหมือนมันมีการปรับเปลี่ยน แก้ไขให้ชื่อตรงกันด้วยครับ
เพื่อไม่เกิด error ในคำสั่งอื่นๆ

yoguzaa wrote:ที่มันกระโดดข้ามบรรทัด เป็นเพราะ ที่เซลล์ B7 ถึง B11 ไม่ใช่เซลล์ว่าง
ด้วยคำสั่ง

Code: Select all

  
  'Find first empty row in database
    irow = ws.Cells(Rows.Count, 2) _
        .End(xlUp).Offset(1, 0).Row

นั้นให้หาแถวว่างจากเซลล์โดยใช้เซลล์อ้างอิงในคอลัมภ์ที่2
เมื่อตรวจสอบแล้วพบว่าในคอลัมภ์ที่2 ซึ่งก็คือ คอลัมภ์ B ในแถวที่ 7 ถึง 11 มีการบันทึกสูตรไว้
VBA ถือว่าเป็นเซลล์ที่ไม่ว่างครับ ลองลบ ข้อมูลในเซลล์ที่ว่า นั่น ออก แล้วบันทึกข้อมูลใหม่ดูนะครับ

ลองตรวจสอบชื่อของ userform ให้แน่ชัดด้วยนะครับ เหมือนมันมีการปรับเปลี่ยน แก้ไขให้ชื่อตรงกันด้วยครับ
เพื่อไม่เกิด error ในคำสั่งอื่นๆ

ถูกต้องแล้วครับ ที่บรรทัดดังกล่าว มีสูตรอยู่จึงไม่เท่ากับเซลล์ว่าง การสั่งบันทึกข้อมูลของโค๊ดจึงต้องวางในเซลล์ล่างสุดครับ

ลองเอามาประยุกต์ใช้ดูแล้ว
ก็ไม่ค่อยเข้าใจ ลองทำแล้ว มันออกให้ค่ะ แต่มันโดดๆ ไม่เรียงตั้งแต่บรรทัดแรก อยากให้ช่วยอธิบายคำสั่ง
แต่ละบรรทัดได้มั้ยคะ คงง่ายกว่าไปหาซื้อหนังสือมาอ่าน (ตอนนี้อยู่แนวหุบเขาค่ะ) หรือ search แบบจับต้นชนปลายไม่ถูก

เป็นเรื่องธรรมดาครับ แม้แต่ผมเองก็ไม่ได้เข้าใจทั้งหมด แค่ใช้งานได้บ้างเท่านั้นเองครับ เราต้องใช้เวลาในการศึกษามันและเอาจริงเอาจังครับกว่าจะเข้าใจและนำมาใช้งานได้

3. คุณ bank เคยเห็นตัวอย่างตัวอยาง list box ในนี้มั้ยคะ ถ้าเคยเห็น รบกวนแปะลิงค์ให้แนนทีค่ะ
ตั้งใจอยากจะลองทำ เลือกเวลาเพิ่มเข้าไปใน text box ดูค่ะ

ที่คุณเคยทำมาก่อนหน้านี้ เค้าเรียกว่า Combobox ครับ ส่วน ListBox กด็จะเป็นอีกประเภทหนึ่ง ในกรณีของคุณ hinokia7210 ผมเห็นงานแล้ว ก็มองเห็นปัญหาในอนาคตอย่างแน่นอน หากเล่นบันทึกข้อมูลไปบางส่วน แล้วใช้สูตรดึงข้อมูลมาแสดงต่ออีกทีหนึ่ง เห็นจะไม่เหมาะครับ เพราะฐานข้อมูลไม่ควรจะมีสูตรใดๆ


ผมเลยทดลองทำฟอร์มการใช้งานมาให้ดูใหม่ อยากให้ลองไปศึกษาดูครับ
ปล. ในตัวอย่างมีเรื่อง RangeName เข้ามาเกี่ยวข้องด้วย ควรศึกษาด้วยครับ

bank9597 wrote:

ลองเอามาประยุกต์ใช้ดูแล้ว
ก็ไม่ค่อยเข้าใจ ลองทำแล้ว มันออกให้ค่ะ แต่มันโดดๆ ไม่เรียงตั้งแต่บรรทัดแรก อยากให้ช่วยอธิบายคำสั่ง
แต่ละบรรทัดได้มั้ยคะ คงง่ายกว่าไปหาซื้อหนังสือมาอ่าน (ตอนนี้อยู่แนวหุบเขาค่ะ) หรือ search แบบจับต้นชนปลายไม่ถูก

เป็นเรื่องธรรมดาครับ แม้แต่ผมเองก็ไม่ได้เข้าใจทั้งหมด แค่ใช้งานได้บ้างเท่านั้นเองครับ เราต้องใช้เวลาในการศึกษามันและเอาจริงเอาจังครับกว่าจะเข้าใจและนำมาใช้งานได้

3. คุณ bank เคยเห็นตัวอย่างตัวอยาง list box ในนี้มั้ยคะ ถ้าเคยเห็น รบกวนแปะลิงค์ให้แนนทีค่ะ
ตั้งใจอยากจะลองทำ เลือกเวลาเพิ่มเข้าไปใน text box ดูค่ะ

ที่คุณเคยทำมาก่อนหน้านี้ เค้าเรียกว่า Combobox ครับ ส่วน ListBox กด็จะเป็นอีกประเภทหนึ่ง ในกรณีของคุณ hinokia7210 ผมเห็นงานแล้ว ก็มองเห็นปัญหาในอนาคตอย่างแน่นอน หากเล่นบันทึกข้อมูลไปบางส่วน แล้วใช้สูตรดึงข้อมูลมาแสดงต่ออีกทีหนึ่ง เห็นจะไม่เหมาะครับ เพราะฐานข้อมูลไม่ควรจะมีสูตรใดๆ


ผมเลยทดลองทำฟอร์มการใช้งานมาให้ดูใหม่ อยากให้ลองไปศึกษาดูครับ
ปล. ในตัวอย่างมีเรื่อง RangeName เข้ามาเกี่ยวข้องด้วย ควรศึกษาด้วยครับ

โอ้.. สุดยอดเลยค่ะ ขอบคุณ คุณ Bank มากๆ เดี๋ยวขอตัวไปศึกษาที่คุณแนะนำเพิ่มเติมไว้ให้ค่ะ
แล้วก็จะปรับแต่งใส่รูปภาพหน้าตา แล้วยังไงจะเอามาให้ดูนะคะ ตั้งใจว่าจะเอารูป banner
ไว้ด้านบนสุด ก่อนตารางที่ใส่ชื่อ แล้วก็เอาปุ่มแสดงฟอร์ม มาไว้ตรงกลางด้านบน และ lock
ให้เลื่อนได้เฉพาะข้อมูลที่กรอกลงไปค่ะ ยังไงแล้วจะเอามาให้ดู และติชม นะคะ ช่วยแนะนำด้วยนะคะ
ขอบคุณค่ะ

ปรี๊ด....ด...ด
กรรมการยกธงล้ำหน้าครับ

ตอนนี้รูสึกว่า คุณ แบงค์ จะล้ำหน้าเพื่อนๆสมาชิกทุกท่าน
ทั้งเรื่องความรู้ น้ำใจ และการเอื้อเฟื้อแบ่งบัน ช่วยเหลือผู้อื่น
ชื่นชมในตัวคุณ หาได้ยากครับในสังคมบ้านเรา
น่าจะได้ ID:Assistant ซะแล้ว
ใช่ไหมครับ อาจารย์
ลืม ขอบคุณครับ

yoguzaa wrote:ปรี๊ด....ด...ด
กรรมการยกธงล้ำหน้าครับ

ตอนนี้รูสึกว่า คุณ แบงค์ จะล้ำหน้าเพื่อนๆสมาชิกทุกท่าน
ทั้งเรื่องความรู้ น้ำใจ และการเอื้อเฟื้อแบ่งบัน ช่วยเหลือผู้อื่น
ชื่นชมในตัวคุณ หาได้ยากครับในสังคมบ้านเรา
น่าจะได้ ID:Assistant ซะแล้ว
ใช่ไหมครับ อาจารย์
ลืม ขอบคุณครับ

ผมศึกษาจากอาจารย์มาอีกทีหนึ่งครับ Credit By คนควน และ snasui.com ครับ

เห็นด้วยครับ คุณ bank9597 เป็นผู้มีความมุ่งมั่น มีความตั้งใจสูง สามารถเป็นตัวอย่างแก่เพื่อนสมาชิกในเรื่องนี้ได้เป็นอย่างดีครับ