EXCEL TOOLS
Excel Add-ins ที่พัฒนาโดยคุณสันติพงศ์ ณสุย (MVP Excel 2010-2020) ด้วยภาษา C# เพื่อแก้ไขปัญหาไฟล์ใหญ่ คำนวณนาน ทำงานช้า จัดการข้อมูลต่าง ๆ ที่ทำงานประจำวันได้อย่างสะดวกรวดเร็ว สนใจคลิกไปดูได้ที่นี่ครับ => Excel Tools
Excel Add-ins ที่พัฒนาโดยคุณสันติพงศ์ ณสุย (MVP Excel 2010-2020) ด้วยภาษา C# เพื่อแก้ไขปัญหาไฟล์ใหญ่ คำนวณนาน ทำงานช้า จัดการข้อมูลต่าง ๆ ที่ทำงานประจำวันได้อย่างสะดวกรวดเร็ว สนใจคลิกไปดูได้ที่นี่ครับ => Excel Tools
[code]
และปิดด้วย [/code]
ตัวอย่างเช่น [code]dim r as range[/code]
เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)Code: Select all
Private Sub CommandButton1_Click()
Dim ssheet As Worksheet
Set ssheet = ThisWorkbook.Sheets("database")
nr = ssheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
ssheet.Cells(nr, 2) = Me.TextBox1
End Sub
Code: Select all
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cell As Range
Application.EnableEvents = False
For Each Cell In Target
If Cell.Column = 2 Then
Cell.Offset(, 5).Value = Now
End If
If Cell.Column = 2 Then
Cell.Offset(, -1).Value = "CHM " & ((Year(Now) + 543 - 2500) * 10000) + (Range("A" & Rows.Count).End(xlUp).Row)
End If
Next Cell
Application.EnableEvents = True
End Sub
ลองปรับดูว่าใข่ไหมครับjullathep wrote: ↑Fri Feb 23, 2018 10:56 am คือผมอยากให้ เลขที่อ้างอิง ใน Sheet database มันมาแสดงบน Label ของ Sheet1 ทุกครั้งที่เวลาเรากด ตกลง
เช่น ผมกด ตกลง เลขที่อ้างอิงจะเป็น CHM 610011 อยากให้มันไปแสดงที่ Label1 ใน Sheet1 ทุกครั้งที่กดตกลง ผมจะเขียน Code อย่างไรครับ Code ตั้งต้นมาได้แบบนี้ครับ
<Sheet1><Sheet2 "database">Code: Select all
Private Sub CommandButton1_Click() Dim ssheet As Worksheet Set ssheet = ThisWorkbook.Sheets("database") nr = ssheet.Cells(Rows.Count, 1).End(xlUp).Row + 1 ssheet.Cells(nr, 2) = Me.TextBox1 End Sub
รบกวนพี่ๆ อาจารย์ทุกท่านด้วยครับCode: Select all
Private Sub Worksheet_Change(ByVal Target As Range) Dim Cell As Range Application.EnableEvents = False For Each Cell In Target If Cell.Column = 2 Then Cell.Offset(, 5).Value = Now End If If Cell.Column = 2 Then Cell.Offset(, -1).Value = "CHM " & ((Year(Now) + 543 - 2500) * 10000) + (Range("A" & Rows.Count).End(xlUp).Row) End If Next Cell Application.EnableEvents = True End Sub
Code: Select all
Private Sub CommandButton1_Click()
Dim c As Range
For Each c In Sheet3.Range("b2:b100").Cells
If TextBox1.Text = c.Value Then
Label1 = c.Offset(, -1).Value
End If
Next c
End Sub
ขอบคุณครับ เดี๋ยวลองเทสpuriwutpokin wrote: ↑Fri Feb 23, 2018 4:09 pmลองปรับดูว่าใข่ไหมครับjullathep wrote: ↑Fri Feb 23, 2018 10:56 am คือผมอยากให้ เลขที่อ้างอิง ใน Sheet database มันมาแสดงบน Label ของ Sheet1 ทุกครั้งที่เวลาเรากด ตกลง
เช่น ผมกด ตกลง เลขที่อ้างอิงจะเป็น CHM 610011 อยากให้มันไปแสดงที่ Label1 ใน Sheet1 ทุกครั้งที่กดตกลง ผมจะเขียน Code อย่างไรครับ Code ตั้งต้นมาได้แบบนี้ครับ
<Sheet1><Sheet2 "database">Code: Select all
Private Sub CommandButton1_Click() Dim ssheet As Worksheet Set ssheet = ThisWorkbook.Sheets("database") nr = ssheet.Cells(Rows.Count, 1).End(xlUp).Row + 1 ssheet.Cells(nr, 2) = Me.TextBox1 End Sub
รบกวนพี่ๆ อาจารย์ทุกท่านด้วยครับCode: Select all
Private Sub Worksheet_Change(ByVal Target As Range) Dim Cell As Range Application.EnableEvents = False For Each Cell In Target If Cell.Column = 2 Then Cell.Offset(, 5).Value = Now End If If Cell.Column = 2 Then Cell.Offset(, -1).Value = "CHM " & ((Year(Now) + 543 - 2500) * 10000) + (Range("A" & Rows.Count).End(xlUp).Row) End If Next Cell Application.EnableEvents = True End Sub
Code: Select all
Private Sub CommandButton1_Click() Dim c As Range For Each c In Sheet3.Range("b2:b100").Cells If TextBox1.Text = c.Value Then Label1 = c.Offset(, -1).Value End If Next c End Sub
หลังจากลองปรับแล้วไม่มีอะไรเกิดขึ้นเลยครับ พี่jullathep wrote: ↑Fri Feb 23, 2018 4:18 pmขอบคุณครับ เดี๋ยวลองเทสpuriwutpokin wrote: ↑Fri Feb 23, 2018 4:09 pmลองปรับดูว่าใข่ไหมครับjullathep wrote: ↑Fri Feb 23, 2018 10:56 am คือผมอยากให้ เลขที่อ้างอิง ใน Sheet database มันมาแสดงบน Label ของ Sheet1 ทุกครั้งที่เวลาเรากด ตกลง
เช่น ผมกด ตกลง เลขที่อ้างอิงจะเป็น CHM 610011 อยากให้มันไปแสดงที่ Label1 ใน Sheet1 ทุกครั้งที่กดตกลง ผมจะเขียน Code อย่างไรครับ Code ตั้งต้นมาได้แบบนี้ครับ
<Sheet1><Sheet2 "database">Code: Select all
Private Sub CommandButton1_Click() Dim ssheet As Worksheet Set ssheet = ThisWorkbook.Sheets("database") nr = ssheet.Cells(Rows.Count, 1).End(xlUp).Row + 1 ssheet.Cells(nr, 2) = Me.TextBox1 End Sub
รบกวนพี่ๆ อาจารย์ทุกท่านด้วยครับCode: Select all
Private Sub Worksheet_Change(ByVal Target As Range) Dim Cell As Range Application.EnableEvents = False For Each Cell In Target If Cell.Column = 2 Then Cell.Offset(, 5).Value = Now End If If Cell.Column = 2 Then Cell.Offset(, -1).Value = "CHM " & ((Year(Now) + 543 - 2500) * 10000) + (Range("A" & Rows.Count).End(xlUp).Row) End If Next Cell Application.EnableEvents = True End Sub
Code: Select all
Private Sub CommandButton1_Click() Dim c As Range For Each c In Sheet3.Range("b2:b100").Cells If TextBox1.Text = c.Value Then Label1 = c.Offset(, -1).Value End If Next c End Sub
ขออภัยครับได้แล้วครับ เมื่อกี้พลาดนิดหน่อยครับ ขอบคุณมากครับjullathep wrote: ↑Fri Feb 23, 2018 4:21 pmหลังจากลองปรับแล้วไม่มีอะไรเกิดขึ้นเลยครับ พี่jullathep wrote: ↑Fri Feb 23, 2018 4:18 pmขอบคุณครับ เดี๋ยวลองเทสpuriwutpokin wrote: ↑Fri Feb 23, 2018 4:09 pm
ลองปรับดูว่าใข่ไหมครับCode: Select all
Private Sub CommandButton1_Click() Dim c As Range For Each c In Sheet3.Range("b2:b100").Cells If TextBox1.Text = c.Value Then Label1 = c.Offset(, -1).Value End If Next c End Sub