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
Sub NumOrderAcc1()
Dim ws As Worksheet
Application.EnableEvents = False
If Frm_InPut.ComboBox3.Text = "Acc1Sale" Then
Frm_InPut.TextBox1.Text = "I " & ((Year(Now) + 543 - 2500) * 10000) + (Sheet2.Range("A" & Rows.Count).End(xlUp).Row) + 1
End If
If Frm_InPut.ComboBox3.Text = "" Then
Frm_InPut.TextBox1.Text = ""
End If
Set ws = Worksheets("RecordDataI")
emptyrow = WorksheetFunction.CountA(ws.Range("A:A")) + 1
ws.Cells(emptyrow, 1).Value = Sheet3.Label5.Caption
ws.Cells(emptyrow, 2).Value = Sheet3.Label6.Caption
ws.Cells(emptyrow, 3).Value = Sheet3.Label1.Caption
ws.Cells(emptyrow, 4).Value = Sheet3.Label4.Caption
Application.EnableEvents = True
End Sub
Code: Select all
Private Sub CommandButton1_Click()
Call SetDate
Select Case ComboBox3.Text
Case "Acc1Sale"
Call NumOrderAcc1
Case "Acc2"
Call NumOrderAcc2
Case "Acc1Boss"
Call NumOrderAcc1Boss
Case "Package"
Call NumOrderPackage
Case ""
Exit Sub
End Select
'Other code
ขอบคุณครับsnasui wrote: ↑Fri Apr 06, 2018 8:33 pm ตัวอย่างการปรับ Code ครับ
Code: Select all
Private Sub CommandButton1_Click() Call SetDate Select Case ComboBox3.Text Case "Acc1Sale" Call NumOrderAcc1 Case "Acc2" Call NumOrderAcc2 Case "Acc1Boss" Call NumOrderAcc1Boss Case "Package" Call NumOrderPackage Case "" Exit Sub End Select 'Other code